| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Last Saved Date in Footer (right aligned)
I need for the "last saved date" to appear each time the excel workbook is
SAVED (not necessarily printed). I would like the footer to have the following literal so that folks reviewing understand this is a "last saved date" and not a "printed date": Last Revision Date: <lastrevisiondate I'm sure this requires code and I am by no means a coding person! Can anyone help please? |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Last Saved Date in Footer (right aligned)
Just paste the following macro into the ThisWorkbok area:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.PageSetup.RightFooter = Format(Now(), "mm/dd/yyy") End Sub -- Gary''s Student - gsnu200737 "CherylH" wrote: I need for the "last saved date" to appear each time the excel workbook is SAVED (not necessarily printed). I would like the footer to have the following literal so that folks reviewing understand this is a "last saved date" and not a "printed date": Last Revision Date: <lastrevisiondate I'm sure this requires code and I am by no means a coding person! Can anyone help please? |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Last Saved Date in Footer (right aligned)
Cheryl,
Try, Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With ActiveSheet.PageSetup.RightFooter = "Last saved " & Date End Sub Mike "CherylH" wrote: I need for the "last saved date" to appear each time the excel workbook is SAVED (not necessarily printed). I would like the footer to have the following literal so that folks reviewing understand this is a "last saved date" and not a "printed date": Last Revision Date: <lastrevisiondate I'm sure this requires code and I am by no means a coding person! Can anyone help please? |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Last Saved Date in Footer (right aligned)
Which should of course be:-
ActiveSheet.PageSetup.RightFooter = "Last saved " & Date "Mike H" wrote: Cheryl, Try, Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With ActiveSheet.PageSetup.RightFooter = "Last saved " & Date End Sub Mike "CherylH" wrote: I need for the "last saved date" to appear each time the excel workbook is SAVED (not necessarily printed). I would like the footer to have the following literal so that folks reviewing understand this is a "last saved date" and not a "printed date": Last Revision Date: <lastrevisiondate I'm sure this requires code and I am by no means a coding person! Can anyone help please? |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Last Saved Date in Footer (right aligned)
Thank you for the response. One thing: I need to have the literal "Last
Revision Date:" prior to the actual date. How do I modify what you've given to me for this to occur? Again, thank you! "Gary''s Student" wrote: Just paste the following macro into the ThisWorkbok area: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.PageSetup.RightFooter = Format(Now(), "mm/dd/yyy") End Sub -- Gary''s Student - gsnu200737 "CherylH" wrote: I need for the "last saved date" to appear each time the excel workbook is SAVED (not necessarily printed). I would like the footer to have the following literal so that folks reviewing understand this is a "last saved date" and not a "printed date": Last Revision Date: <lastrevisiondate I'm sure this requires code and I am by no means a coding person! Can anyone help please? |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Last Saved Date in Footer (right aligned)
Hi Mike,
Thanks for the response. Unfortunately I get a compile error - I tried several times (cut and pasting your info below). Any ideas? "CherylH" wrote: I need for the "last saved date" to appear each time the excel workbook is SAVED (not necessarily printed). I would like the footer to have the following literal so that folks reviewing understand this is a "last saved date" and not a "printed date": Last Revision Date: <lastrevisiondate I'm sure this requires code and I am by no means a coding person! Can anyone help please? |
|
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Last Saved Date in Footer (right aligned)
Cheryl,
Alt + F11 to open VB editor Double click "This Workbook" From the dropdowns on the right panel select "Workbook" and in the other dropdown select "Before Save" Paste the line of code in there ActiveSheet.PageSetup.RightFooter = "Last saved " & Date Mike "CherylH" wrote: Hi Mike, Thanks for the response. Unfortunately I get a compile error - I tried several times (cut and pasting your info below). Any ideas? "CherylH" wrote: I need for the "last saved date" to appear each time the excel workbook is SAVED (not necessarily printed). I would like the footer to have the following literal so that folks reviewing understand this is a "last saved date" and not a "printed date": Last Revision Date: <lastrevisiondate I'm sure this requires code and I am by no means a coding person! Can anyone help please? |
|
#8
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Last Saved Date in Footer (right aligned)
You would change the second line to:
ActiveSheet.PageSetup.RightFooter = "Last Revision Date:" & Format(Now(), "mm/dd/yyy") -- Regards, Fred "CherylH" wrote in message ... Thank you for the response. One thing: I need to have the literal "Last Revision Date:" prior to the actual date. How do I modify what you've given to me for this to occur? Again, thank you! "Gary''s Student" wrote: Just paste the following macro into the ThisWorkbok area: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.PageSetup.RightFooter = Format(Now(), "mm/dd/yyy") End Sub -- Gary''s Student - gsnu200737 "CherylH" wrote: I need for the "last saved date" to appear each time the excel workbook is SAVED (not necessarily printed). I would like the footer to have the following literal so that folks reviewing understand this is a "last saved date" and not a "printed date": Last Revision Date: <lastrevisiondate I'm sure this requires code and I am by no means a coding person! Can anyone help please? |
|
#9
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Last Saved Date in Footer (right aligned)
Hey Mike.
Can you tell me how I can also add the time (the time the doc was modified)? i.e. Last Saved: 09/05/07 08:42am Thank you! "Mike H" wrote: Cheryl, Alt + F11 to open VB editor Double click "This Workbook" From the dropdowns on the right panel select "Workbook" and in the other dropdown select "Before Save" Paste the line of code in there ActiveSheet.PageSetup.RightFooter = "Last saved " & Date Mike "CherylH" wrote: Hi Mike, Thanks for the response. Unfortunately I get a compile error - I tried several times (cut and pasting your info below). Any ideas? "CherylH" wrote: I need for the "last saved date" to appear each time the excel workbook is SAVED (not necessarily printed). I would like the footer to have the following literal so that folks reviewing understand this is a "last saved date" and not a "printed date": Last Revision Date: <lastrevisiondate I'm sure this requires code and I am by no means a coding person! Can anyone help please? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to: Excel footer which tells me which user last saved sheet | Excel Discussion (Misc queries) | |||
| Excel "Last Saved" in Footer | Excel Discussion (Misc queries) | |||
| Formula for Last Saved on outside of Header/Footer | Excel Worksheet Functions | |||
| How can I get yesterdays date in a custom footer &[DATE]-1 does . | Charts and Charting in Excel | |||
| How to insert date last saved into the sheet (not the footer) | Excel Worksheet Functions | |||
Linear Mode
