Fiscalia

Si se pagarón las vacaiones junto con su sueldo, creo qeu si derían integrar.

[quote:f1b334154d="BR1"]Este mismo topico lo puse en seguridad social, pero algunos que han tenido el caso de seguro no son fieles visitantes de los demas "foros": ....[/quote:f1b334154d] :wink: Que gracioso el único que respondío este topico es un asiduo visitante del foro de Seguridad Social. :) Saludos Gabriel

Saludos Gabriel, se anticiparia la Mod. de Salario, si creo que sea bueno, la observación que hago es el costo que se cubriria.

concentré esa tabla en una hoja de excel, la voy a subir a la zana de descargas.

Gabriel: ¿se haria un bimestre antes de cumplir el periodo?

Aqui la tienen: [code:1:66ff0bbfc0]Sub Desprotege() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For m = 65 To 66 For i1 = 65 To 66 For i2 = 65 To 66 For i3 = 65 To 66 For i4 = 65 To 66 For i5 = 65 To 66 For i6 = 65 To 66 For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "la hoja fue desprotegida" Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub [/code:1:66ff0bbfc0]

[quote:1906925b3e="ROSAISELASANCHEZ"]:) No es para presumir pero dejenme decirles, que yo nunca tome un curso de excel, simplemente la necesidad me llevó a esforsarme para aprender excel y word yo solamente soy una simple contadora privada y mi trabajo me obligo a leer y practicar. En mi trabajo a escondida imprimia los manuales de excel y word y por las noches los leia y los ponia en practica en mi trabajo, lo mismo hice con nomipaq y contpaq y ahorita le puedo decir que los dómino, tal vez no al 100% pero al menos no estoy en blanco y lo unico que les puedo decir que necesidad te obliga a estudiar y aprender, no hay edad para no estuidiar o aprender. Y eso de que por qu no hay tiempo es un pretexto que nosotros como seres humanos damos a cualquier cosa cuando no queremos poner de nuestra parte por aprender y dar más de lo que tenemos o de lo que queremos. P.D. Todos los dias aprendemos algo nuevo siempre y cuando lo buscamos y queremos. Esto es un incentivo para nunca rendirnos ante las adversidades del mundo actual.[/quote:1906925b3e] tu eres de las mias, con todo respeto: [img:1906925b3e]http://smileys.smileycentral.com/cat/36/36_3_11.gif[/img:1906925b3e]

Yo tengo la versión que corrio mucho en el periodo anterior a febrero, te la puedo facilitar solo tendras que bajarla de mi página, no sé si sea la misma que está en descargas de Fiscalia

Ya que estamos con el tema, esta es la macro que uso, no requiere usar una cuarta celda, solo se posiciona en la columna que tiene el nombre y lo reemplazará e insertará las columnas de [i:f95b4b0423]Ap.Paterno, Ap.Materno y Nombre(s)[/i:f95b4b0423] [code:1:f95b4b0423]Sub SeparaNombres() ' Separa Nombres con división "/" en columnas con encabezado ' Macro recorded 02/10/2004 ByPaco ' Posicionarse en la primera celda a separar If Cells(ActiveCell.Row, ActiveCell.Column).Value = Empty Then GoTo fin ActiveCell.EntireColumn.Insert ActiveCell.EntireColumn.Insert ActiveCell.EntireColumn.Insert Cells(ActiveCell.Row, ActiveCell.Column + 3).Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Cells(ActiveCell.Row, ActiveCell.Column - 3), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)) Selection.EntireColumn.Delete ActiveCell.Offset(-1, -3).Range("A1").Select ActiveCell.FormulaR1C1 = "Ap.Paterno" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Ap.Materno" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Nombre(s)" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit fin: End Sub[/code:1:f95b4b0423]

Debes tener cargado el complemento, verificalo en la lista del menu Herramientas submenu agregados, si no está le das al boton de buscar y lo llamas de donde esté.

Autor	Mensaje
Tópico: Integracionde vacaciones??
ByPaco Mensajes: 6	Foro: Seguridad Social Enviado: Julio 11, 2005 Asunto:
ByPaco Mensajes: 6	Si se pagarón las vacaiones junto con su sueldo, creo qeu si derían integrar.
Tópico: Caso de autocorrección IMSS
ByPaco Mensajes: 10	Foro: Fiscal Enviado: Julio 11, 2005 Asunto: Re: Caso de autocorrección IMSS
ByPaco Mensajes: 10	[quote:f1b334154d="BR1"]Este mismo topico lo puse en seguridad social, pero algunos que han tenido el caso de seguro no son fieles visitantes de los demas "foros": ....[/quote:f1b334154d] :wink: Que gracioso el único que respondío este topico es un asiduo visitante del foro de Seguridad Social. :) Saludos Gabriel
Tópico: AYUDA URGENTE IMSS
ByPaco Mensajes: 12	Foro: Seguridad Social Enviado: Julio 11, 2005 Asunto: Re: AYUDA URGENTE IMSS
ByPaco Mensajes: 12	Saludos Gabriel, se anticiparia la Mod. de Salario, si creo que sea bueno, la observación que hago es el costo que se cubriria.
Tópico: Puntos INFONAVIT
ByPaco Mensajes: 6	Foro: Seguridad Social Enviado: Julio 11, 2005 Asunto:
ByPaco Mensajes: 6	concentré esa tabla en una hoja de excel, la voy a subir a la zana de descargas.
Tópico: AYUDA URGENTE IMSS
ByPaco Mensajes: 12	Foro: Seguridad Social Enviado: Julio 07, 2005 Asunto:
ByPaco Mensajes: 12	Gabriel: ¿se haria un bimestre antes de cumplir el periodo?
Tópico: CLAVE DE LA CALCULADORA FISCAL
ByPaco Mensajes: 27	Foro: Excel Enviado: Julio 07, 2005 Asunto: Re: CLAVE DE LA CALCULADORA FISCAL
ByPaco Mensajes: 27	Aqui la tienen: [code:1:66ff0bbfc0]Sub Desprotege() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For m = 65 To 66 For i1 = 65 To 66 For i2 = 65 To 66 For i3 = 65 To 66 For i4 = 65 To 66 For i5 = 65 To 66 For i6 = 65 To 66 For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "la hoja fue desprotegida" Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub [/code:1:66ff0bbfc0]
Tópico: Suma automatica en excel
ByPaco Mensajes: 52	Foro: Excel Enviado: Julio 07, 2005 Asunto: Re: Suma automatica en excel
ByPaco Mensajes: 52	[quote:1906925b3e="ROSAISELASANCHEZ"]:) No es para presumir pero dejenme decirles, que yo nunca tome un curso de excel, simplemente la necesidad me llevó a esforsarme para aprender excel y word yo solamente soy una simple contadora privada y mi trabajo me obligo a leer y practicar. En mi trabajo a escondida imprimia los manuales de excel y word y por las noches los leia y los ponia en practica en mi trabajo, lo mismo hice con nomipaq y contpaq y ahorita le puedo decir que los dómino, tal vez no al 100% pero al menos no estoy en blanco y lo unico que les puedo decir que necesidad te obliga a estudiar y aprender, no hay edad para no estuidiar o aprender. Y eso de que por qu no hay tiempo es un pretexto que nosotros como seres humanos damos a cualquier cosa cuando no queremos poner de nuestra parte por aprender y dar más de lo que tenemos o de lo que queremos. P.D. Todos los dias aprendemos algo nuevo siempre y cuando lo buscamos y queremos. Esto es un incentivo para nunca rendirnos ante las adversidades del mundo actual.[/quote:1906925b3e] tu eres de las mias, con todo respeto: [img:1906925b3e]http://smileys.smileycentral.com/cat/36/36_3_11.gif[/img:1906925b3e]
Tópico: Carga Batch de Clientes y Proveedores
ByPaco Mensajes: 3	Foro: Excel Enviado: Julio 07, 2005 Asunto:
ByPaco Mensajes: 3	Yo tengo la versión que corrio mucho en el periodo anterior a febrero, te la puedo facilitar solo tendras que bajarla de mi página, no sé si sea la misma que está en descargas de Fiscalia
Tópico: DIVIDIR NOMBRES COMPLETOS
ByPaco Mensajes: 17	Foro: Excel Enviado: Julio 07, 2005 Asunto: Re: DIVIDIR NOMBRES COMPLETOS
ByPaco Mensajes: 17	Ya que estamos con el tema, esta es la macro que uso, no requiere usar una cuarta celda, solo se posiciona en la columna que tiene el nombre y lo reemplazará e insertará las columnas de [i:f95b4b0423]Ap.Paterno, Ap.Materno y Nombre(s)[/i:f95b4b0423] [code:1:f95b4b0423]Sub SeparaNombres() ' Separa Nombres con división "/" en columnas con encabezado ' Macro recorded 02/10/2004 ByPaco ' Posicionarse en la primera celda a separar If Cells(ActiveCell.Row, ActiveCell.Column).Value = Empty Then GoTo fin ActiveCell.EntireColumn.Insert ActiveCell.EntireColumn.Insert ActiveCell.EntireColumn.Insert Cells(ActiveCell.Row, ActiveCell.Column + 3).Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Cells(ActiveCell.Row, ActiveCell.Column - 3), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)) Selection.EntireColumn.Delete ActiveCell.Offset(-1, -3).Range("A1").Select ActiveCell.FormulaR1C1 = "Ap.Paterno" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Ap.Materno" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Nombre(s)" ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit fin: End Sub[/code:1:f95b4b0423]
Tópico: FORMULA O ARCHIVO PARA CAMBIAR NUMEROS POR LETRAS
ByPaco Mensajes: 28	Foro: Excel Enviado: Julio 07, 2005 Asunto:
ByPaco Mensajes: 28	Debes tener cargado el complemento, verificalo en la lista del menu Herramientas submenu agregados, si no está le das al boton de buscar y lo llamas de donde esté.

Actualidades

Secciones

Herramientas

Especiales

Legislación

Herramientas

Dólar EUA

06/DIC/22

$19.3422

DOF 05/dic/22

INPC

OCT/22

125.276

Inflación +6.79%

Vista Rápida

1.47%

0.98%

7.644324

298.012

Accesos Directos

Tesis

Base de datos actualizada a:

Descargas

Comunidad

¿Qué es comunidad?

Reforma Fiscal 2023

Régimen Simplificado de Confianza (RESICO)

Complemento Carta Porte (CFDI)

¿Nuevo en Fiscalia?

¿Eres miembro Fiscalia?

Contenido

Enlaces

Contáctanos

Sitios del Grupo