Insertar Fecha y hora al abrir libro de excel

Tengo un libro de Excel que necesito que automáticamente inserte en un registro la fecha de apertura y de cierre, he insertado el siguiente código pero no me hace lo esperado

Private Sub Workbook_Open()
Dim fechaActual As Date
Dim horaActual As Date
Range("A1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = Date
Loop

Private Sub Workbook_close()

End Sub

2 Respuestas

Respuesta
2

Pon lo siguiente, pero en los eventos de thisworkbook

Private Sub Workbook_Open()
  Range("A" & Rows.Count).End(3)(2).Value = Now
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Range("A" & Rows.Count).End(3).Offset(, 1).Value = Now
  ActiveWorkbook.Save
End Sub

sal u dos

Dante Amor

Así:

Recomendaciones:

Evento change

Mostrar imagen

Imagen

Respuesta
1

Pedro, yo no tengo ni idea de Excel, pero la función Now() te muestra la fecha y la hora del sistema, por lo que no necesitas definir ninguna variable.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas