MultiPage Control
 

I want to use a MultiPage control on a UserForm but I seem to be at a loss
to get it to do what I want.

If I click on Tab2 (page 2 of the MultiPage control) I want code that
selects cell A1 of the Engraving worksheet. If I then click on Tab5 (page 5
of the MultiPage control) I want code that selects cell A1 of the Trophy
worksheet. And this would be true of all 8 Tabs. I want each to bring up
it's respective worksheet with cell A1 selected.

Is this possible?

MultiPage Control
 

If I follow, something like this -

Private Sub MultiPage1_Change()
Dim sShtName As String
Select Case MultiPage1.Value
Case 0: sShtName = "Sheet1"
Case 1: sShtName = "Sheet2"
Case 2: sShtName = "Sheet3"
Case Else
sShtName = Worksheets(1).Name
End Select
Application.Goto Worksheets(sShtName).Range("A1"), True

End Sub

If you want to return the current tab caption for use in a Select case

sPage = MultiPage1.Pages(MultiPage1.Value).Caption
Select Case sPage ' etc

Regards,
Peter T


"Patrick C. Simonds" wrote in message
...
I want to use a MultiPage control on a UserForm but I seem to be at a loss
to get it to do what I want.

If I click on Tab2 (page 2 of the MultiPage control) I want code that
selects cell A1 of the Engraving worksheet. If I then click on Tab5 (page
5
of the MultiPage control) I want code that selects cell A1 of the Trophy
worksheet. And this would be true of all 8 Tabs. I want each to bring up
it's respective worksheet with cell A1 selected.

Is this possible?

MultiPage Control
 

Thank you that works great.

If I might though, is there any way in the UserForm Initialization to have
page1 of the MultiPage control be active?


"Peter T" <peter_t@discussions wrote in message
...
If I follow, something like this -

Private Sub MultiPage1_Change()
Dim sShtName As String
Select Case MultiPage1.Value
Case 0: sShtName = "Sheet1"
Case 1: sShtName = "Sheet2"
Case 2: sShtName = "Sheet3"
Case Else
sShtName = Worksheets(1).Name
End Select
Application.Goto Worksheets(sShtName).Range("A1"), True

End Sub

If you want to return the current tab caption for use in a Select case

sPage = MultiPage1.Pages(MultiPage1.Value).Caption
Select Case sPage ' etc

Regards,
Peter T


"Patrick C. Simonds" wrote in message
...
I want to use a MultiPage control on a UserForm but I seem to be at a
loss
to get it to do what I want.

If I click on Tab2 (page 2 of the MultiPage control) I want code that
selects cell A1 of the Engraving worksheet. If I then click on Tab5 (page
5
of the MultiPage control) I want code that selects cell A1 of the Trophy
worksheet. And this would be true of all 8 Tabs. I want each to bring up
it's respective worksheet with cell A1 selected.

Is this possible?

MultiPage Control
 

Assuming by Page1 you mean the first page whose index is 0,

Me.MultiPage1.Value = 0

But if you always want a particular 'active page' at startup just set it in
design time.

Regards,
Peter T

"Patrick C. Simonds" wrote in message
...
Thank you that works great.

If I might though, is there any way in the UserForm Initialization to have
page1 of the MultiPage control be active?


"Peter T" <peter_t@discussions wrote in message
...
If I follow, something like this -

Private Sub MultiPage1_Change()
Dim sShtName As String
Select Case MultiPage1.Value
Case 0: sShtName = "Sheet1"
Case 1: sShtName = "Sheet2"
Case 2: sShtName = "Sheet3"
Case Else
sShtName = Worksheets(1).Name
End Select
Application.Goto Worksheets(sShtName).Range("A1"), True

End Sub

If you want to return the current tab caption for use in a Select case

sPage = MultiPage1.Pages(MultiPage1.Value).Caption
Select Case sPage ' etc

Regards,
Peter T


"Patrick C. Simonds" wrote in message
...
I want to use a MultiPage control on a UserForm but I seem to be at a
loss
to get it to do what I want.

If I click on Tab2 (page 2 of the MultiPage control) I want code that
selects cell A1 of the Engraving worksheet. If I then click on Tab5
(page
5
of the MultiPage control) I want code that selects cell A1 of the
Trophy
worksheet. And this would be true of all 8 Tabs. I want each to bring
up
it's respective worksheet with cell A1 selected.

Is this possible?

MultiPage Control
 

I do not see that as an option.

"Peter T" <peter_t@discussions wrote in message
...
Assuming by Page1 you mean the first page whose index is 0,

Me.MultiPage1.Value = 0

But if you always want a particular 'active page' at startup just set it
in
design time.

Regards,
Peter T

"Patrick C. Simonds" wrote in message
...
Thank you that works great.

If I might though, is there any way in the UserForm Initialization to
have
page1 of the MultiPage control be active?


"Peter T" <peter_t@discussions wrote in message
...
If I follow, something like this -

Private Sub MultiPage1_Change()
Dim sShtName As String
Select Case MultiPage1.Value
Case 0: sShtName = "Sheet1"
Case 1: sShtName = "Sheet2"
Case 2: sShtName = "Sheet3"
Case Else
sShtName = Worksheets(1).Name
End Select
Application.Goto Worksheets(sShtName).Range("A1"), True

End Sub

If you want to return the current tab caption for use in a Select case

sPage = MultiPage1.Pages(MultiPage1.Value).Caption
Select Case sPage ' etc

Regards,
Peter T


"Patrick C. Simonds" wrote in message
...
I want to use a MultiPage control on a UserForm but I seem to be at a
loss
to get it to do what I want.

If I click on Tab2 (page 2 of the MultiPage control) I want code that
selects cell A1 of the Engraving worksheet. If I then click on Tab5
(page
5
of the MultiPage control) I want code that selects cell A1 of the
Trophy
worksheet. And this would be true of all 8 Tabs. I want each to bring
up
it's respective worksheet with cell A1 selected.

Is this possible?

MultiPage Control
 

Sorry. I think what you are telling me is that which ever Page is set active
when you exit the design phase, will be the active page when ever you open
the UserForm.


"Patrick C. Simonds" wrote in message
...
I do not see that as an option.

"Peter T" <peter_t@discussions wrote in message
...
Assuming by Page1 you mean the first page whose index is 0,

Me.MultiPage1.Value = 0

But if you always want a particular 'active page' at startup just set it
in
design time.

Regards,
Peter T

"Patrick C. Simonds" wrote in message
...
Thank you that works great.

If I might though, is there any way in the UserForm Initialization to
have
page1 of the MultiPage control be active?


"Peter T" <peter_t@discussions wrote in message
...
If I follow, something like this -

Private Sub MultiPage1_Change()
Dim sShtName As String
Select Case MultiPage1.Value
Case 0: sShtName = "Sheet1"
Case 1: sShtName = "Sheet2"
Case 2: sShtName = "Sheet3"
Case Else
sShtName = Worksheets(1).Name
End Select
Application.Goto Worksheets(sShtName).Range("A1"), True

End Sub

If you want to return the current tab caption for use in a Select case

sPage = MultiPage1.Pages(MultiPage1.Value).Caption
Select Case sPage ' etc

Regards,
Peter T


"Patrick C. Simonds" wrote in message
...
I want to use a MultiPage control on a UserForm but I seem to be at a
loss
to get it to do what I want.

If I click on Tab2 (page 2 of the MultiPage control) I want code that
selects cell A1 of the Engraving worksheet. If I then click on Tab5
(page
5
of the MultiPage control) I want code that selects cell A1 of the
Trophy
worksheet. And this would be true of all 8 Tabs. I want each to bring
up
it's respective worksheet with cell A1 selected.

Is this possible?

MultiPage Control
 

Yes that's what I meant. No harm to explicitly set the correct page too, in
say the Userform Initialize event. Just in case a nosy user has been messing
around in the VBE

Regards,
Peter T


"Patrick C. Simonds" wrote in message
...
Sorry. I think what you are telling me is that which ever Page is set
active
when you exit the design phase, will be the active page when ever you open
the UserForm.


"Patrick C. Simonds" wrote in message
...
I do not see that as an option.

"Peter T" <peter_t@discussions wrote in message
...
Assuming by Page1 you mean the first page whose index is 0,

Me.MultiPage1.Value = 0

But if you always want a particular 'active page' at startup just set
it
in
design time.

Regards,
Peter T

"Patrick C. Simonds" wrote in message
...
Thank you that works great.

If I might though, is there any way in the UserForm Initialization to
have
page1 of the MultiPage control be active?


"Peter T" <peter_t@discussions wrote in message
...
If I follow, something like this -

Private Sub MultiPage1_Change()
Dim sShtName As String
Select Case MultiPage1.Value
Case 0: sShtName = "Sheet1"
Case 1: sShtName = "Sheet2"
Case 2: sShtName = "Sheet3"
Case Else
sShtName = Worksheets(1).Name
End Select
Application.Goto Worksheets(sShtName).Range("A1"), True

End Sub

If you want to return the current tab caption for use in a Select
case

sPage = MultiPage1.Pages(MultiPage1.Value).Caption
Select Case sPage ' etc

Regards,
Peter T


"Patrick C. Simonds" wrote in message
...
I want to use a MultiPage control on a UserForm but I seem to be at
a
loss
to get it to do what I want.

If I click on Tab2 (page 2 of the MultiPage control) I want code
that
selects cell A1 of the Engraving worksheet. If I then click on Tab5
(page
5
of the MultiPage control) I want code that selects cell A1 of the
Trophy
worksheet. And this would be true of all 8 Tabs. I want each to
bring
up
it's respective worksheet with cell A1 selected.

Is this possible?