2 Macro on 1 button

[renman27]

Hello, new to VBA. I have created a Record Macro to delete some formatting on my spreadsheet. It works fine with the button. I have had users use the clear button by accident...

I want to have a message box appear with "are you sure you want to clear" MsgBox "Ok to clear the schedule?", vbYesNo

But when I do this...

Only one works? It will still clear it...but the message will not appear. I have done seperatly and both work. so I added this to have both appear.



Sub Button1_Click()
Call Sub MsgBoxYesNo()
MsgBox "Are you sure you want to clear the sheet?", vbYesNo
End Sub'Macro1
Call 'Sub Test()
'
' Test Macro
'


'
Range("B22:M34").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-6
Range("B4").Select
ActiveSheet.Paste
End Sub


Can someone guide me to what i need to change or provide the correct code?

 

[Joe4]

Welcome to the Board!

When you call other macros, you do NOT use the "Sub" part in your call statement.
It would just be:

Call MacroName

And if you want a confirmation check, you need to do something like this:

myCheck = MsgBox([COLOR=#333333]"Are you sure you want to clear the sheet?", vbYesNo)
If myCheck = vbYes Then
'   Call your macro here
End If[/COLOR]

 

[Michael M]

I also wouldn't use native code lines as the name of a macro

Sub MsgBoxYesNo()

 

[renman27]

Could you help me with this code?

Like I mentioned...Need the message box to ask yes or no with the are you sure message. and then I need it to be able to be used with my recorded macro...

This is all new to me again...have not done this for many years... any additional help would be great.

 

[Michael M]

Did @Joe4 not provide the answer to your question ??

 

[renman27]

I still don't understand.. I am trying and can't figure it out

 

[Michael M]

None of the code you provided clears cells.
So can you post the code that does this please.

 

[renman27]

The code I’m using is a record macro function. This is working on the button I have. I need the warning message to be added as well.

 

[renman27]

This is the record macro I am using..

Sub test()
'
' test Macro
'


'
Sheets("backup").Select
Selection.Copy
Sheets("IPT MEETING SCHEDULE").Select
ActiveSheet.Paste
Range("B4").Select
End Sub

 

[Michael M]

Maybe this, but as mentioned this does NOT delete anything it simply copies data to another sheet ???

Sub test()
MsgBox "Are you sure you want to clear the sheet?", vbYesNo
If vbYes = True Then
Sheets("backup").Select
Selection.Copy
Sheets("IPT MEETING SCHEDULE").Select
ActiveSheet.Paste
Range("B4").Select
End If
End Sub