| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Msg Box Yes / No Q
Thanks Guys
|
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Hybrid Mode
