bij onwaar cellen wissen.

[sloekie]

Hallo Luitjes.

Ik heb een boodschappenlijst gemaakt.

Deze werkt prima maar nu zou ik graag als ik het vinkje weg haal b.v bij cel a6 dat dan cel c6 , d6 en e6 gewist worden. Zie bijlage

Is dit mogelijk

Gr Sloekie

 

[sylvester-ponte]

deze macro:

Sub Wis()
    Dim c As Range
    Set c = Range(ActiveSheet.CheckBoxes(Application.Caller).LinkedCell)
    If c = False Then c.Offset(, 2).Resize(, 3).ClearContents
End Sub

koppelen aan je checkboxen
zie voorbeeld:

 

[sloekie]

Ik heb hem geprobeerd maar hij werkt niet.

Ik heb nu de originele bestand bij gedaan.

Wat ik ook graag wil is de knoppen de kleur van de winkels willen geven maar dat lukt mij niet in dit formulierbesturingselement is dit mogelijk.

Gr. Sloekie

 

[sylvester-ponte]

wat werkt niet?

rar heb ik niet zap wel

 

[HSV]

Werkt prima Sylvester!

 

[sloekie]

Wat doe ik verkeerd dan?

Want bij mij doet hij het niet.

Gr Sloekie

 

[sylvester-ponte]

je moet de macro wis nog toekennen aan de knopjes
dat doe je een voor een.

 

[sloekie]

Sorry mijn fout niet goed bij nagedacht.

Maar het werkt perfect :thumb::thumb:

Gr Sloekie