| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
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 - |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| save excel 2007 spreadsheet as a .wk1 file? | Excel Worksheet Functions | |||
| Excel 2007 - Save as a 123 or Lotus spreadsheet file? | Excel Discussion (Misc queries) | |||
| Can I write an excel formula to display the file save date? | Excel Worksheet Functions | |||
| How do I display the last saved date in an EXCEL spreadsheet? | Excel Discussion (Misc queries) | |||
| save excel spreadsheet as a csv file | Excel Worksheet Functions | |||
Linear Mode
