Macro for Confirming Delete

[COG]

Hi all, I can create a button with a macro that will
clear the data in a preselected range - using the macro
recorder. However, when the button is clicked, I would
like a message to appear that says, "Are You Sure" and
have a "Yes" button, and a "No" button for the user to
click on - to verify clear the range or return to what
they were doing. I think this is a macro inside a macro
and I am not sure how to do this. Any HELP you can offer
would be appreciated. Ex - when you start to close an
Excel file you've entered data into, and haven't saved
it, a message will appear asking if you really want to
save changes. How can I create such a message with
options yes and no?

 

[Jason]

try help under msgbox

that should get you in the right direction

 

[JulieD]

Hi Cog

a message box will do what you're after

e.g.

sub yourexistingcode()

dim i as long

i = msgbox("Are you sure?",vbyesno,"Be very, very sure!")
if i = vbno then
msgbox "No data is to be deleted!",vbOkOnly,"Don't Delete Data"
'this is optional, just put here as an example
exit sub
end if

---your delete code here

end sub


Cheers
JulieD

 

[Chip Pearson]

Try something like

If MsgBox("Are you sure?", vbYesNo) = vbNo Then
Exit Sub
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[JulieD]

you're welcome

Thank you for your help!
deleted!",vbOkOnly,"Don't Delete Data"

 

[COG]

Thank you for your help!

-----Original Message-----
Hi Cog

a message box will do what you're after

e.g.

sub yourexistingcode()

dim i as long

i = msgbox("Are you sure?",vbyesno,"Be very, very sure!")
if i = vbno then
msgbox "No data is to be

deleted!",vbOkOnly,"Don't Delete Data"

 

[Guest]

Thank you for your help!

-----Original Message-----
Try something like

If MsgBox("Are you sure?", vbYesNo) = vbNo Then
Exit Sub
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com







.

 

[COG]

Thanks for your help.

-----Original Message-----
try help under msgbox

that should get you in the right direction




.