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.

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.

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.

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.