+ Reply to Thread
Results 1 to 2 of 2

addin to update footer

Hybrid View

vinod_excel addin to update footer 05-30-2013, 03:58 AM
JasperD Re: addin to update footer 05-30-2013, 05:39 AM
  1. #1
    Registered User
    Join Date
    07-13-2012
    Location
    Delhi
    MS-Off Ver
    Excel 2003
    Posts
    1

    addin to update footer

    need a addin which will ask for document type and update the footer with that eg. confidential or internal

  2. #2
    Forum Expert JasperD's Avatar
    Join Date
    05-07-2013
    Location
    Netherlands
    MS-Off Ver
    Excel 2016
    Posts
    1,393

    Re: addin to update footer

    No add-in needed, you'll have to make a userform with two option buttons (Confidential / Internal) and then set their action as follows :
    Private Sub OptionButton1_Click()
    ActiveSheet.PageSetup.CenterFooter = "CONFIDENTIAL"
    End Sub
    Private Sub OptionButton2_Click()
    ActiveSheet.PageSetup.CenterFooter = "INTERNAL"
    End Sub
    I assume you want to show the popup before print or something, so in the worksheet code, set :
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    UserForm1.Show
    End Sub
    Please click the * below if this helps

+ Reply to Thread

Thread Information

Users Browsing this Thread

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

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