Results 1 to 5 of 5
  1. #1
    Lounger
    Join Date
    Feb 2001
    Location
    Upstate, New York, USA
    Posts
    47
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Insert creation date in footer (Excel 2000)

    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

  2. #2
    Uranium Lounger
    Join Date
    Jan 2001
    Location
    South Carolina, USA
    Posts
    7,295
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Insert creation date in footer (Excel 2000)

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

  3. #3
    2 Star Lounger
    Join Date
    Jan 2002
    Location
    Missouri, USA
    Posts
    103
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Insert creation date in footer (Excel 2000)

    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)

  4. #4
    WS Lounge VIP sdckapr's Avatar
    Join Date
    Jul 2002
    Location
    Pittsburgh, Pennsylvania, USA
    Posts
    11,225
    Thanks
    14
    Thanked 342 Times in 335 Posts

    Re: Insert creation date in footer (Excel 2000)

    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

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


  5. #5
    2 Star Lounger
    Join Date
    Jan 2002
    Location
    Missouri, USA
    Posts
    103
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Insert creation date in footer (Excel 2000)

    Thanks, Steve. Another one to add to my arsenal. :-)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •