Message box

[ZIPPO_2]

Hallo Excel liefhebbers
In een excelbestand heb ik op verschillende bladen een knop met macro staan " inhoud wissen",deze werkt prima
Maar nu ben ik al enige tijd bezig om via een msg box een bevestiging te vragen of de inhoud wel degelijk gewist moet worden (om per ongeluk wissen te vermijden) maar ik kom er niet uit.
Mss belangrijk is dat op elk blad niet dezelfde cellen moeten gewist worden, dus voor elk blad heb ik een aparte macro.

 

[Roncancio]

Vraag = MsgBox("Wil je de cellen wissen?", vbQuestion + vbYesNo, "Cellen wissen")
If Vraag = vbYes Then
    'Je code
End If

Met vriendelijke groet,



Roncancio

 

[HSV]

If MsgBox("Inhoud wissen?", vbYesNo, "LET OP!") = vbYes Then
'...hier jouw code....
End If

Edit: Echt veel te laat dus. ;-)

 

[ZIPPO_2]

Alvast bedankt voor jullie reactie;
Nog enkele vraagjes
1) wat bedoelen juist met "je code
2) zet ik deze macro in "this workbook"

Grtjs

 

[HSV]

1: is jouw macro (je hebt een knop met macro schreef je).
2: in een gewone module of in moduleblad (Sub, Private Sub)

 

[ZIPPO_2]

Heb de code ingepast maar werkt niet
Hierbij de code
Sub ClearMonth()

ActiveSheet.Unprotect Password:="xxxxxxxxxx"
If MsgBox("Inhoud wissen?", vbYesNo, "LET OP!") = vbYes Then
Application.EnableEvents = False
With ActiveSheet.Range("I5:AM23,K26:AN31")
.ClearContents
.Font.ColorIndex = 1
.Interior.ColorIndex = 0
End With
Application.EnableEvents = True
Range("A1").Select
End If
ActiveSheet.Protect Password:="xxxxxxxxxx"

End Sub

 

[HSV]

Werkt perfect,

Heb je het wel in een standaard module gezet?

 

[ZIPPO_2]

Hij staat idd in een standaard module
Vreemd nu werkt hij plots wel
Bedankt voor je hulp!