Copia este código igual como esta debajo luego si cámbialo conforme a tu necesidad.
Sub Registrar()
'Asignar nombre a la funcion como variable
Ultimafila = Worksheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Ultimafila = Worksheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Referenciar la celda y asignarle valor
Worksheets("Hoja1").Cells(Ultimafila, 1) = Now
'Mensaje opcional para el registro
MsgBox (Worksheets("Hoja1").Cells(Ultimafila, 1))
Worksheets("Hoja1").Cells(Ultimafila, 1) = Now
'Mensaje opcional para el registro
MsgBox (Worksheets("Hoja1").Cells(Ultimafila, 1))
End Sub
Deja tu comentario y sígueme el Twitter: @roy_merlano
No hay comentarios:
Publicar un comentario