Home |
Search |
Today's Posts |
#1
|
|||
|
|||
what code pulls in contents of a cell in an Excel header/footer?
I want to put a code in a header/footer to pull in the contents of cell a1.
I thought it was \A1, but this doesn't work, and I can't find any reference to how to do this. |
#2
|
|||
|
|||
Ronny,
To my knowledge, there's no code. But you can paste this into the ThisWorkbook module: Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("Sheet1").PageSetup.CenterHeader = Sheets("Sheet1").Range("A1").Value End Sub To do that, get into the VBE (Alt - F11). Double-click the ThisWorkbook item in the Project manager, which should open a window for the code behind the workbook. Then paste the code in from here. It will set the page header to the contents of A1 before you do a print or print preview. -- Earl Kiosterud www.smokeylake.com "Ronnyk" wrote in message ... I want to put a code in a header/footer to pull in the contents of cell a1. I thought it was \A1, but this doesn't work, and I can't find any reference to how to do this. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
what code pulls in contents of a cell in an Excel header/foote
I have a similar issue and I used this VBA code and it worked. However, I
have nineteen different worksheets w/charts on each which I would like to have the info from a cell placed as the header when each worksheet is printed. How do I modify this code to accomplish this? "Earl Kiosterud" wrote: Ronny, To my knowledge, there's no code. But you can paste this into the ThisWorkbook module: Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("Sheet1").PageSetup.CenterHeader = Sheets("Sheet1").Range("A1").Value End Sub To do that, get into the VBE (Alt - F11). Double-click the ThisWorkbook item in the Project manager, which should open a window for the code behind the workbook. Then paste the code in from here. It will set the page header to the contents of A1 before you do a print or print preview. -- Earl Kiosterud www.smokeylake.com "Ronnyk" wrote in message ... I want to put a code in a header/footer to pull in the contents of cell a1. I thought it was \A1, but this doesn't work, and I can't find any reference to how to do this. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
what code pulls in contents of a cell in an Excel header/foote
Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets 'or For Each ws in ActiveWindow.SelectedSheets ws.PageSetup.CenterHeader = ws.Range("A1").Value Next Gord Dibben MS Excel MVP On Thu, 13 Sep 2007 12:00:03 -0700, quattda wrote: I have a similar issue and I used this VBA code and it worked. However, I have nineteen different worksheets w/charts on each which I would like to have the info from a cell placed as the header when each worksheet is printed. How do I modify this code to accomplish this? "Earl Kiosterud" wrote: Ronny, To my knowledge, there's no code. But you can paste this into the ThisWorkbook module: Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("Sheet1").PageSetup.CenterHeader = Sheets("Sheet1").Range("A1").Value End Sub To do that, get into the VBE (Alt - F11). Double-click the ThisWorkbook item in the Project manager, which should open a window for the code behind the workbook. Then paste the code in from here. It will set the page header to the contents of A1 before you do a print or print preview. -- Earl Kiosterud www.smokeylake.com "Ronnyk" wrote in message ... I want to put a code in a header/footer to pull in the contents of cell a1. I thought it was \A1, but this doesn't work, and I can't find any reference to how to do this. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using other workbooks.. | Excel Worksheet Functions | |||
Pasting Word table cell with paragraph markers into single Excel c | Excel Discussion (Misc queries) | |||
Possible Lookup Table | Excel Worksheet Functions | |||
Copy cell format to cell on another worksht and update automatical | Excel Worksheet Functions | |||
GET.CELL | Excel Worksheet Functions |