| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding current date and contents of a cell in the footer
Is there a way to add the current date AND the contents of a certain cell in
the footer? I tried entering the following in the customized footer section to no avail: &[Date], [Sheets("Registration").Range("B7")] Thanks in advance. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding current date and contents of a cell in the footer
As far as I know this can be done only via VBA:
Sub lfooter() ActiveSheet.PageSetup.LeftFooter = "&D" & Sheets("Registration").Range("B7") End Sub You can insert this custom footer also directly via VBA Immediate window. Regards, Stefi €˛Carl€¯ ezt Ć*rta: Is there a way to add the current date AND the contents of a certain cell in the footer? I tried entering the following in the customized footer section to no avail: &[Date], [Sheets("Registration").Range("B7")] Thanks in advance. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding current date and contents of a cell in the footer
Thanks, Stefi.
I finally remembered that I had solved this problem several months back with the help of others in the forum. I am running the following macro when the sheets print and it works well. Thanks again. Sub CellInFooter() With ActiveSheet .PageSetup.LeftFooter = "&""Arial,Regular""&7 " & Format(Now(), "mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Registration").Range("B7").Value End With End Sub "Stefi" wrote: As far as I know this can be done only via VBA: Sub lfooter() ActiveSheet.PageSetup.LeftFooter = "&D" & Sheets("Registration").Range("B7") End Sub You can insert this custom footer also directly via VBA Immediate window. Regards, Stefi €˛Carl€¯ ezt Ć*rta: Is there a way to add the current date AND the contents of a certain cell in the footer? I tried entering the following in the customized footer section to no avail: &[Date], [Sheets("Registration").Range("B7")] Thanks in advance. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding current date and contents of a cell in the footer
You are welcome! Thanks for the feedback!
Stefi €˛Carl€¯ ezt Ć*rta: Thanks, Stefi. I finally remembered that I had solved this problem several months back with the help of others in the forum. I am running the following macro when the sheets print and it works well. Thanks again. Sub CellInFooter() With ActiveSheet .PageSetup.LeftFooter = "&""Arial,Regular""&7 " & Format(Now(), "mm/dd/yy") & ", CONFIDENTIAL " & Sheets("Registration").Range("B7").Value End With End Sub "Stefi" wrote: As far as I know this can be done only via VBA: Sub lfooter() ActiveSheet.PageSetup.LeftFooter = "&D" & Sheets("Registration").Range("B7") End Sub You can insert this custom footer also directly via VBA Immediate window. Regards, Stefi €˛Carl€¯ ezt Ć*rta: Is there a way to add the current date AND the contents of a certain cell in the footer? I tried entering the following in the customized footer section to no avail: &[Date], [Sheets("Registration").Range("B7")] Thanks in advance. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Date in cell keeps adding the current year. | Excel Discussion (Misc queries) | |||
| Insert current author's name in cell or footer in Excel?? | Setting up and Configuration of Excel | |||
| Can I lock cell contents after current date is past? | Excel Worksheet Functions | |||
| Contents of cell in footer | Excel Discussion (Misc queries) | |||
| Contents of cell in footer | Excel Discussion (Misc queries) | |||
Hybrid Mode
