Impresión de Recibos de Nómina en Excel
Tengo la relación del personal de la empresa en una hoja de Excel con desglose de percepciones y retenciones en columnas y una fila por persona, tengo el formato del recibo de nómina donde se deben acomodar estos datos, ¿cómo hago para llenarlos de forma automática y que pueda tener la opción de imprimir todos o algunos en específico?
H o l a:
Envíame tu archivo con 3 hojas.
En la primera hoja pones la relación de personal con 2 ó 3 ejemplos completos.
En la segunda hoja pones el formato del recibo de nómina vacío.
En la tercera hoja pones el formato del recibo de nómina lleno con alguno de los ejemplos que pusiste en la primera hoja y con comentarios me explicas cómo llenaste el formato.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Fred Ro” y el título de esta pregunta.
¡Gracias! Ya te mandé la información. Saludos
Te anexo la macro para la impresión
Sub LlenarFormato1()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Sheets("NOMINA")
Set h2 = Sheets("FORMATO")
'
For i = 6 To h1.Range("A" & Rows.Count).End(xlUp).Row Step 2
'
h2.Copy after:=Sheets(Sheets.Count)
Set h3 = ActiveSheet
h3.Range("B2") = h1.Range("B" & i)
h3.Range("G2") = h1.Range("C" & i)
h3.Range("I2") = h1.Range("A" & i)
h3.Range("B4") = h1.Range("D" & i)
h3.Range("D4") = h1.Range("B2") 'celda fija
h3.Range("G4") = h1.Range("B1") 'celda fija
h3.Range("H4") = h1.Range("E" & i)
h3.Range("D8") = h1.Range("AH" & i)
h3.Range("D9") = h1.Range("AI" & i)
h3.Range("D10") = h1.Range("AJ" & i)
h3.Range("D11") = h1.Range("AK" & i)
h3.Range("E8") = h1.Range("AL" & i)
h3.Range("E9") = h1.Range("AM" & i)
h3.Range("E10") = h1.Range("AN" & i)
h3.Range("E11") = h1.Range("AO" & i)
h3.Range("E12") = h1.Range("AP" & i)
h3.Range("E13") = h1.Range("AQ" & i)
h3.Range("E14") = h1.Range("AR" & i)
h3.Range("E15") = h1.Range("AS" & i)
h3.Range("E16") = h1.Range("AT" & i)
h3.Range("E17") = h1.Range("AU" & i)
h3.Range("E18") = h1.Range("AV" & i)
h3.Range("I8") = h1.Range("AX" & i)
h3.Range("I9") = h1.Range("AY" & i)
h3.Range("I10") = h1.Range("AZ" & i)
h3.Range("I11") = h1.Range("BA" & i)
h3.Range("I12") = h1.Range("BB" & i)
h3.Range("I13") = h1.Range("BC" & i)
h3.Range("I14") = h1.Range("BD" & i)
h3.Range("I15") = h1.Range("BE" & i)
'
h3.Range("B26") = h1.Range("B" & i + 1)
h3.Range("G26") = h1.Range("C" & i + 1)
h3.Range("I26") = h1.Range("A" & i + 1)
h3.Range("B8") = h1.Range("D" & i + 1)
h3.Range("D8") = h1.Range("B2")
h3.Range("G8") = h1.Range("B1")
h3.Range("H8") = h1.Range("E" & i + 1)
h3.Range("D32") = h1.Range("AH" & i + 1)
h3.Range("D33") = h1.Range("AI" & i + 1)
h3.Range("D34") = h1.Range("AJ" & i + 1)
h3.Range("D35") = h1.Range("AK" & i + 1)
h3.Range("E32") = h1.Range("AL" & i + 1)
h3.Range("E33") = h1.Range("AM" & i + 1)
h3.Range("E34") = h1.Range("AN" & i + 1)
h3.Range("E35") = h1.Range("AO" & i + 1)
h3.Range("E36") = h1.Range("AP" & i + 1)
h3.Range("E37") = h1.Range("AQ" & i + 1)
h3.Range("E38") = h1.Range("AR" & i + 1)
h3.Range("E39") = h1.Range("AS" & i + 1)
h3.Range("E40") = h1.Range("AT" & i + 1)
h3.Range("E41") = h1.Range("AU" & i + 1)
h3.Range("E42") = h1.Range("AV" & i + 1)
h3.Range("I32") = h1.Range("AX" & i + 1)
h3.Range("I33") = h1.Range("AY" & i + 1)
h3.Range("I34") = h1.Range("AZ" & i + 1)
h3.Range("I35") = h1.Range("BA" & i + 1)
h3.Range("I36") = h1.Range("BB" & i + 1)
h3.Range("I37") = h1.Range("BC" & i + 1)
h3.Range("I38") = h1.Range("BD" & i + 1)
h3.Range("I39") = h1.Range("BE" & i + 1)
'
h3.PrintOut
h3.Delete
Next
MsgBox "Fin"
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
