Waarschuwing geven voor definitief verwijderen

[JTMT]

Goede avond,

Met onderstaande macro verwijder ik het invuldeel van uitslagen van 7 weken kaarten, maar dit wordt met een knop gedaan, heb de tekst al rood en vet gemaakt, maar het invullen wordt gedaan door verschillende personen, dus wil ik nog een beveiliging inbouwen, bv een vraag "Wilt u echt alles verwijderen".
Hoe ga ik dit doen,
MVG JTMT


Sub VerwijderenRikken()
'
' VerwijderenRikken Macro
'

'
Sheets(Array("RWeek1", "RWeek2", "RWeek3", "RWeek4", "RWeek5", "RWeek6", "RWeek7")). _
Select
Sheets("RWeek1").Activate
Range("D3:G69").Select
Selection.ClearContents
Sheets("Schakelblad").Select
End Sub

 

[Hoornvan]

JTMT,

Kijk of dit aan je wensen voldoet.

Sub VerwijderenRikken()
'
' VerwijderenRikken Macro
Dim Msg, Style, Title, Response
'Sheets(Array("RWeek1", "RWeek2", "RWeek3", "RWeek4", "RWeek5", "RWeek6", "RWeek7")). _
Select
Msg = " Weet u het zeker?"
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Definieert knoppen.
Title = " Verwijderen"    ' Definieert titel.
  Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then    ' Gebruiker koos Ja.
  Sheets("RWeek1").[D3:G69].ClearContents
Else    ' Gebruiker koos Nee.
  Exit Sub
End If
Sheets("Schakelblad").Select
End Sub

 

[JTMT]

Waarschuwen bij verwijderen

Goede morgen Hoornvan,

Werkt perfect, was zelf al bezig met een formulier maken maar kwam er niet uit.
Ga dit op alle kaart programmas toepassen.
Bedankt

JTMT

 

[Hoornvan]

JTMT,

Fijn dat het naar de zin werkt.
Deze informatie staat in de help van Excel.
De code heb ik een beetje aangepast.

Er zijn helpers die de code wel korter kunnen maken maar ik ben er tevreden over.
Suc6

 

[JTMT]

nogmaals waarschuwen

JTMT,

Kijk of dit aan je wensen voldoet.

Sub VerwijderenRikken()
'
' VerwijderenRikken Macro
Dim Msg, Style, Title, Response
'Sheets(Array("RWeek1", "RWeek2", "RWeek3", "RWeek4", "RWeek5", "RWeek6", "RWeek7")). _
Select
Msg = " Weet u het zeker?"
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Definieert knoppen.
Title = " Verwijderen"    ' Definieert titel.
  Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then    ' Gebruiker koos Ja.
  Sheets("RWeek1").[D3:G69].ClearContents
Else    ' Gebruiker koos Nee.
  Exit Sub
End If
Sheets("Schakelblad").Select
End Sub

Heb wat te vroeg gejuicht, werkte alleen op eerst invulblad, maar dat was geen probleem,
door de aanpassing hieronder werkt het perfect.

Sub VerwijderenRikken()
'
' VerwijderenRikken Macro
Dim Msg, Style, Title, Response
'Sheets(Array("RWeek1", "RWeek2", "RWeek3", "RWeek4", "RWeek5", "RWeek6", "RWeek7")). _
Select
Msg = " Weet u het zeker?"
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Definieert knoppen.
Title = " Verwijderen" ' Definieert titel.
Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then ' Gebruiker koos Ja.
Sheets(Array("RWeek1", "RWeek2", "RWeek3", "RWeek4", "RWeek5", "RWeek6", "RWeek7")). _
Select
Range("D3:G69").Select
Selection.ClearContents
Else ' Gebruiker koos Nee.
Exit Sub
End If
Sheets("Schakelblad").Select
End Sub

Bedankt voor de tip zal eens wat meer eerst in de helpfuntie kijken
Nogmaals bedankt
JTMT

 

[Hoornvan]

JTMT,

Zo stond het in je eerste bericht. (Bladnaam)

Maak van deze code

Range("D3:G69").Select
Selection.ClearContents

dit

[D3:G69].ClearContents