Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Custom Headers and Footers
Hi,
Is it possible to use a formula into headers and footers? Regards John |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Custom Headers and Footers
First put the desired formulas into cells, say A1, A2, A3. Then put the
following macro in the workbook code area: Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Sheet1" Then Application.ScreenUpdating = False With ActiveSheet.PageSetup .LeftHeader = Range("A1").Value .CenterHeader = Range("A2").Value .RightHeader = Range("A3").Value End With Application.ScreenUpdating = True End If End Sub Whenever the sheet is printed, the values of cells A1, A2, and A3 will appear ing the header. -- Gary''s Student - gsnu2007g "John" wrote: Hi, Is it possible to use a formula into headers and footers? Regards John |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Custom Headers and Footers
Gary,
Many thanks but not quite what I wanted. Doing it that way I would Have to put a macro for every sheet (lots) and reference each sheet name. I would have like to have done something simple like "=Sheet1!A1" in the custom header box but it appears to simple for Excel. My research into this gave me answers like yours but not entirely what I need. Thanks for your efforts Many thanks again John "Gary''s Student" wrote in message ... First put the desired formulas into cells, say A1, A2, A3. Then put the following macro in the workbook code area: Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Sheet1" Then Application.ScreenUpdating = False With ActiveSheet.PageSetup .LeftHeader = Range("A1").Value .CenterHeader = Range("A2").Value .RightHeader = Range("A3").Value End With Application.ScreenUpdating = True End If End Sub Whenever the sheet is printed, the values of cells A1, A2, and A3 will appear ing the header. -- Gary''s Student - gsnu2007g "John" wrote: Hi, Is it possible to use a formula into headers and footers? Regards John |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can I save custom headers and footers to use in other files? | Excel Worksheet Functions | |||
Excel 2003 Too many inherited custom headers and footers | Excel Discussion (Misc queries) | |||
Inserting text into custom headers / footers | Excel Discussion (Misc queries) | |||
Headers and Footers...oh my! | Excel Discussion (Misc queries) | |||
repeated custom headers and footers | Excel Discussion (Misc queries) |