Multipage, can commandbutton select Page2? 1

[rlee16]

I would like to have a command button on my excel worksheet be able to open up a Userform and jump right to a specific page(in this case, Page2) within a MultiPage. Is this possible or do I have to make a brand new Userform?

Regards,

Richard

 

[Zathras]

This is similar to the question in thread707-669091

 

[rlee16]

Clarification - I have several command buttons on my excel worksheet, each corresponding to a different page on the Multipage

Thread707-669091 seems to only describe setting the focus once.

I would like my command buttons to be able to jump to any of the pages.

Private Sub CommandButton1_Click()
UserForm1.Show (0)
MultiPage1.Pages(2).Visible = True

End Sub

Regards,

Richard

 

[Zathras]

Ignore my earlier post. There is an easier way.

Put this code in the sheet code page:
[blue]

Option Explicit

Private Sub CommandButton1_Click()
  ShowMyForm Page:=1
End Sub

Private Sub CommandButton2_Click()
  ShowMyForm Page:=2
End Sub

Private Sub CommandButton3_Click()
  ShowMyForm Page:=3
End Sub

'(etc.)

[/color]
Put this code in a separate code module:
[blue]

Option Explicit
Public MultiPageNumber As Integer

Sub ShowMyForm(Page As Integer)
  MultiPageNumber = Page
  UserForm1.Show
End Sub

[/color]
Finally, put this code in the form code page:
[blue]

Option Explicit

Private Sub UserForm_Initialize()
  MultiPage1.Value = MultiPageNumber - 1
End Sub

Private Sub CommandButton1_Click()
  Me.Hide
End Sub

[/color]

 

[rlee16]

Zathas,

Works perfectly! Thank you.

Richard

 

[rlee16]

Zathas,

Using this method, is there a way I can I preserve the ability to click into the worksheet functionally equivalent to "Userform1.Show (0)". Thanks.

Richard

 

[Zathras]

I'm sorry, I don't understand the question.

In any event, I'm currently on holiday, so perhaps you should post the question in a new thread. (But change the wording and give more explanation. I don't think I'm the only one who wouldn't be able to decypher your request.)