MsgBox question

[dukeofscouts]

Here is my plan, I've got a msgbox in VByesno format. What I'd like to do is set the next action to be as follows
If Yes then MsgBox 1 (VBokonly)
If No then MsgBox 2 (Vbokonly)
Run rest of sub

how can I get this result?

 

[VoG]

Try

If MsgBox("question here", vbYesNo + vbQuestion) = vbYes Then
    MsgBox "one"
Else
    MsgBox "two"
End If

 

[lenze]

Sub MsgBoxOption()
rspn = MsgBox("Choose", vbYesNo)
If rspn = vbYes Then
    MsgBox "Number1"
Else: MsgBox "Number2"
End If
End Sub

lenze

 

[dukeofscouts]

So that is how you do it... excel-ent

Thank you very much,
D.O.S.

 

[dukeofscouts]

Hmm slight glitch let me copy the VBA I have so far maybe you can see what is wrong... I must be missing a line of code here some where:

If MsgBox("Did you finish the puzzel", vbYesNo + vbQuestion) = ybyes Then
MsgBox("Way to go", vbOKOnly) = vbOK
Else
MsgBox("Better luck next time", vbOKOnly) = vbOK
End If

 

[VoG]

If MsgBox("Did you finish the puzzel", vbYesNo + vbQuestion) = vbYes Then
    MsgBox "Way to go", vbOKOnly
Else
    MsgBox "Better luck next time", vbOKOnly
End If

 

[dukeofscouts]

ok so if it is a result no brackets... I really need to find a class in this stuff! Just way too much fun.

Thanks VoG,
D.O.S.

 

[lenze]

Lt me step back in and help (or confuse) you some
Both VoG's

If MsgBox("Did you finish the puzzel", vbYesNo + vbQuestion) = vbYes

and my

rspn = MsgBox("Choose", vbYesNo)

require brackets as the result is being evaluated. This, however, does not

MsgBox "Way to go", vbOKOnly

because it is informational only. It does not hurt, however, to use brackets here

MsgBox ("Way to go", vbOKOnly)

It's just that a lot of us are lazy.
lenze

 

[dukeofscouts]

Ok I see it now. You know it is kind of funny, I've learned more from this site in the last three weeks than in the six months I spent in the college class room learning "Advanced Excel". You all are amazing!