Selectievakjes

[hki]

Hallo,
Ik heb 10 selectievakjes op een tabblad staan die ik elk apart aan- en uitzet. Elk selectievakje stuurt een cel aan.
Ik zou als extra ook graag ALLE selectievakjes met 1 extra selectievakje willen aan- en uitzetten.
Dus of elk apart of allemaal samen.
Wie kan mij hiermee helpen?

 

[AHulpje]

Daar kunnen heel veel mensen jou mee helpen als je hier een voorbeeld plaatst.

 

[sylvester-ponte]

hallo hki, welkom op deze op helpmij. (je eerste post geplaatst) .
wil je dat bestandje van jouw hier plaatsen ?
dat werkt veel makkelijker voor de helpers.

 

[hki]

Bestandje staat bij eerste vraag.
Ik gebruik Excel 2019

 

[sylvester-ponte]

bedoel je dit?

 

[hki]

Dit is precies wat ik bedoel.
Hartelijk dank voor de geboden hulp. Super.

 

[snb]

Sub zetvakjes()
  Range("K5, K7, K9, K11, K13, K15, K17, K19, K21, K23") = Cells(3, 11)
End Sub

of

Sub zetvakjes()
  Range("K5, K7, K9, K11, K13, K15, K17, K19, K21, K23") = Blad1.CheckBoxes(Application.Caller) <> 1
End Sub