Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.

Dismiss

fecha de ultima actualizacion

2,909 views

Skip to first unread message

batata

unread,

Feb 10, 2012, 2:08:43 PM2/10/12

¡ Hola !

Necesito que en una celda me aparezca la fecha de la ultima ves que el archivo
de excel tuvo cambios.

desde ya muchas gracias

Pedro F. Pardo

unread,

Feb 12, 2012, 7:01:15 PM2/12/12

¿La última vez que se salvó el fichero?
o
¿La última vez que alguien cambió un dato en alguna de las hojas aunque no lo haya guardado todavía?

¿Quieres que aparezca solo la fecha o también necesitas la hora?

Esta macro escribe la fecha y la hora en la celda A1 cada vez que se hace un cambio en el fichero. Pero es fácil modificarla si solo quieres que ocurra al guardar el fichero o si no quieres que aparezca la hora, por ejemplo.

Pulsa ALT+F11
Doble click en ThisWorkbook y pega el código de la macro.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1").Value = Now()
End Sub

Saludos

batata

unread,

Feb 13, 2012, 9:57:10 AM2/13/12

Hola Muchas gracias por tu respuesta.
Lo que necesito es la fecha y hora que se guardaron los cambios.

Pedro F. Pardo

unread,

Feb 13, 2012, 10:24:36 AM2/13/12

OK, prueba esto entonces...

Alt + F11
Doble Click en ThisWorkbook y pegar el siguiente código:

-------------8<-----------

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If (Cancel = False) Then

Range("A1").Value = Now()

End If
End Sub

-------------8<-----------

Esto escribirá la fecha y la hora en la celda A1, cámbialo en la macro para que se escriba la hora en la celda que tu quieras.

Si te pregunta si quieres salvar y pulsas CANCELAR no debería actualizar la fecha. Compruébalo ;-)

Saludos.