Adding current date and contents of a cell in the footer

[Carl]

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.

 

[Stefi]

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:

 

[Carl]

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

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.

 

[Stefi]

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

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.