Clear button, add warning dialogue box that asks: Are you sure you want to clear?

**nenadmail** · 05-21-2012, 10:39 AM

Hello!

How do I add a feature to my function button that clears away data to submit a warning to the user before it clears any data?

It can say something like:
"Are you sure you want to clear all Inventory data?"
With an option, "Yes" and "Cancel"

Here is the current code for the "Clear" button:

Sub Clear()
'
' Clear Macro
'

'
    Range("C7:E91").Select
    Range("C7").Activate
    Selection.ClearContents
    ActiveCell.Select
End Sub

Thank you!

**JapanDave** · 05-21-2012, 10:41 AM

For your original code.

Sub Clear()

Dim c02
'
' Clear Macro
'

'
    c02 = MsgBox("Are you sure you want to clear?", vbYesNo, "Clear")
       If c02 = vbYes Then
          Range("C7:E91").ClearContents
       End If
End Sub

**nenadmail** · 05-21-2012, 10:51 AM

Thanks.... but when I click "Cancel"
It still clears away the data.

**AlvaroSiza** · 05-21-2012, 10:44 AM

Dim vbResponse As VbMsgBoxResult

vbRepsonse = MsgBox("Are you sure that you would like to clear the contents of the range?", vbYesNo, "Clear?")

   If vbResponse = vbYes Then
      Range("C7:E91").ClearContents
   Else
      Exit Sub
   End If

**nenadmail** · 05-21-2012, 01:35 PM

I tried this code, and I'm not sure what I'm doing... it seems not to be the entire code, so I try to integrate it with mine, but I don't know how. Could you please give me the entire code including the important parts of the original code... so that all I need to do is replace my existing code with a proper and complete code.

This is what I have:

Sub Clear()
Dim vbResponse As VbMsgBoxResult

vbRepsonse = MsgBox("Are you sure that you would like to clear the contents of the range?", vbYesNo, "Clear?")

   If vbResponse = vbYes Then
      Range("C7:E91").ClearContents
   Else
      Exit Sub
   End If

End Sub

All it does is display the message box. But regardless of my response to the box Yes/No... it does nothing else. But it needs to clear the field if I answer "Yes." And leave the field alone when I answer "No." It doesn't do that... please help me get the final code right....

**AlvaroSiza** · 05-21-2012, 02:13 PM

The vbRepsonse (right before = MsgBox) is misspelled. Fix the spelling to vbResponse (sorry about that) and it will work.

**nenadmail** · 05-21-2012, 02:41 PM

Thanks! Yes now it works.... and here is the correct code for others:

Sub Clear()
Dim vbResponse As VbMsgBoxResult

vbResponse = MsgBox("Are you sure that you would like to clear the contents of the range?", vbYesNo, "Clear?")

   If vbResponse = vbYes Then
      Range("C7:E91").ClearContents
   Else
      Exit Sub
   End If

End Sub

It is designed to clear the cells ("C7:E91"), but of course anyone can edit this to whatever they want cleared.

**JapanDave** · 05-21-2012, 10:53 AM

I hope you did not use the first code I posted? I was lazy and left out an import line of code, plus I just realized I had a typo(it is too late here) Try mine or AlvaroSiza's code they will both do the job.

Clear button, add warning dialogue box that asks: Are you sure you want to clear?

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Clear button, add warning dialogue box that asks: Are you sure you want to clear?

Re: Clear button, add warning dialogue box that asks: Are you sure you want to clear?

Re: Clear button, add warning dialogue box that asks: Are you sure you want to clear?

Re: Clear button, add warning dialogue box that asks: Are you sure you want to clear?

Re: Clear button, add warning dialogue box that asks: Are you sure you want to clear?

Re: Clear button, add warning dialogue box that asks: Are you sure you want to clear?

Re: Clear button, add warning dialogue box that asks: Are you sure you want to clear?

Re: Clear button, add warning dialogue box that asks: Are you sure you want to clear?

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions