ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Qn: Setting MultiPage page default??? (https://www.excelbanter.com/excel-programming/308180-qn-setting-multipage-page-default.html)

Michael Vaughan

Qn: Setting MultiPage page default???
 
I have set up a UserForm with a MultiPage function to be used as a menu. I
have about 5 different Sheets in my workbook, and so I use the same UserForm
on ALL sheets to bounce around like a menu. One problem, everytime I click
on menu and my userform comes up.. It always defaults to the same page
(Page 5) on the MultiPage. Is there anyway to set the Current Page that you
are on when you exit to unload it so that when I click on menu again, it
focuses on Page 3 now instead of Page 5 all the time???

Thanks.. mv



Norman Jones

Setting MultiPage page default???
 
Hi Michael,

Try something like:

Private Sub UserForm_Initialize()
MultiPage1.Value = 2 ' Zero-based, activates page 3
End Sub


---
Regards,
Norman



"Michael Vaughan" wrote in message
...
I have set up a UserForm with a MultiPage function to be used as a menu.

I
have about 5 different Sheets in my workbook, and so I use the same

UserForm
on ALL sheets to bounce around like a menu. One problem, everytime I

click
on menu and my userform comes up.. It always defaults to the same page
(Page 5) on the MultiPage. Is there anyway to set the Current Page that

you
are on when you exit to unload it so that when I click on menu again, it
focuses on Page 3 now instead of Page 5 all the time???

Thanks.. mv





Michael Vaughan

Setting MultiPage page default???
 
Hi Norman,

Well, I didn't think about using the Initialize method. I had to modify it
a little bit, but that did the trick!!!

Thanks a million... mv

"Norman Jones" wrote in message
...
Hi Michael,

Try something like:

Private Sub UserForm_Initialize()
MultiPage1.Value = 2 ' Zero-based, activates page 3
End Sub






All times are GMT +1. The time now is 08:25 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com