Fiscalia

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ó?

Deberás separar los conceptos, como todos los compañeros recomiendan, por ahora tienes que integrar al salario el excedente de este concepto.

Ve las hojas de tamaño carta y al alto lo divides entre dos, esas son las medidas, el ancho que igual.

[quote:52f940b698="COPYNOTAS"]oigan pero especifiquen como se meten los datos en los controles por mas que le hago no encuentro como lo de la macro si se como hacerlo pero no se como meter los datos en los controles[/quote:52f940b698]Se da click con el botón secundario del mouse, y eliges asignar macro.

Se de un programa que hace algo similar, se llama Image Wizard, esta en ingles, y no pone la imagen como comentario sino que lo pega en una celda, si lo quieren probar busquenlo en www.spinnaker.org

Eso es de configuración del papel en la impresora

Autor	Mensaje
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ó?
Tópico: INTEGRACION DE PREMIO DE PUNTUALIDAD Y ASISTENCIA
ByPaco Mensajes: 12	Foro: Seguridad Social Enviado: Septiembre 02, 2005 Asunto:
ByPaco Mensajes: 12	Deberás separar los conceptos, como todos los compañeros recomiendan, por ahora tienes que integrar al salario el excedente de este concepto.
Tópico: Imprimir en Media Carta Excel?
ByPaco Mensajes: 7	Foro: Excel Enviado: Septiembre 02, 2005 Asunto:
ByPaco Mensajes: 7	Ve las hojas de tamaño carta y al alto lo divides entre dos, esas son las medidas, el ancho que igual.
Tópico: Auda
ByPaco Mensajes: 11	Foro: Excel Enviado: Septiembre 02, 2005 Asunto:
ByPaco Mensajes: 11	[quote:52f940b698="COPYNOTAS"]oigan pero especifiquen como se meten los datos en los controles por mas que le hago no encuentro como lo de la macro si se como hacerlo pero no se como meter los datos en los controles[/quote:52f940b698]Se da click con el botón secundario del mouse, y eliges asignar macro.
Tópico: Imagenes en excel
ByPaco Mensajes: 4	Foro: Excel Enviado: Septiembre 02, 2005 Asunto:
ByPaco Mensajes: 4	Se de un programa que hace algo similar, se llama Image Wizard, esta en ingles, y no pone la imagen como comentario sino que lo pega en una celda, si lo quieren probar busquenlo en www.spinnaker.org
Tópico: Imprimir en Media Carta Excel?
ByPaco Mensajes: 7	Foro: Excel Enviado: Septiembre 02, 2005 Asunto:
ByPaco Mensajes: 7	Eso es de configuración del papel en la impresora

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