Msg Box Yes / No Q

[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

 

[A Mad Doberman]

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

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

 

[Rick Rothstein]

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

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

 

[Seanie]

Thanks Guys

 

[Rick Rothstein]

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 Rothstein]

Sorry, I meant this to be a response to the OP, not to your message.