Checkboxes in Excel en VBA Macro

[Finch]

Ik treed snb bij, je code is een kluwen waar een kat haar jongen niet in zal vinden. Probeer deze eerst de vereenvoudigen en te herschrijven met eerdere opmerkingen.
Het is best mogelijk dat je probleem op die manier van de baan is.

In je eerste post vroeg je code om de checkboxen te resetten. Aangezien ik merk dan elke checkbox begint met het woordje checkbox, ken je onderstaande code gebruiken om deze op sheet1 te resetten, wil je dat op een andere sheet doen, dien je gewoon de sheet verwijzing aan te passen.

Sub Reset()
Dim i As Long

For i = 1 To Sheet1.OLEObjects.Count
    If Left(Sheet1.OLEObjects(i).Name, 8) = "CheckBox" Then
        Sheet1.OLEObjects(i).Object.Value = False
    End If
Next i
         

End Sub

 

[crash]

@Mistic NV,

Graag de volgende keer code tag gebruiken indien je een code plaatst, dit staat ook duidelijk vermeld in de sticky topic van deze sectie;
http://www.helpmij.nl/forum/showthread.php?t=278887

Ik heb het nu aangepast voor je.