Multiple VByesno Message boxes no working

  • Thread starter Thread starter Munchkin
  • Start date Start date
M

Munchkin

When my 1st message box appears & user click "yes" macro does what it
supposed to do. If user clicks "no", I want another message box to appear
with a "yes/no" option, but I can't figure out how to get the second message
box to appear correctly. I don't know what I'm doing wrong & appreciate any
help!

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to add another employee?"
Style = vbYesNo
Title = "DAC Sheet Updated"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then
Sheets("Sheet1").Select
Range("E4").Select


Else
MyString = "No"
Msg , Style, Title, Help, Ctxt, Response, MyString
Msg = "Are you done?"
Style = vbYesNo
Title = "DAC Sheet Updated"
If Response = vbYes Then
Cells.Select
Selection.Copy
MsgBox ("New info is copied in the clipboard.")
Else: Sheets("Sheet1").Select
End If
 
Try this. I think this is what you were wanting. I took the liberty of
shortening some of the code as well. Hope this helps! If so, let me know,
click "YES" below.


Dim Msg As String
Dim Style As String
Dim Title As String

Msg = "Do you want to add another employee?"
Style = vbYesNo
Title = "DAC Sheet Updated"

If MsgBox(Msg, Style, Title) = vbYes Then
Sheets("Sheet1").Range("E4").Select
Else
Msg = "Are you done?"

If MsgBox(Msg, Style, Title) = vbYes Then
Cells.Copy
MsgBox ("New info is copied in the clipboard.")
Else
Sheets("Sheet1").Select
End If
End If
 
Thanks - it works!

Ryan H said:
Try this. I think this is what you were wanting. I took the liberty of
shortening some of the code as well. Hope this helps! If so, let me know,
click "YES" below.


Dim Msg As String
Dim Style As String
Dim Title As String

Msg = "Do you want to add another employee?"
Style = vbYesNo
Title = "DAC Sheet Updated"

If MsgBox(Msg, Style, Title) = vbYes Then
Sheets("Sheet1").Range("E4").Select
Else
Msg = "Are you done?"

If MsgBox(Msg, Style, Title) = vbYes Then
Cells.Copy
MsgBox ("New info is copied in the clipboard.")
Else
Sheets("Sheet1").Select
End If
End If
Click to expand...
 
Back
Top