fecha de ultima actualizacion

[batata]

¡ Hola

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

desde ya muchas gracias

[Pedro F. Pardo]

¿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]

Pedro F. Pardo escribió el 13/02/2012 01:01

Post by Pedro F. Pardo
¿La última vez que se salvó el fichero
¿La última vez que alguien cambió un dato en alguna de la
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 u
cambio en el fichero. Pero es fácil modificarla si solo quieres qu
ocurra al guardar el fichero o si no quieres que aparezca la hora, po

ejemplo

Post by Pedro F. Pardo
Pulsa ALT+F1
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 Su
Saludo

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

[Pedro F. Pardo]

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.

[c***@gmail.com]

Post by Pedro F. Pardo
OK, prueba esto entonces...
Alt + F11
-------------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.

Cojonuda la macro, justo lo que iba buscando y no encontré, muchas gracias.

[d***@gmail.com]

Post by Pedro F. Pardo
OK, prueba esto entonces...
Alt + F11
-------------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.

Excelente!

[Omar Muñoz]

Post by Pedro F. Pardo
OK, prueba esto entonces...
Alt + F11
-------------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.

COMO SERIA SI:
¿La última vez que alguien cambió un dato en alguna de las hojas aunque no lo haya guardado todavía? COMO SERIA?????

[angel tellez cardenas]

Post by Pedro F. Pardo
OK, prueba esto entonces...
Alt + F11
-------------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.

muchas gracias... es lo que estaba buscando hacer.

[j***@gmail.com]

Aquí no encuentro nada