Form Objects

[mrinal saha]

Hi Folks,

In the below code If condition is working for 1st and 2nd statement but even if my form is fulfilling the 3rd condition, macro doesn't goes to 3rd msgbox. still its say "select the sheet."

If OptionButton1 Or OptionButton2 = True And ComboBox1.Value = " " Then
MsgBox "Please select sheet"
Exit Sub
ElseIf OptionButton1 Or OptionButton2 = False And ComboBox1.Value <> " " Then
MsgBox "Please select the mode"
Exit Sub
ElseIf OptionButton1 Or OptionButton2 = True And ComboBox1.Value <> " " Then
MsgBox "Do you want to run the macro", vbYesNo
End If


thanks,
Mrinal Saha

 

[VoG]

Perhaps

If (OptionButton1 = True Or OptionButton2 = True) And ComboBox1.Value = " " Then
    MsgBox "Please select sheet"
    Exit Sub
ElseIf (OptionButton1 = True Or OptionButton2 = False) And ComboBox1.Value <> " " Then
    MsgBox "Please select the mode"
    Exit Sub
ElseIf (OptionButton1 = True Or OptionButton2 = True) And ComboBox1.Value <> " " Then
    MsgBox "Do you want to run the macro", vbYesNo
End If

 

[Hermanito]

You have to state your conditions more clearly:

OptionButton1 = True Or OptionButton2 = True And ComboBox1.Value = " "

and you need to decide if you want
(OptionButton1 = True Or OptionButton2 = True) And ComboBox1.Value = " "
or
OptionButton1 = True Or (OptionButton2 = True And ComboBox1.Value = " ")

 

[mrinal saha]

NO..code isn't working. this time it is asking to select the mode.

 

[VoG]

Then maybe

If (OptionButton1 = True Or OptionButton2 = True) And ComboBox1.Value = "" Then
    MsgBox "Please select sheet"
    Exit Sub
ElseIf (OptionButton1 = True Or OptionButton2 = False) And ComboBox1.Value <> "" Then
    MsgBox "Please select the mode"
    Exit Sub
ElseIf (OptionButton1 = True Or OptionButton2 = True) And ComboBox1.Value <> "" Then
    MsgBox "Do you want to run the macro", vbYesNo
End If

 

[mrinal saha]

after some R&D it is working fine.. thank you all.

 

[mrinal saha]

yes VOG, it was because of the double quotes.

thanks
Mrinal