CommandButton

[Excelman]

Hallo Forum

Ik heb een command button geplaatst in een Excel bestand. Als ik deze aanklik
dan maakt dat het gehele blad leeg.
Nu wil ik deze command button koppelen aan een 2e sheet om dat blad ook leeg te kunnen maken
met deze button. Dus ik maak dan 2 sheets leeg met 1 command button.
Kan iemand mij helpen aan de code voor het koppelen naar het 2e blad?

Onderstaande reeks heb ik in gebruik voor het 1e blad.

Private Sub CommandButton1_Click()
Range("A11:A53") = "0"
Range("C11:C53") = "0"
Range("E11:E53") = "0"
Range("F11:F53") = "0"
Range("H11:H53") = "0"
Range("J11:J53") = "0"
 End Sub

Met vriendelijke groet.

 

[HSV]

Jouw code plaatst in de opgegeven cellen allemaal nullen.

Met onderstaande code wordt alles gewist van beide bladen.
Dus even testen op een voorbeeldbestandje vooraleer hier aan te beginnen op je origineel.

Private Sub CommandButton1_Click()
Worksheets(1).UsedRange.Clear
Worksheets(2).UsedRange.Clear
End Sub

 

[Excelman]

Beste Harry.

Hartelijk dank voor je hulp. Ik ben vergeten om er bij te vermelden dat het alleen de aangegeven
ranges mag wissen. Er staan op de sheets nog andere gegevens die moeten blijven.
Kan ik je code dan nog toepassen?

Met vriendelijke groet,

Ton

 

[Hoornvan]

Excelman,

Je kunt het ook zo schrijven.
Met ClearContents maakt hij de cellen leeg maar behoud de opmaak.

Private Sub CommandButton1_Click()
  [A11:A53,C11:C53,E11:E53,F11:F53,H11:H53,J11:J53] = ClearContents
  Worksheets(2).[A1:A3,D3:D5] = ClearContents
End Sub

 

[Excelman]

Command Button

Dank je wel Wim.

Het werkt perfect:thumb:

Met vriendelijke groet,


Ton

 

[Hoornvan]

Excelman,

Rest nu alleen nog de vraag als opgelost te zetten. :thumb: