Open Multipage Userform at specific page

[inarbeth]

I have a multipage userform (currently only two pages but I intend to add more). The form is opened from different worksheets using different Command Buttons. I want to be able to open the form at Page 0 if one Command Button is clicked and at Page 1 if a second Command Button is clicked. I have tried putting MultiPage1 = 0 or = 1 in the code for the relevant button but the form always opens on Page 1. Is there a way to do this? I tried adapting the code from http://www.ozgrid.com/forum/showthread.php?t=23932
but the line

Public strMacro As String

causes a problem

 

[Andrew Poulsom]

What problem does that line cause? It needs to be in a General module so that the variable is visible to all procedures.

 

[inarbeth]

A compile error that a variable is not defined.
My code is:

Public strMacro As String
Private Sub Userform_Initialize()
   Select Case strMacro
    Case "CompletionStatement"
        MultiPage1.Value = 0
    Case "GrantofLease"
        MultiPage1.Value = 1
    End Select
frmCompStatement.Show 
End Sub

and

Private Sub CMDLeaseForm_Click()
   
       strMacro = "GrantofLease"
frmCompStatement.Show

End Sub

for one button and

 Sub cmdFillForm_Click()
    strMacro = "CompletionStatement"
    frmCompStatement.Show
End Sub

for the other button.

 

[Norie]

The problem is you are referring to a variable that's been declared in the userform module.

Try this.

Private Sub CMDLeaseForm_Click()
    frmCompStatement.MultiPage1.Value = 1
    frmCompStatement.Show
End Sub
Sub cmdFillForm_Click()
    frmCompStatement.MultiPage1.Value = 0
    frmCompStatement.Show
End Sub

 

[Andrew Poulsom]

Move this line into a General module:

Public strMacro As String

 

[inarbeth]

The problem is you are referring to a variable that's been declared in the userform module.

Try this.

Private Sub CMDLeaseForm_Click()
    frmCompStatement.MultiPage1.Value = 1
    frmCompStatement.Show
End Sub
Sub cmdFillForm_Click()
    frmCompStatement.MultiPage1.Value = 0
    frmCompStatement.Show
End Sub

Norie, thank you - that does the job perfectly. Andrew, thank you also. I will experiment with that.