cellen wissen dmv knop en hierop een beveiliging

[plainme]

Amici's

We zijn hier weer eens

In bijlage bestandje
vraag:
Hoe kan ik via de button die bovenaan het blad is ingevoegd de inhoud v/d cellen G5;L46 Q5;V46 AA5;AF46 G50;L91 Q50;V91 AA50;AF91 G97;L138 Q97;V138 AA97;AF138 G144;L185 Q144;V185 AA144;AF185
wissen maar dat er een msgbox tevoorschijn komt alvorens door te gaan?
De msgbox zou dan de tekst bevatten " OPGELET U STAAT OP PUNT ALLE DATA TE WISSEN!!" met de knoppen "ok" of "annuleren"

Is dit mogelijk?

Alvast bedankt

Mvg
Marc


Ok jongens zelf al gevonden..... komma op het einde van de reeks was er teveel aan!!!

Maw vraag is dus opgelost

Nog een fijn bubbelweekend en hou het veilig en gezond.

Mvg
Marc

 

[Haije]

zo?

 

[VenA]

Zelf even het bereik aanpassen.

Sub VenA()
  If MsgBox("OPGELET U STAAT OP PUNT ALLE DATA TE WISSEN", vbOKCancel, "wissen") = vbOK Then Range("G5:L46,Q5:V46").ClearContents
End Sub

 

[plainme]

Beste Haije, VenA

Bij deze is dit weer eens mooi opgelost zie :thumb::thumb::thumb: waarvoor mijn dank
ik sluit hierbij dan ook de vraag

Nog een fijn bubbelweekend en hou het veilig en gezond.

Mvg
Marc

 

[plainme]

Amici's

Ik denk een beetje te vroeg gejubeld .....
na opslaan van het bestand krijg ik volgende errorcode 400
bij opzoeken van deze vind ik toch nergens een duidelijke uitleg...
dit is de code die ik er heb van gemaakt

Sub VenA()
  If MsgBox("OPGELET U STAAT OP PUNT ALLE DATA TE WISSEN", vbOKCancel, "wissen") = vbOK Then Range("G5:L46,Q5:V46,AA5:AF46,G50:L91,Q50:V91,AA50:AF91,G97:L138,Q97:V138,AA97:AF138,G144:L185,Q144:V185,AA144:AF185,").ClearContents
End Sub

ligt hier soms het probleem???

alvast bedankt


mvg
Marc

 

[VenA]

Lijkt mij niets met het opslaan van het bestand te maken te hebben. De laatste , hoort daar niet. Die moet je weglaten.

 

[plainme]

Beste VenA

probleem lag toch faar aan hoor.
, weggelaten en probleem opgelost!
vandaar dat de vraag als opgelost staat.

never the less

Nog een fijn bubbelweekend en hou het veilig en gezond.

Mvg
Marc