Onay kutularındaki tik işaretlerini toplu halde sıfırlama

[pri4pos]

Resimde göründüğü gibi bir tasarım yaptım ve sıfırla düğmesine bastığımda onay kutuları eğer tikliyse tüm tik işaretlerinin kalkmasına ihtiyacım var, bu mümkün mü? Cevaplar için şimdiden teşekkür ederim.

Resim;

 

[Mdemir63]

Selamlar
Onay kutuları Sayfa1 üzerinde düşünürsek
kodu deneyiniz

Sub OnayKutulariniKapat()
    Dim sayfa As Worksheet
    Dim kontrol As OLEObject
    Dim i As Integer
    
    Set sayfa = ThisWorkbook.Sheets("Sayfa1")
    
    Dim onayKutuIsimleri As Variant
    
    ReDim onayKutuIsimleri(1 To 10)
    For i = 1 To 10
      onayKutuIsimleri(i) = "CheckBox" & i
    Next i
    For i = LBound(onayKutuIsimleri) To UBound(onayKutuIsimleri)
        Set kontrol = sayfa.OLEObjects(onayKutuIsimleri(i))
        kontrol.Object.Value = False
    Next i
End Sub

 

[Mdemir63]

Bende çalışıyor
izleyin

 

[pri4pos]

Bende çalışıyor
izleyin

iznim yok izleyemiyorum maalesef

 

[Mdemir63]

İnceleyin

 

[pri4pos]

İnceleyin

Çalıştı, teşekkür ederim.

 

[Mdemir63]

Rica Ederim.
İyi çalışmalar