Discussion:
fecha de ultima actualizacion
(demasiado antiguo para responder)
batata
2012-02-10 19:08:43 UTC
Permalink
¡ 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
2012-02-13 00:01:15 UTC
Permalink
¿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
2012-02-13 14:57:10 UTC
Permalink
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
2012-02-13 15:24:36 UTC
Permalink
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
2015-10-16 11:09:39 UTC
Permalink
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
2018-02-01 21:15:15 UTC
Permalink
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
2023-02-02 01:08:13 UTC
Permalink
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
2023-04-12 19:08:33 UTC
Permalink
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
2018-03-23 20:57:33 UTC
Permalink
Aquí no encuentro nada
Continúe leyendo en narkive:
Loading...