Inserté unas filas en una hoja de excel y ahora la macrono me funciona
Para Dante Amor
Estimado usted me corrigió hace rato una macro para llevar un registro delo pagado en una nomina, al recibo de pago le inserté una líneas y ahora la macro no me funciona, se lo envié a su correo aver sime puede ayudar
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada
Sub IMPRECIBO()
'Por.Dante Amor
'IMPRECIBO Macro
Set h1 = Sheets("Recibos")
Set h2 = Sheets("SUMATORIA")
Set h3 = Sheets("TOTALSEMANA")
'
nombre = h1.[A8]
wtotal = h1.[H41]
utilid = h1.[D45]
colsem = h1.[h2] + 1
'
Set b = h2.Range("A:A").Find(nombre, LookIn:=xlValues, lookat:=xlWhole)
'si encuentra, coloca el valor de "Total utilidades en la semana"
If Not b Is Nothing Then
h2.Cells(b.Row, colsem) = utilid
End If
u = h3.Range("A" & Rows.Count).End(xlUp).Row + 1
If u < 7 Then u = 7
h3.Cells(u, "A") = nombre
h3.Cells(u, "I") = wtotal
h1.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
'
Sheets("DATOSSEMANA").Select
Range("A8").Select
MsgBox "Impresión de recibo terminada", vbInformation, "IMPRIMIR RECIBO"
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
