I want to display the last file save date in an excel spreadsheet
 

Is it possible to display the last file save date in an excel spreadsheet
like one can in Word?

D2

I want to display the last file save date in an excel spreadsheet
 

Hi,

Alt+F11 to open VB editor. Double click 'This Workbook' and paste this in on
the right. Change the sheet and column to suit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
lastrow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Cells(lastrow + 1, 1).Value = "Last saved " & Now
End Sub

Mike

Mike

"Export Waypoints from S&T ''06" wrote:

Is it possible to display the last file save date in an excel spreadsheet
like one can in Word?

D2

I want to display the last file save date in an excel spreadsheet
 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Worksheets("Sheet1").Range("A1").Value _
= "Last Saved on " & Format(Date, "mmmm dd, yyyy")
End Sub


Gord Dibben MS Excel MVP

On Mon, 22 Dec 2008 09:53:01 -0800, Export Waypoints from S&T ''06
wrote:

Is it possible to display the last file save date in an excel spreadsheet
like one can in Word?

D2

I want to display the last file save date in an excel spreadsheet
 

another way might be to use

Private Sub Workbook_BeforePrint(Cancel As Boolean)
lastrow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Cells(lastrow + 1, 1).Value = ActiveWorkbook.BuiltinDocumentProperties
(12)
End Sub



On 22 Gru, 20:27, Mike H wrote:
Hi,

Alt+F11 to open VB editor. Double click 'This Workbook' and paste this in on
the right. Change the sheet and column to suit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
lastrow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Cells(lastrow + 1, 1).Value = "Last saved " & Now
End Sub

Mike

Mike

"Export Waypoints from S&T ''06" wrote:



Is it possible to display the last file save date in an excel spreadsheet
like one can in Word?

D2- Ukryj cytowany tekst -

- Poka¿ cytowany tekst -