How Do I Insert The Date Modified In A Spreadsheet Footer?

I am looking for code that will insert the modified date and time in the footer so I can keep track of all edits to a worksheet.

I am using the following code in a workbook:

Private Sub Workbook_Open()
ActiveSheet.PageSetup.CenterFooter = _
"Last Modified: " & ThisWorkbook.BuiltinDocumentProperties("last save time").Value
End Sub

It does a great job of changing the "Last Modified: " footer for each worksheet based on the last time I saved the document. However, I am seeing that the footer message on other worksheets will not change if I am not viewing those worksheets while I save.

Is there any way to modify this code so that the footer messages on all worksheets will change when I save the workbook?

Hello.

I'm having problems trying to get some uniformity in our documents. The problem is that all of our company Winword documents (thousands of documents) already have a table in the footer in which the following information is listed in sequential order:

Machine no.:
Filename:
Version:
Date:
Page x of x

The table is made up of 2 rows and 5 columns.
The bottom row is updated by the worker that processes the file.

Furthermore, we do not edit the winword footer but instead edit the document properties because there are fields in the winword footer that are connected to the document properties. In other words machine no., version and date are edited in the document properties and this changes the footer.

Can this be done in Excel with a footer?

I have found out how to insert the properties into the footer (in Excel), but not how to create a table in the footer.

I am working with Excel XP and I am looking for a way to have the current
date (static) display in the footer of all new files I create. I can create a
macro to insert the footer in the date but I cannot figure out how to get it
to run every time I create a new file. In Word, I can name the macro autonew
and I am all set. Any suggestions for Excel?
Thanks
Kristin

I have three questions and I am hoping I haven't reached limitations of Excel.
1. I am setting up custom headers and footers on my worksheet. Is there anyway to adjust the space to the left of the left Header & footer and to the right of the right header and footer? Even with my margins set for .25 around the outside edge, if moves the left header in to about .7 or so and same from the right edge.
2. In my custom footer, is there any way to get around the 255 character limit in the center footer? I am trying to fit in a disclaimer and we all know how long disclaimers can be!
3. I would like to put a File Created date in my custom footer on the left. Not a modified or updated field, does anyone know the code I would need to do this?

If there are no answers to these I guess I could just not use the custom header and footer options and hardcode this stuff in the worksheet. But I thought I would ask the gurus first!

Thanks you for your help,
Excel Novice
Ryan Kohlbeck

Hi I want to use the last row as the footer since the footer has a character limit. So my macro inserts a text to the last row in column A then it hides it so it wont print that. But I get an error. Please help.

Code:

Sub footer()


n = Cells(Rows.Count, "a").End(xlUp).Row + 1
Cells(n, "a").Value = "THIS WILL INSERT THE LAST ROW AS THE FOOTER, MORE THAN 250 CHAR, MORE THAN 250 CHARTHIS WILL INSERT THE LAST ROW AS THE FOOTER, MORE THAN 250 CHAR, MORE THAN 250 CHARTHIS WILL INSERT THE LAST ROW AS THE FOOTER, MORE THAN 250 CHAR, MORE THAN 250 CHARTHIS WILL INSERT THE LAST ROW AS THE FOOTER, MORE THAN 250 CHAR, MORE THAN 250 CHARTHIS WILL INSERT THE LAST ROW AS THE FOOTER, MORE THAN 250 CHAR, MORE THAN 250 CHARTHIS WILL INSERT THE LAST ROW AS THE FOOTER, MORE THAN 250 CHAR, MORE THAN 250 CHARTHIS WILL INSERT THE LAST ROW AS THE FOOTER, MORE THAN 250 CHAR, MORE THAN 250 CHAR"
Cells(n, "a").Font.Italic = True
Cells(n, "a").EntireRow.Hide = True

With ActiveSheet.PageSetup
.LeftFooter = Range(Cells(n, "a"))

End With
End Sub

You can insert the date field in the header or footer of the page setup so the current date always appears on the printed report. Go to File > Page Setup > Header/Footer and select the icon for date.

The date is formatted M/D/YY, so today's date would appear as 1/2/08

Can the formatting be changed to any other date formats already available in Excel? For example, "Wednesday, January 2, 2008"

I heard the default formatting for the date can be changed in one place that affects the formatting of the date in headers and footers in all Office applications (Word, Excel, Outlook, etc.) but I have no idea where this global setting might be.

I have a report that is showing me the children who turn three in a date range, the I have it giving me the total by county in a "group" footer which is all working correctly. What I want to add to the report is in the "page footer" I want it to total the three counties.
Armstrong has 4
Indiana has 3
Westmoreland 10
I just want to see the total of all three in the page footer. I did put a text box in the page footer =Sum([County]) but I keep getting an error message. Can you tell me what I am doing wrong?

Is there a way to have excel change the name in the footer of a spreadsheet
to the name of the person who last modified the the spreadsheet and also the
time of the last change. Not the time it was last viewed... but specifically
modified.

Hi
So I am int he middle of writing a program in VBA Macro that would loop through all the Excel files in a directory and change the footer. HOwever the code that I have now

.LeftFooter = "&[Date]"
.CenterFooter = "&[Path]&[File]"
.RightFooter = "&[Page]of &[Pages]"

VB i percieving this code (the code that appears in the View Header/Footer Window) As a string.. so its putting the word date on the left hand of the footer. Any Suggestions?

Hi
So I am int he middle of writing a program in VBA Macro that would loop through all the Excel files in a directory and change the footer. HOwever the code that I have now

.LeftFooter = "&[Date]"
.CenterFooter = "&[Path]&[File]"
.RightFooter = "&[Page]of &[Pages]"

VB i percieving this code (the code that appears in the View Header/Footer Window) As a string.. so its putting the word date on the left hand of the footer. Any Suggestions?

Hi
So I am int he middle of writing a program in VBA Macro that would loop through all the Excel files in a directory and change the footer. HOwever the code that I have now

.LeftFooter = "&[Date]"
.CenterFooter = "&[Path]&[File]"
.RightFooter = "&[Page]of &[Pages]"

VB i percieving this code (the code that appears in the View Header/Footer Window) As a string.. so its putting the word date on the left hand of the footer. Any Suggestions?

I want to put the last saved/modified date in a cell within a worksheet. I want this date to represent the last date the file was modified including the current date if I'm about to save the file which has just been modified. Can anyone help. Using Excel 2007.
thks

I would like to automatically insert Date Created & Date Modified into Excel Spreadsheet (Date Created & Date Modified of the same spreadsheet), however I can not find any formula for system type date fields. Any ideas?"

Hi,

I'm writing a document, and when I add a footer, it puts a horizontal double line along the top of my footer for me.

I don't want this line there between the footer and the main page, but I just can't seem to get rid of it (short of getting rid of the whole footer).

When I try to insert a blank footer, I still get this horizontal line.

Can anyone help??

I have a spreadsheet that works as a contract for various clients. In the footer, it shows the current date. That date is also supposed to represent the when the contract was initially offered.

When I send this form to my client or a representative, I would like for the footer to change from &[date] to whatever the date I assigned the contract. So, if I were to open the contract, it would read with today's date. I would assign it. Tomorrow, I want it to still read today's date.

Any ideas?

Thanks.

Hi am using the following macro to insert my footer. It works great, but How can I make it also insert the date and time into the left footer after the workbook name?

Code:

Sub PathFooter()
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Regular""&9" & ActiveWorkbook.FullName
End With
End Sub

Thank you.

I have this Excel file that I get periodically and I need to print it in my own printhead letter. Thus, I need to add a fixed header&footer.
Of course, I don't have to do this with every excel file I get, therefore I am thinking about a button in the quicktoolbar that I click when I want to add that specific Header&Footer.

I have 2 issues so far:
1) Although there's no image in my footer & header, The footer is longer than 255 chars, and apparently Excel doesn't allow more than those. I have different fonts & size in the header and footer themselves.
2) I managed to save the header & footer I want as images (from Word) in an Excel file, but then I don't know the VBA code to tell Excel "open this file and copy its footer and header".

I tried to search on the forum and over the internet but no luck so far. Any help?
Thanks guys!

I have a report with a report header and a report footer.
The detail is set to 4 columns. I want to display the data down then across.
When I do this the colums push the footer to the next page .
I have tried changing the page setup but no matter what I do the footer still displays on page 2 and is distorted by the footer.
If I set it to across then down everything is ok?
Can any one help or point me in the right direction.

(Excel 2007)

In a membership list spreadsheet I want to be able to put the file name (just name, not path, and the file name changes as it includes a version number) and the last modified date into two cells - not in a header/footer.

I've trawled the help file but can't see a way of doing this, maybe it's a custom function and/or some VBA script.

Can anyone help?