¿Cómo hago para llevar un registro de los pagos semanales que le hago a un trabajador?
Tengo un recibo que me permite calcular lo que le corresponde al trabajador por su labor semanal, lo que deseo saber es cual macro pudiera utilizar para que cuando yo imprima ese recibo, la macro me permita guardar el total, para así, la próxima semana me lo vaya sumando y acumulando para que al finalizarel contrato del trabajador yo pueda saber cuanto ganó durante su tiempo de trabajo.
1 respuesta
Respuesta de Elsa Matilde
1
Te dejo la macro para pasar el importe al momento de imprimir.
Sub IMPRECIBO()
'
' IMPRECIBO Macro
'
'..........x Elsamatilde
'guarda dato del recibo en hoja Sumatoria
'se busca la col de la semana sabiendo que para la 1 es la col 2
colsem = [H1] + 1
'se guarda el nombre del empleado y se define la hoja donde buscar
empleado = [A7]
Set hsum = Sheets("SUMATORIA")
'se busca ese nombre en col A de hoja Sumatoria
Set busco = hsum.Range("A8:A" & hsum.Range("A" & Rows.Count).End(xlUp).Row).Find(empleado, LookIn:=xlValues, lookat:=xlWhole)
'si lo encuentra coloca el valor de B33
If Not busco Is Nothing Then
hsum.Cells(busco.Row, colsem) = [D33]
End If
'libero la variable
Set busco = Nothing
'..................
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End SubSdos. Ya continuaré con el otro tema en la otra consulta.
