A simple if statement

[Endeavouring]

Hi
I am a novice to VBA and have the following problem. I have a ser form with one command button and 2 option buttons, I simply want the user to select one of the option buttons then depending on their selection run the related macro. What is wrong with the following as it coninually errors despite whatever changes I hae tried.

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then Sub1
ElseIf OptionButton2.Value = True Then Sub2
End If
End Sub

Thank you

 

[doofusboy]

Have you tried this?

Private Sub CommandButton1_Click()
    If OptionButton1.Value = True Then
        Call Sub1
    ElseIf OptionButton2.Value = True Then
        Call Sub2
    End If
End Sub

 

[Endeavouring]

Still errors Else without If

 

[nightcrawler23]

If these are option buttons only one should be true at a time. Try this

Have you tried this?

Private Sub CommandButton1_Click()
    If OptionButton1.Value = True Then
        Sub1
    Else
        Sub2
    End If
End Sub

 

[Endeavouring]

Thanks doofusboy

Thought I had tried that but that cured it.

Cheers

 

[Ruddles]

Still errors Else without If

If so, I think you haven't copied the code exactly as doofusboy posted it.

 

[Ruddles]

Cut and keep:-

How to code IF statements

1) Simple IF with a single statement

   If condition Then x = 1

2) Simple IF with multiple statements

   If condition Then x = 1: a = ""

3) Block IF..THEN

   If condition Then
     x = 1
     a = "xxx"
   End If

4) Block IF..THEN..ELSE

   If condition Then
     x = 1
     a = "xxx"
   Else
     x = 2
     a = "yyy"
   End If

5) Block IF..THEN..ELSEIF

   If condition1 Then
     x = 1
     a = "xxx"
   ElseIf condition2 Then
     x = 2
     a = "yyy"
   End If

6) Block IF..THEN..ELSEIF..ELSE

   If condition1 Then
     x = 1
     a = "xxx"
   ElseIf condition2 Then
     x = 2
     a = "yyy"
   ElseIf condition3 Then
     x = 3
     a = "zzz"
   Else
     x = 4
     a = "xyz"
   End If

How to code SELECT statements

1) Single test variable

   Select Case variable
     Case 1, 3, 6 To 9
       x = 1
       a = "xxx"
     Case Is <= 100
       x = 2
       a = "yyy"
     Case Is <= 1000
       x = 3
       a = "zzz"
     Case Else
       x = 4
       a = "xyz"
   End Select

2) Multiple test variables

   Select Case True
     Case x < 100
       a = "xxx"
     Case a = "yyy", a = "zzz"
       x = 2
     Case Else
       x = 4
       a = "xyz"
   End Select

 

[Endeavouring]

Sorry, I meant the ammendment by Nightcrawler worked, but it leaves the original form with the command button open (named form1). I've tried unload in several places but that then errors. How can I close the original selection form (named form1) leaving just the form created by the sub1 or sub2 routines

 

[nightcrawler23]

Try This.

Private Sub CommandButton1_Click()
     
    If OptionButton1.Value = True Then
         Unload Me
        Call Sub1
    ElseIf OptionButton2.Value = True Then
         Unload Me
        Call Sub2
    End If
End Sub

 

[VBACO]

Great explaination Ruddles