stamp last time saved in a cell

[duration17]

Hello,

Is there a way to get in a cell the last time the file was saved?

Many thanks,

 

[njimack]

Paste the following into This Workbook module:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Date
End Sub

 

[smi123]

Hi
This should work

In the ThisWorkbook of the VBA Project
Change the general to workbook and then select the beforesave procedure. Copy in the sheets("sheet1")...... line below

Where "sheet1" is the name of your sheet and ("a1") is the cell you want to put the date in

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("sheet1").Range("a1").Value = Date
End Sub

If you are new to VBA then the following step by step should help

Select [Tools]
[Macro]
[Visual Basic Editor]
Double click on Thisworkbook (Bottom of VBA list of sheets)
On the right hand side window at the top you will see General
Click on the arrow next to it and select Workbook

Private sub workbook_open() will appear
On the top right side where the word open is click on the arrow
and moving up select before_save
and then copy in the line that save the date into the cell.

Every time the workbook is saved the date will appear in the cell

Trust this what you were after.

 

[duration17]

Thank you very much for your answer and explanation, it is exactly what I am looking for! thanks again!