Add a Confirmation Message Box to a macro?

Jonmo1

MrExcel MVP

Joined

Oct 12, 2006

Messages

44,061

• May 2, 2008

• #2

Code:

response = MsgBox("Are You Sure?",vbyesno)
 
If response = vbno then 
    Msgbox("Macro Ending")
    exit sub
End If
 
rest of code here.

 

Upvote 0

lenze

Legend

Joined

Feb 18, 2002

Messages

13,690

• May 2, 2008

• #3

Code:

rspn = MsgBox("Are you Sure?", vbYesNo)
If rspn = vbNo Then Exit Sub
'code

lenze

 

Upvote 0

N

n2lectual

Board Regular

Joined

Mar 18, 2008

Messages

80

• May 2, 2008

• #4

Works great. Thank you both.

 

Upvote 0

E

Eruantano

Board Regular

Joined

Apr 12, 2008

Messages

59

• May 19, 2008

• #5

Does this not work for showing userforms from button click events?
I have a button on a worksheet and I want to provide a confirmation MsgBox to ensure that the user wishes to load data to that specific worksheet. However, whether I press YES or NO, the userform still shows. Can someone clarify this for me?

Thanks.
Joe.

Code:

Private Sub CommandButton1_Click()
 
    Dim Ans As Boolean
 
    Ans = MsgBox("Do you wish to add a new patient to the " & _
        ActiveSheet.Name & " list?", vbYesNo, "Add a new patient?")
        
    If Ans = vbNo Then Exit Sub
    
    frmNewPat.Show False
    
End Sub

 

Upvote 0

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• May 19, 2008

• #6

Dim Ans as Integer (not Boolean)

 

Upvote 0

E

Eruantano

Board Regular

Joined

Apr 12, 2008

Messages

59

• May 19, 2008

• #7

VoG II said:

Dim Ans as Integer (not Boolean)

Click to expand...

Oh! Ok, thanks! I think I got that from somewhere online. Thanks for the correction.

Joe.

 

Upvote 0

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• May 19, 2008

• #8

Sorry for my rather terse response above but I was about to dash off.

You can also use

Code:

Dim ans As VbMsgBoxResult

which may make the code more understandable when you revisit it sometime in the future. But declaring ans as an Integer works just as well.

 

Upvote 0

E

Eruantano

Board Regular

Joined

Apr 12, 2008

Messages

59

• May 19, 2008

• #9

VoG II said:

Sorry for my rather terse response above but I was about to dash off.

You can also use

Code:

Dim ans As VbMsgBoxResult

which may make the code more understandable when you revisit it sometime in the future. But declaring ans as an Integer works just as well.

Click to expand...

That is valuable information! Thanks so much.

 

Upvote 0