Tüm checkboxtaki işaretleri kaldırmak

[pristineli45]

Arkadaşlar merhaba.
En az 200 satırdan oluşan yapılacak işler listem var. İşimi yaptıkça kutucuktaki checkboxa check işareti koyuyorum. Tüm işlerim bitince de yeni aya hazırlamak için bu check işaretlerini teker teker kaldırıyorum. İsteğim şu :
Bütün bu check işaretlerini bir buton aracılığıyla tek seferde nasıl kaldırabilirim?
Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Pasif_Yap()
 
    Dim nesne As OLEObject
    
    For Each nesne In ActiveSheet.OLEObjects
        If TypeName(nesne.Object) = "CheckBox" Then
            nesne.Object.Value = False
        End If
    Next nesne
    
End Sub

.

 

[Korhan Ayhan]

Aşağıdaki linkli inceleyiniz.

CheckBox Kontrol

 

[pristineli45]

Ömer kardeş.
İlgine ve emeğine teşekkür ediyorum. Fakat (benden kaynaklandığı kesin) çalışmadı. Bu kodları modüle mi ,sayfaya mı yapıştıracağım? (Commandbutton ile)

 

[pristineli45]

Korhan hocam.Sizin de ilginize teşekkür ediyorum.Kodları uyguladım fakat her ikisinde de;
"Method or data member not found " şeklinde hata uyarısı veriyor. Tamam deyince;
"For Each NESNE In Me.Controls" satırındaki "Controls" kısmı seçili hale geliyor ve kod çalışmıyor.

 

[Merhum İdris SERDAR]

.

Deneyin:

Sub sil()
    ActiveSheet.CheckBoxes.Value = xlOff
End Sub

Veya:

Sub sil2()

  Dim ONK As Object

    For Each ONK In ActiveSheet.CheckBoxes
      ONK.Value = xlOff
    Next ONK

End Sub

.

 

[pristineli45]

Yurttaş dostum tamamdır.
İlgine,bilgine ve emeğine sağlık.Teşekkür ederim

 

[Korhan Ayhan]

Alternatif olarak aşağıdaki linki inceleyiniz.

CheckBox

 

[pristineli45]

Korhan Hocam sizin de ilginize teşekkür ediyorum. Verdiğiniz linkte de değerli bilgiler edindim. Teşekkür ederim tekrar.