jueves, 5 de diciembre de 2013

Ultima fila excel

 
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
'Referenciar la celda y asignarle valor
    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

viernes, 25 de octubre de 2013