Thread: Macro

I think this is doable and easy, but i can not figure it out for the life of
me.

I have a macro that clears on the information from the screen. Can you have
something in the macro, that will prompt the user to ask a question, such as,
"Are you sure you want to clear all this information" The user can then
click yes or no. I guess it is similar to a validation.

Try this:

Sub Clear_Screen()

Dim response As Integer
Dim msg As String

msg = "Are you sure you want to clear all this information"
response = MsgBox(msg, vbYesNo, "WARNING")
If response = vbYes Then
'Enter existing code that clears the screen
Else
'Do something else
End If

End Sub




"John" wrote:

> I think this is doable and easy, but i can not figure it out for the life of
> me.
>
> I have a macro that clears on the information from the screen. Can you have
> something in the macro, that will prompt the user to ask a question, such as,
> "Are you sure you want to clear all this information" The user can then
> click yes or no. I guess it is similar to a validation.
>

Just a very small point,

Dim response As Integer

should be

Dim response As Long
or better, in Excel 2000 or later,
Dim response As VbMsgBoxResult


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


"David Hepner" <DavidHepner@discussions.microsoft.com> wrote in
message
news:A6282921-6AAF-4C8A-B26C-4614955ADE63@microsoft.com...
> Try this:
>
> Sub Clear_Screen()
>
> Dim response As Integer
> Dim msg As String
>
> msg = "Are you sure you want to clear all this information"
> response = MsgBox(msg, vbYesNo, "WARNING")
> If response = vbYes Then
> 'Enter existing code that clears the screen
> Else
> 'Do something else
> End If
>
> End Sub
>
>
>
>
> "John" wrote:
>
>> I think this is doable and easy, but i can not figure it out
>> for the life of
>> me.
>>
>> I have a macro that clears on the information from the screen.
>> Can you have
>> something in the macro, that will prompt the user to ask a
>> question, such as,
>> "Are you sure you want to clear all this information" The
>> user can then
>> click yes or no. I guess it is similar to a validation.
>>

hi,
yes

msgbox("are you sure???",vbyesnow, warning)

look up msgbox in vb help (not excel help)

regards
FSt1

"John" wrote:

> I think this is doable and easy, but i can not figure it out for the life of
> me.
>
> I have a macro that clears on the information from the screen. Can you have
> something in the macro, that will prompt the user to ask a question, such as,
> "Are you sure you want to clear all this information" The user can then
> click yes or no. I guess it is similar to a validation.
>

Thanks David, however
IT clears the page regardless of it i hit Yes or No.

Do i have to put the Else, way down at the end of the macro?

"David Hepner" wrote:

> Try this:
>
> Sub Clear_Screen()
>
> Dim response As Integer
> Dim msg As String
>
> msg = "Are you sure you want to clear all this information"
> response = MsgBox(msg, vbYesNo, "WARNING")
> If response = vbYes Then
> 'Enter existing code that clears the screen
> Else
> 'Do something else
> End If
>
> End Sub
>
>
>
>
> "John" wrote:
>
> > I think this is doable and easy, but i can not figure it out for the life of
> > me.
> >
> > I have a macro that clears on the information from the screen. Can you have
> > something in the macro, that will prompt the user to ask a question, such as,
> > "Are you sure you want to clear all this information" The user can then
> > click yes or no. I guess it is similar to a validation.
> >

John,

You must must the existing macro that clears the sheets and paste it uder
the section 'Enter existing code that clears the screen. If you have done
this and it still doesn't work. Copy your macro code and post it so I can
look at it.

"John" wrote:

> Thanks David, however
> IT clears the page regardless of it i hit Yes or No.
>
> Do i have to put the Else, way down at the end of the macro?
>
> "David Hepner" wrote:
>
> > Try this:
> >
> > Sub Clear_Screen()
> >
> > Dim response As Integer
> > Dim msg As String
> >
> > msg = "Are you sure you want to clear all this information"
> > response = MsgBox(msg, vbYesNo, "WARNING")
> > If response = vbYes Then
> > 'Enter existing code that clears the screen
> > Else
> > 'Do something else
> > End If
> >
> > End Sub
> >
> >
> >
> >
> > "John" wrote:
> >
> > > I think this is doable and easy, but i can not figure it out for the life of
> > > me.
> > >
> > > I have a macro that clears on the information from the screen. Can you have
> > > something in the macro, that will prompt the user to ask a question, such as,
> > > "Are you sure you want to clear all this information" The user can then
> > > click yes or no. I guess it is similar to a validation.
> > >

I cannot type or read today:

You must cut the existing macro that clears the sheets and paste it under
the section 'Enter existing code that clears the screen. If you have done
this and it still doesn't work. Copy your macro code and post it so I can
look at it.


"David Hepner" wrote:

> John,
>
> You must must the existing macro that clears the sheets and paste it uder
> the section 'Enter existing code that clears the screen. If you have done
> this and it still doesn't work. Copy your macro code and post it so I can
> look at it.
>
> "John" wrote:
>
> > Thanks David, however
> > IT clears the page regardless of it i hit Yes or No.
> >
> > Do i have to put the Else, way down at the end of the macro?
> >
> > "David Hepner" wrote:
> >
> > > Try this:
> > >
> > > Sub Clear_Screen()
> > >
> > > Dim response As Integer
> > > Dim msg As String
> > >
> > > msg = "Are you sure you want to clear all this information"
> > > response = MsgBox(msg, vbYesNo, "WARNING")
> > > If response = vbYes Then
> > > 'Enter existing code that clears the screen
> > > Else
> > > 'Do something else
> > > End If
> > >
> > > End Sub
> > >
> > >
> > >
> > >
> > > "John" wrote:
> > >
> > > > I think this is doable and easy, but i can not figure it out for the life of
> > > > me.
> > > >
> > > > I have a macro that clears on the information from the screen. Can you have
> > > > something in the macro, that will prompt the user to ask a question, such as,
> > > > "Are you sure you want to clear all this information" The user can then
> > > > click yes or no. I guess it is similar to a validation.
> > > >