Fiscalia

Acabo de ingresar a el y si lo abre. son las 19:20 hrs del 06 Sep 2005. Pero no confundir el Tramitanet con el IDSE que hay veces que se entra por el portal de tramitanet.

Hola gabriel, cuando le das responder a un mensaje, te aparecen varias herramientas en la parte superior de donde escribes, y una de ellas se llama Code. Selecciono el código y le doy Code Para más información haz click en la flecha [url=http://www.fiscalia.com/modules.php?name=Forums&file=faq&mode=bbcode]:arrow: [/url]

Yo considero dias efectivamente pagados, para ese cálculo

Dale una buscadita, hay un tópico que habla de lo mismo, es de hace días

Se habia tratado este tema con aterioridad, y se dijo en esa ocación que es debido a una pequeña variante entre los centavos calculados y los grabados en el disco, si usas los indices de base 1994=100 (anteriores), podrias cambiar a la base 2004=100 (actuales), bajando un archivo que esta en la zona de descargas, y reemplazando el del SUA.

No Brendita no te vuelvas loca, por favor. Podrias vincular los dato al otro libro, y luego rellenar con el mouse

No Gabriel, porque el nombre propio te pone mayuscula al inicio de cada palabra, y esta macro solo la primera letra de la frase.

Claro que si Gabriel (Saludos) con mucho gusto, es esta nueva versión corregida y aumentada :D se soluciona el error que le causaba a Blanca por no tener vacia la primera fila, además agregué la opción de cambiar el nombre de los encabezados: [code:1:0beedd23d6]Sub SeparaNombres() ' Separa Nombres con división "/" en columnas con encabezado ' Macro recorded 05/09/2005 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 'si causa error por no tener vacia la celda superior, inserta una On Error GoTo Ins ActiveCell.Offset(-1, 0).Range("A1").Select Ins: If Err = 1004 Then Selection.End(xlUp).Select Selection.EntireRow.Insert Cells(ActiveCell.Row, ActiveCell.Column).Select End If On Error Resume Next ActiveCell.Offset(0, -3).Range("A1").Select ActiveCell.FormulaR1C1 = InputBox("Primer encabezado, normalmente apellido paterno", "Encabezado", "Ap.Paterno") ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = InputBox("Segundo encabezado, normalmente apellido materno", "Encabezado", "Ap.Materno") ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = InputBox("Tercer encabezado, normalmente nombre(s)", "Encabezado", "Nombre(s)") ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit fin: End Sub [/code:1:0beedd23d6] Espero y les funcione a todos, si no avisenme y trataré de corregirlo lo más pronto posible

Entonces ya no seria premio de Puntualidad y asistencias, seria despensa, y se manejaría como tal.

Aunque no entiendo el error porque la macro en la linea que dice: Cells(ActiveCell.Row, ActiveCell.Column + 3).Select significa que te posiciona tres columnas a la derecha de tu celda seleccionada. ¿Que pasó?

Autor	Mensaje
Tópico: que pasa con tramitanet?
ByPaco Mensajes: 7	Foro: Software Enviado: Septiembre 06, 2005 Asunto:
ByPaco Mensajes: 7	Acabo de ingresar a el y si lo abre. son las 19:20 hrs del 06 Sep 2005. Pero no confundir el Tramitanet con el IDSE que hay veces que se entra por el portal de tramitanet.
Tópico: SeparaNombres
ByPaco Mensajes: 11	Foro: Excel Enviado: Septiembre 06, 2005 Asunto:
ByPaco Mensajes: 11	Hola gabriel, cuando le das responder a un mensaje, te aparecen varias herramientas en la parte superior de donde escribes, y una de ellas se llama Code. Selecciono el código y le doy Code Para más información haz click en la flecha [url=http://www.fiscalia.com/modules.php?name=Forums&file=faq&mode=bbcode]:arrow: [/url]
Tópico: Duda en el calculo de SDI Mixto
ByPaco Mensajes: 6	Foro: Seguridad Social Enviado: Septiembre 05, 2005 Asunto:
ByPaco Mensajes: 6	Yo considero dias efectivamente pagados, para ese cálculo
Tópico: incapacidad y modificacion
ByPaco Mensajes: 7	Foro: Seguridad Social Enviado: Septiembre 05, 2005 Asunto:
ByPaco Mensajes: 7	Dale una buscadita, hay un tópico que habla de lo mismo, es de hace días
Tópico: Problemas con el SUA
ByPaco Mensajes: 16	Foro: Software Enviado: Septiembre 05, 2005 Asunto:
ByPaco Mensajes: 16	Se habia tratado este tema con aterioridad, y se dijo en esa ocación que es debido a una pequeña variante entre los centavos calculados y los grabados en el disco, si usas los indices de base 1994=100 (anteriores), podrias cambiar a la base 2004=100 (actuales), bajando un archivo que esta en la zona de descargas, y reemplazando el del SUA.
Tópico: COPIAR DE UN LIBRO A OTRO
ByPaco Mensajes: 17	Foro: Excel Enviado: Septiembre 05, 2005 Asunto:
ByPaco Mensajes: 17	No Brendita no te vuelvas loca, por favor. Podrias vincular los dato al otro libro, y luego rellenar con el mouse
Tópico: macro primera letra en mayusculas
ByPaco Mensajes: 14	Foro: Excel Enviado: Septiembre 05, 2005 Asunto:
ByPaco Mensajes: 14	No Gabriel, porque el nombre propio te pone mayuscula al inicio de cada palabra, y esta macro solo la primera letra de la frase.
Tópico: SeparaNombres
ByPaco Mensajes: 11	Foro: Excel Enviado: Septiembre 05, 2005 Asunto: Re: SeparaNombres
ByPaco Mensajes: 11	Claro que si Gabriel (Saludos) con mucho gusto, es esta nueva versión corregida y aumentada :D se soluciona el error que le causaba a Blanca por no tener vacia la primera fila, además agregué la opción de cambiar el nombre de los encabezados: [code:1:0beedd23d6]Sub SeparaNombres() ' Separa Nombres con división "/" en columnas con encabezado ' Macro recorded 05/09/2005 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 'si causa error por no tener vacia la celda superior, inserta una On Error GoTo Ins ActiveCell.Offset(-1, 0).Range("A1").Select Ins: If Err = 1004 Then Selection.End(xlUp).Select Selection.EntireRow.Insert Cells(ActiveCell.Row, ActiveCell.Column).Select End If On Error Resume Next ActiveCell.Offset(0, -3).Range("A1").Select ActiveCell.FormulaR1C1 = InputBox("Primer encabezado, normalmente apellido paterno", "Encabezado", "Ap.Paterno") ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = InputBox("Segundo encabezado, normalmente apellido materno", "Encabezado", "Ap.Materno") ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = InputBox("Tercer encabezado, normalmente nombre(s)", "Encabezado", "Nombre(s)") ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit fin: End Sub [/code:1:0beedd23d6] Espero y les funcione a todos, si no avisenme y trataré de corregirlo lo más pronto posible
Tópico: premio de puntualidad y asistencia se puede ?
ByPaco Mensajes: 20	Foro: Seguridad Social Enviado: Septiembre 05, 2005 Asunto:
ByPaco Mensajes: 20	Entonces ya no seria premio de Puntualidad y asistencias, seria despensa, y se manejaría como tal.
Tópico: SeparaNombres
ByPaco Mensajes: 11	Foro: Excel Enviado: Septiembre 05, 2005 Asunto:
ByPaco Mensajes: 11	Aunque no entiendo el error porque la macro en la linea que dice: Cells(ActiveCell.Row, ActiveCell.Column + 3).Select significa que te posiciona tres columnas a la derecha de tu celda seleccionada. ¿Que pasó?

Actualidades

Secciones

Herramientas

Especiales

Legislación

Herramientas

Dólar EUA

25/ABR/24

$16.9995

DOF 24/abr/24

INPC

MAR/24

134.065

Inflación +1.28%

Vista Rápida

1.47%

0.98%

8.128018

312.332

Accesos Directos

Tesis

Base de datos actualizada a:

Descargas

Comunidad

¿Qué es comunidad?

Declaración anual 2023 de Personas Físicas

Declaración anual 2023 de Personas Morales

Factura Electrónica CFDI 4.0

¿Nuevo en Fiscalia?

¿Eres miembro Fiscalia?

Contenido

Enlaces

Contáctanos

Sitios del Grupo