If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Custom Footer
How do I get a cell value to appear in the customized
footer? |
#2
|
|||
|
|||
Custom Footer
Rosemary, you can do it with VBA, something like this
ActiveSheet.PageSetup.RightFooter = Range("A1") or to put it in before the sheet prints use this Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.RightFooter = Range("A1") End Sub -- Paul B Always backup your data before trying something new Using Excel 2000 & 97 Please post any response to the newsgroups so others can benefit from it ** remove news from my email address to reply by email ** "Rosemary Liss" wrote in message ... How do I get a cell value to appear in the customized footer? |
#3
|
|||
|
|||
Custom Footer
Hello! This might solve my problem on getting the full
file path into a Header. But, sorry to be dim, how do you go about doing it with VBA? Write a macro or what? I'm not a VBA person. Please advise. Many, many thanks! Sally -----Original Message----- Rosemary, you can do it with VBA, something like this ActiveSheet.PageSetup.RightFooter = Range("A1") or to put it in before the sheet prints use this Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.RightFooter = Range("A1") End Sub -- Paul B Always backup your data before trying something new Using Excel 2000 & 97 Please post any response to the newsgroups so others can benefit from it ** remove news from my email address to reply by email ** "Rosemary Liss" wrote in message ... How do I get a cell value to appear in the customized footer? . |
#4
|
|||
|
|||
Custom Footer
use this,
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName End Sub To put in this macro, from your workbook right-click the workbook's icon and pick View Code. This icon is to the left of the "File" menu this will open the VBA editor, in the left hand window double click on thisworkbook, under your workbook name, and paste the code in the window that opens on the right hand side, press Alt and Q to close this window and go back to your workbook, now this will run every time you print the workbook. If you are using excel 2000 or newer you may have to change the macro security settings to get the macro to run. File must be saved first to get the full name. -- Paul B Always backup your data before trying something new Using Excel 2000 & 97 Please post any response to the newsgroups so others can benefit from it ** remove news from my email address to reply by email ** "sallyt" wrote in message ... Hello! This might solve my problem on getting the full file path into a Header. But, sorry to be dim, how do you go about doing it with VBA? Write a macro or what? I'm not a VBA person. Please advise. Many, many thanks! Sally -----Original Message----- Rosemary, you can do it with VBA, something like this ActiveSheet.PageSetup.RightFooter = Range("A1") or to put it in before the sheet prints use this Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.RightFooter = Range("A1") End Sub -- Paul B Always backup your data before trying something new Using Excel 2000 & 97 Please post any response to the newsgroups so others can benefit from it ** remove news from my email address to reply by email ** "Rosemary Liss" wrote in message ... How do I get a cell value to appear in the customized footer? . |
Thread Tools | |
Display Modes | |
|
|