Simple vbYesNo... lol...

[albertc30]

Hi all.

I hope everyone is well and keeping safe.

Stupid question I know, but for the life of me why is this not working? I'm rubbish at this.

My 8 year old, 9 this Saturday, has taken a keen interest on coding, bless. As such he's starting with excel as he's seen me doing a few things.

He's just got a msgbox and is playing around the yes and no side of it.

Now, my code was the following as just an example for him;

Sub now02()
MsgBox "are you sure?", vbYesNo
If vbYes Then
    MsgBox ("You clicked Yes!")    
End If
Exit Sub
If vbNo Then
    MsgBox ("You clicked No!")
Exit Sub
End If
End Sub

I'm getting the same answer (You clicked Yes!) regardless of whether i click yes or no.

What on earth am I doing wrong here? I'll never be good at this.

Soon enough he'll be teaching me.

As always much appreciated for all the help.

Albert

 

[Joe4]

Two things:

First, if you want to check the value of what they selected, you should set the MsgBox equal to a variable.
Second, your first "Exit Sub" is outside of your first IF...THEN block, so you will always hit that and never get to the second IF...THEN block.

Try this:

Sub now02()

Dim msg

msg = MsgBox("are you sure?", vbYesNo)

If msg = vbYes Then
    MsgBox ("You clicked Yes!")
    Exit Sub
End If

If msg = vbNo Then
    MsgBox ("You clicked No!")
    Exit Sub
End If

End Sub

 

[Fluff]

You could also do it like

Sub Albert()
   If MsgBox("Are you sure?", vbYesNo) = vbYes Then
      MsgBox "you clicked yes"
   Else
      MsgBox "you clicked No"
   End If
End Sub

 

[Rick Rothstein]

Too advanced a construction for someone new to programming, but just letting you know it is a possibility for the future...

Sub Albert2()
  MsgBox "You clicked " & Choose(MsgBox("Are you sure?", vbYesNo) - 5, "yes", "no")
End Sub

or a smidge shorter...

Sub Albert3()
  MsgBox "You clicked " & Split("yes no")(MsgBox("Are you sure?", vbYesNo) - 6)
End Sub

 

[albertc30]

Oh you guys.

Joe4, Fluff and Rick my man, you're still around. Thanks ever so much. This forum has helped me over many many years now and never has disapointed me.

To you all and everybody here, giving their time and knowledge to help other many many thanks.

Now my kid is, like me once and still am at times, amazed with the endless potential ways of doing one thing in vb.

You guys keep up the good work and be safe.

Albert.

 

[Fluff]

Glad we could help & thanks for the feedback.