Selection of UserForm through button

[saziz]

Hi All,
I have this code working for selecting a userform:

Private Sub CommandButton1_Click()
If Button = OptionButton1 Then

UserForm1.Show

ElseIf Button = OptionButton2 Then
UserForm2.Show
End If

End Sub




Now I want to add a 3rd. button. I tried inserting another if
statement but it does not show my new user form.

Any help would be apreicated
Thanks
Syed

 

[Guest]

Can you post the code that is not working?

Alok

 

[saziz]

Hi alok,
Here is the code:

Private Sub CommandButton1_Click()
If Button = OptionButton1 Then
UserForm1.Show
End If
If Button = OptionButton2 Then
UserForm2.Show
End If
If Button = optionbutton4 Then
UserForm4.Show
End If

End Sub

What is happening is when I select a button, it shows all 3 userforms
one by one.
Syed

 

[Norman Jones]

Hi Saziz

Try:

'=============>>
Private Sub CommandButton1_Click()
If OptionButton1 Then
UserForm1.Show
ElseIf OptionButton2 Then
UserForm2.Show
ElseIf OptionButton4 Then
UserForm4.Show
End If
End Sub
'<<=============

 

[saziz]

Norman,
Thanks, your code worked fine.
Syed