ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Cell to match footer (https://www.excelbanter.com/excel-worksheet-functions/181932-cell-match-footer.html)

texansgal

Cell to match footer
 
Can someone please give me the formula for a cell to match what the page
header or footer says?

Thanks!


JP[_4_]

Cell to match footer
 
Here's a series of short UDFs that will give you what you want. Paste
in a standard module (see http://www.rondebruin.nl/code.htm for
placement assistance).

Function GetLeftHeader()
GetLeftHeader = ActiveSheet.PageSetup.LeftHeader
End Function
Function GetCenterHeader()
GetCenterHeader = ActiveSheet.PageSetup.CenterHeader
End Function
Function GetRightHeader()
GetRightHeader = ActiveSheet.PageSetup.RightHeader
End Function
Function GetLeftFooter()
GetLeftFooter = ActiveSheet.PageSetup.LeftFooter
End Function
Function GetCenterFooter()
GetCenterFooter = ActiveSheet.PageSetup.CenterFooter
End Function
Function GetRightFooter()
GetRightFooter = ActiveSheet.PageSetup.RightFooter
End Function


To use: Just put the function name on the cell, prefixed by an equal
sign. For example, to get the left header text in cell A1:

=GetLeftHeader()

If you use this code in your PERSONAL.XLS workbook, you may have to
prefix the code like this:

=PERSONAL.XLS!GetLeftHeader()


HTH,
JP

On Mar 31, 11:37*am, texansgal
wrote:
Can someone please give me the formula for a cell to match what the page
header or footer says?

Thanks!




All times are GMT +1. The time now is 08:21 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com