+ Reply to Thread
Results 1 to 2 of 2

Header on one Sheet to Header/Footer on another sheet

  1. #1
    Registered User
    Join Date
    09-24-2012
    Location
    Tulsa, OK
    MS-Off Ver
    Excel 2003
    Posts
    7

    Header on one Sheet to Header/Footer on another sheet

    I have one workbook that contains 3 sheets. My problem is that there is information in the Left Header on Sheet 1 ("Summary") that needs to be copied to the Center Header on Sheet 3 ("Calculations") and the Center Footer on Sheet 2. The footer on Sheet 2 ("Pictures") can be the same font and size as the Left Header on Sheet 1 ("Summary"); however, The Center Header on Sheet 3 ("Calculations") needs to be Airal Bold, 24 Point.

    I am trying to set up the workbook so that the user can update the information on Sheet 1 and it will automatically update the other Header & Footers automatically.

    Any help would be greatly appreciated.

    I already have a code that pastes the contents from cell K1 from Sheet 3 to the footer of Sheet 1 and it works like a charm if anyone wants it:


    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With Worksheets("Summary").PageSetup
    .LeftFooter = Worksheets("Calculations").Range("K1").Value
    End With
    End Sub


    This last code will finally complete this worksheet. Thank you in advance for any help.

  2. #2
    Registered User
    Join Date
    09-24-2012
    Location
    Tulsa, OK
    MS-Off Ver
    Excel 2003
    Posts
    7

    Re: Header on one Sheet to Header/Footer on another sheet

    Okay, so I have finally solved this one and thought I would put the final code out there in case anyone needed it.

    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With Worksheets("Summary").PageSetup
    .LeftFooter = Worksheets("Calculations").Range("K1").Value
    End With
    With Worksheets("Calculations").PageSetup
    .CenterHeader = "&""Arial,bold""&24" & Worksheets("Summary").PageSetup.LeftHeader
    End With
    With Worksheets("Pictures").PageSetup
    .Centerfooter = Worksheets("Summary").PageSetup.LeftHeader
    End With
    End Sub

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1