Msg Box Yes / No Q
 

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

Msg Box Yes / No Q
 

On Jan 15, 8:17*am, Seanie wrote:
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

Msg Box Yes / No Q
 

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)


"A Mad Doberman" wrote in message
...
On Jan 15, 8:17 am, Seanie wrote:
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

Msg Box Yes / No Q
 

Thanks Guys

Msg Box Yes / No Q
 

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)


"Seanie" wrote in message
...
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

Msg Box Yes / No Q
 

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

--
Rick (MVP - Excel)


"Rick Rothstein" wrote in message
...
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)


"A Mad Doberman" wrote in message
...
On Jan 15, 8:17 am, Seanie wrote:
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