VB Excel 2003 Multipage Control

Posted on 2011-10-20
Last Modified: 2012-06-21
I have a form that has a multipage control on it.  I would like to have it return to the page where the user left off when the form is loaded.  I thought it would be simple enough to have a value in a cell of the spreadsheet store the page number each time the user clicked on a page then when the form reloads it uses that number to select that page.  I have not been able to figure out how to get the page number to the cell I want when the user clicks the page.
The loading of the form and selecting the page from a stored value in a cell is no problem.
Question by:DavidH7470
    LVL 76

    Accepted Solution

    Try it like this:
    Option Explicit
    Private Sub MultiPage1_Change()
        Sheets(1).Cells(1, 1).Value = MultiPage1.Value
    End Sub
    Private Sub UserForm_Initialize()
        MultiPage1.Value = Val(Sheets(1).Cells(1, 1).Value)
    End Sub

    Open in new window


    Author Closing Comment

    Prefect thanks

    Featured Post

    Looking for New Ways to Advertise?

    Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.

    Join & Write a Comment

    Recently Microsoft released a brand new function called CONCAT. It's supposed to replace its predecessor CONCATENATE. But how does it work? And what's new? In this article, we take a closer look at all of this - we even included an exercise file for…
    In this article we discuss how to recover the missing Outlook 2011 for Mac data like Emails and Contacts manually.
    This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.
    This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.

    732 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    20 Experts available now in Live!

    Get 1:1 Help Now