Como acceder a la fecha de modificacion del archivo abierto

Puedes utilizar una función personalizada como:
Function LastSaved()
LastSaved = ActiveWorkbook.BuiltinDocumentProperties("Last Save
Time").Value
End Function
Esta fórmula devuelve la fecha de la última vez que se guardó el documento.
Si quieres la fecha de la última impresión, cambia "Last Save Time" por "Last
Print Date"

Espero que te sirva,
Miguel.

"RAUL VM" wrote:

Deseo integrar en una celda la fecha de la última modificación al archivo en
que estoy trabajando, para tener control de los reportes entregados, que
normalmente llevan la fecha de impresion, que es lo que ofrece el encabezado.
Podría ponerlo en forma manual, para cada archivo, pero también podría
hacerlo en una máquina de escribir, pero estos tiempos han quedado atras.
Gracias anticipadas por el interés que brinden a mi duda

También si se hicieron modificaciones y no se ha grabado, podrías utilizar el
evento Change de una hoja específica:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("AlgunaHoja").Cells(1, 1).Value = Date & " " & Time
End Sub



"RAUL VM" escribió:

Deseo integrar en una celda la fecha de la última modificación al archivo en
que estoy trabajando, para tener control de los reportes entregados, que
normalmente llevan la fecha de impresion, que es lo que ofrece el encabezado.
Podría ponerlo en forma manual, para cada archivo, pero también podría
hacerlo en una máquina de escribir, pero estos tiempos han quedado atras.
Gracias anticipadas por el interés que brinden a mi duda

Gracias MIGUEL:
Ya la usé y funciona bien
sin embargo veo que no se acualiza cuando hago una nueva modificación, sino
que se queda registrado en la celda el dato de la última modificación de
cuando la función fue invocada, es decir, cuanod haga una modificación, debo
invocar de nuevo la función.
No es como la función AHORA(), que cada vez que se recalcula la hoja, toma
el nuevo dato.
De todos modos, esto me sirve muchísimo y te agradezco la información
RAUL VM

"Miguel Zapico" escribió:

Puedes utilizar una función personalizada como:
Function LastSaved()
LastSaved = ActiveWorkbook.BuiltinDocumentProperties("Last Save
Time").Value
End Function
Esta fórmula devuelve la fecha de la última vez que se guardó el documento.
Si quieres la fecha de la última impresión, cambia "Last Save Time" por "Last
Print Date"

Espero que te sirva,
Miguel.

"RAUL VM" wrote:

> Deseo integrar en una celda la fecha de la última modificación al archivo en
> que estoy trabajando, para tener control de los reportes entregados, que
> normalmente llevan la fecha de impresion, que es lo que ofrece el encabezado.
> Podría ponerlo en forma manual, para cada archivo, pero también podría
> hacerlo en una máquina de escribir, pero estos tiempos han quedado atras.
> Gracias anticipadas por el interés que brinden a mi duda

David:
Gracias por tu comentario que por cierto, dado mi nivel de conocimiento de
EXCEL (solo soy usuario), no entiendo el significado de lo que mencionas,
empezando por "evento Change"
De todos modos muchas gracias por tu interés

"David" escribió:

También si se hicieron modificaciones y no se ha grabado, podrías utilizar el
evento Change de una hoja específica:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("AlgunaHoja").Cells(1, 1).Value = Date & " " & Time
End Sub



"RAUL VM" escribió:

> Deseo integrar en una celda la fecha de la última modificación al archivo en
> que estoy trabajando, para tener control de los reportes entregados, que
> normalmente llevan la fecha de impresion, que es lo que ofrece el encabezado.
> Podría ponerlo en forma manual, para cada archivo, pero también podría
> hacerlo en una máquina de escribir, pero estos tiempos han quedado atras.
> Gracias anticipadas por el interés que brinden a mi duda

Con esta modificación la función debería recalcularse automaticamente:
Function LastSaved()
Application.Volatile
LastSaved = ActiveWorkbook.BuiltinDocumentProperties("Last Save
Time").Value
End Function

Miguel.

"RAUL VM" wrote:

Gracias MIGUEL:
Ya la usé y funciona bien
sin embargo veo que no se acualiza cuando hago una nueva modificación, sino
que se queda registrado en la celda el dato de la última modificación de
cuando la función fue invocada, es decir, cuanod haga una modificación, debo
invocar de nuevo la función.
No es como la función AHORA(), que cada vez que se recalcula la hoja, toma
el nuevo dato.
De todos modos, esto me sirve muchísimo y te agradezco la información
RAUL VM

"Miguel Zapico" escribió:

> Puedes utilizar una función personalizada como:
> Function LastSaved()
> LastSaved = ActiveWorkbook.BuiltinDocumentProperties("Last Save
> Time").Value
> End Function
> Esta fórmula devuelve la fecha de la última vez que se guardó el documento.
> Si quieres la fecha de la última impresión, cambia "Last Save Time" por "Last
> Print Date"
>
> Espero que te sirva,
> Miguel.
>
> "RAUL VM" wrote:
>
> > Deseo integrar en una celda la fecha de la última modificación al archivo en
> > que estoy trabajando, para tener control de los reportes entregados, que
> > normalmente llevan la fecha de impresion, que es lo que ofrece el encabezado.
> > Podría ponerlo en forma manual, para cada archivo, pero también podría
> > hacerlo en una máquina de escribir, pero estos tiempos han quedado atras.
> > Gracias anticipadas por el interés que brinden a mi duda