Insert creation date in footer (Excel 2000)

Topic

New Reply

Sorry if this has been addressed before; I can’t wait until the Search feature is reinstated!

I have a user who would like the creation date of a worksheet to appear in the footer; she doesn’t want it to change on edit or update.

Thanks in advance for any help.

Kyle

Reply | Quote

Replies

How is this Worksheet being created? If it is being created by a macro, then the macro could insert the date into the footer.

Reply | Quote

How is this Worksheet being created? If it is being created by a macro, then the macro could insert the date into the footer.

Reply | Quote

Putting this macro into the Personal.xls allows it to be available for any worksheet. I also set up a button on the toolbar and link it to this macro. So, if I want to insert the origin (creation) date, I click on the button and this InputBox appears.
———————————————————-

Code:

Sub HeaderFooter()
Application.ScreenUpdating = False
myOrigin = InputBox("Enter origination date in MM/DD/YYYY format")

	ActiveSheet.PageSetup.PrintArea = ""
	With ActiveSheet.PageSetup
				.LeftFooter = "&9Data Date: " & myOrigin
		End With
Application.ScreenUpdating = True
End Sub

——————
Adjust to your appropriate needs.
Hope this helps
(I took out many other items for this example, so there may still be extra stuff. But you get the idea)

Reply | Quote

Putting this macro into the Personal.xls allows it to be available for any worksheet. I also set up a button on the toolbar and link it to this macro. So, if I want to insert the origin (creation) date, I click on the button and this InputBox appears.
———————————————————-

Code:

Sub HeaderFooter()
Application.ScreenUpdating = False
myOrigin = InputBox("Enter origination date in MM/DD/YYYY format")

	ActiveSheet.PageSetup.PrintArea = ""
	With ActiveSheet.PageSetup
				.LeftFooter = "&9Data Date: " & myOrigin
		End With
Application.ScreenUpdating = True
End Sub

——————
Adjust to your appropriate needs.
Hope this helps
(I took out many other items for this example, so there may still be extra stuff. But you get the idea)

Reply | Quote

You could use this (add it to the thisworkbook object), and then even if they manually change the footer, the center footer will get the creation date whenever they print it:

Steve

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim sht
    For Each sht In ActiveWindow.SelectedSheets
        sht.PageSetup.CenterFooter = "Created: " & _
            Format(ActiveWorkbook.BuiltinDocumentProperties("Creation date"), _
                "mmmm d, yyyy")
    Next
End Sub

Reply | Quote

Thanks, Steve. Another one to add to my arsenal.

Reply | Quote

Thanks, Steve. Another one to add to my arsenal.

Reply | Quote

You could use this (add it to the thisworkbook object), and then even if they manually change the footer, the center footer will get the creation date whenever they print it:

Steve

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim sht
    For Each sht In ActiveWindow.SelectedSheets
        sht.PageSetup.CenterFooter = "Created: " & _
            Format(ActiveWorkbook.BuiltinDocumentProperties("Creation date"), _
                "mmmm d, yyyy")
    Next
End Sub

Reply | Quote