Msg Box Yes / No Q

  • Thread starter Thread starter Seanie
  • Start date Start date
S

Seanie

How could I correct the code below that a Y/N Msg Box appears if
AS1>=1, if user clicks "Yes" then complete rest of code, if user
clicks "No" go to cell K10. I have a half baked attempt below


With Worksheets("Sheet A")
If .Range("AS1").Value >= 1 Then
MsgBox "You have Sales that are not posted yet. If this is
correct Click ""Yes"", if not Click ""No"" and amend as necessady"

Sheets("Sheet A").Select
Range("K10").Select

Exit Sub
End If

End With
 
How could I correct the code below that a Y/N Msg Box appears if
AS1>=1, if user clicks "Yes" then complete rest of code, if user
clicks "No" go to cell K10. I have a half baked attempt below

    With Worksheets("Sheet A")
   If .Range("AS1").Value >= 1 Then
      MsgBox "You have Sales that are not posted yet. If this is
correct Click ""Yes"", if not Click ""No"" and amend as necessady"

      Sheets("Sheet A").Select
      Range("K10").Select

      Exit Sub
    End If

    End With
Click to expand...

Here is something like what I would do.

If .Range("AS1").Value >= 1 Then
sSALES = MsgBox ("You have Sales that are not posted yet. Is this
correct?", vbYesNo + vbQuestion)
If sSALES = vbNo Then ----code
If sSALES = vbYes Then ----code
 
I think this code will do what you asked. You will need to declare a new
Long variable (named Answer) along with your other variable declarations...

With Worksheets("Sheet A")
If .Range("AS1").Value >= 1 Then
Answer = MsgBox("You have Sales that are not posted yet. " & _
"If this is correct Click ""Yes"", if not " & _
"Click ""No"" and amend as necessady", vbYesNo)
If Answer = vbNo Then
.Range("K10").Select
Exit Sub
Else
'
' Code specific to a Yes answer can go here
'
End If
'
' Code placed here will run after a Yes answer too
'
End If
'
' Also, code placed here will run after a Yes answer too
'
End With

--
Rick (MVP - Excel)


How could I correct the code below that a Y/N Msg Box appears if
AS1>=1, if user clicks "Yes" then complete rest of code, if user
clicks "No" go to cell K10. I have a half baked attempt below

With Worksheets("Sheet A")
If .Range("AS1").Value >= 1 Then
MsgBox "You have Sales that are not posted yet. If this is
correct Click ""Yes"", if not Click ""No"" and amend as necessady"

Sheets("Sheet A").Select
Range("K10").Select

Exit Sub
End If

End With
Click to expand...

Here is something like what I would do.

If .Range("AS1").Value >= 1 Then
sSALES = MsgBox ("You have Sales that are not posted yet. Is this
correct?", vbYesNo + vbQuestion)
If sSALES = vbNo Then ----code
If sSALES = vbYes Then ----code
 
I think this code will do what you asked. You will need to declare a new
Long variable (named Answer) along with your other variable declarations...

With Worksheets("Sheet A")
If .Range("AS1").Value >= 1 Then
Answer = MsgBox("You have Sales that are not posted yet. " & _
"If this is correct Click ""Yes"", if not " & _
"Click ""No"" and amend as necessady", vbYesNo)
If Answer = vbNo Then
.Range("K10").Select
Exit Sub
Else
'
' Code specific to a Yes answer can go here
'
End If
'
' Code placed here will run after a Yes answer too
'
End If
'
' Also, code placed here will run after a Yes answer too
'
End With
 
Back
Top