Waarschuwingsschermpjes

[naprius]

Een goedemorgen.

Ik ben nog altijd bezig met , hoe kan het ook anders, de koudemiddelregistratie.
Ik heb op verschillende bladen knoppen met macro's gezet die automatisch een bepaald cellenbereik leegmaakt als je erop klikt. Dit is het punt. Als je er per ongeluk op klikt ben je een hoop data kwijt, en ik zie de mensen die er mee moeten werken echt een keer per ongeluk op klikken.

Nu is mijn vraag, ik zou graag zodra je op zo'n knop klikt een popup schermpje krijgen die vraagt: "Dit verwijdert alle informatie op dit blad, weet u zeker dat u door wilt gaan?" en dat je dan op ja of nee kunt klikken. Met de gevolgen van dien.

Ik ben jammer genoeg nog niet zo ervaren in VBA en al helemaal niet in die schermpjes.. Maar ik ben bereid te leren!

bvd.

naprius

 

[Wigi]

Voilà

Sub JaNeenSchermpje()
    
    Dim VerwijderOfNiet As Variant
    
    VerwijderOfNiet = MsgBox("Dit verwijdert alle informatie op dit blad, weet u zeker dat u door wilt gaan?", _
        vbYesNo + vbDefaultButton2, "Bevestiging")
    
    If VerwijderOfNiet = vbYes Then Range("A1").ClearContents
    
End Sub

Wigi

 

[naprius]

Wederom een schot in de roos!

bedankt Wigi! :thumb: