VBYesNo MsgBox - Computer always says "Yes"
I'm not sure why that is happening....it works fine when I run it.
I'm guessing that some other code is causing the problem.
Here's a simple way to find out:
If MsgBox(Prompt, Buttons, Title, Help, Ctxt) = vbYes Then
MsgBox "You clicked yes"
' WhereWasI = (Selection.Address)
' Selection.EntireRow.Delete
' IssuesDataRangeFormat
' Range(WhereWasI).Select
Else
MsgBox "You clicked no"
Exit Sub
End If
Does that help?
***********
Regards,
Ron
XL2002, WinXP-Pro
"Peter Rooney" wrote:
Ron,
Thanks, but for some bizarre reason, it disn't - it still deleted the row
even when I clicked "No"
I also realise that I should have posted this in the developers' forum, so
special thanks for responding!
Cheers
Pete
"Ron Coderre" wrote:
Try changing your code to this:
Sub ConfirmIssuesDelete()
Dim Prompt, Buttons, Title, Help, Ctxt, Response, MyString
Prompt = "Do you REALLY want to delete this row?" ' Message.
Buttons = vbYesNo + vbCritical + vbDefaultButton1 ' Buttons.
Title = "Whoa!" ' Title.
Help = "D:\DEMO.TXT" ' Define Help file.
Ctxt = 1000 ' Define topic
If MsgBox(Prompt, Buttons, Title, Help, Ctxt) = vbYes Then
WhereWasI = (Selection.Address)
Selection.EntireRow.Delete
IssuesDataRangeFormat
Range(WhereWasI).Select
Else
Exit Sub
End If
Does that help?
***********
Regards,
Ron
XL2002, WinXP-Pro
"Peter Rooney" wrote:
Good afternoon, all!
Apologies for those non UK residents who didn't get the "Little Britain"
joke...
Can anyone see the deliberate error with this code - no matter what button I
click, it always processes the vbYes option. Response returns "7" when i
click "No" and "6" when I click "Yes".
All help gratefuly received! :-)
Sub ConfirmIssuesDelete()
Dim Prompt, Buttons, Title, Help, Ctxt, Response, MyString
Prompt = "Do you REALLY want to delete this row?" ' Message.
Buttons = vbYesNo + vbCritical + vbDefaultButton1 ' Buttons.
Title = "Whoa!" ' Title.
Help = "D:\DEMO.TXT" ' Define Help file.
Ctxt = 1000 ' Define topic
Response = MsgBox(Prompt, Buttons, Title, Help, Ctxt)
MsgBox (Response)
If Response = vbYes Then
WhereWasI = (Selection.Address)
Selection.EntireRow.Delete
IssuesDataRangeFormat
Range(WhereWasI).Select
Else
Exit Sub
End If
End Sub
|