Tek düğme ile bütün onay kutusundaki tikler kalsın

[meken]

Merhaba ustalar 50 ye yakın onay kutusu var ve ben bunları tek tek seçecem ve daha tekrar yapmam gerekecek.Bir düğme ekledim bütün onayları kaldırmak için hangi kodları yazmalıyım.. Şimdiden teşekkürler...

 

[Korhan Ayhan]

Bu onay kutuları nerde bulunuyor?

 

[meken]

excelde 4 adet yana 13 adet aşağı onay kutusu var düğmeye basınca bütün işaretli tıkler kalksın yani sıfırlasın...
https://www.dosyaupload.com/3sIoy/Kitap2.xlsx
teşekkürler...

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub UnChecked_CheckBox()
    Dim XL_Shapes As Object
    
    Application.ScreenUpdating = False
    
    For Each XL_Shapes In ActiveSheet.Shapes
        If XL_Shapes.Type = 8 Then
            If XL_Shapes.FormControlType = xlCheckBox Then
                XL_Shapes.OLEFormat.Object.Value = xlOff
            End If
        End If
    Next

    Application.ScreenUpdating = True
End Sub

 

[mhaluksen]

Deneyiniz.

Option Explicit

Sub UnChecked_CheckBox()
    Dim XL_Shapes As Object
   
    Application.ScreenUpdating = False
   
    For Each XL_Shapes In ActiveSheet.Shapes
        If XL_Shapes.Type = 8 Then
            If XL_Shapes.FormControlType = xlCheckBox Then
                XL_Shapes.OLEFormat.Object.Value = xlOff
            End If
        End If
    Next

    Application.ScreenUpdating = True
End Sub

Peki Korhan Üstadım bunun tam tersi hepsini işaretleme nasıl olur

 

[Korhan Ayhan]

xlOff yazan yere xLOn yazarsanız sonuç alabilirsiniz.

 

[meken]

Sayın ustad makro pencertesine ekledim fakat çalışmadı.

 

[Korhan Ayhan]

Şimdi denedim. Çalışıyor.

 

[meken]

Ustad makro güvenliğinde uyarı işareti var izin verdim ama hala uyarı gösteriyor.Alakası var mı

 

[Korhan Ayhan]

Siz büyük ihtimalle kodu modüle ekledikten sonra sayfadaki commandbutona tıklıyorsunuz. Eğer böyle yapıyorsanız çalışmaz.

Aşağıdaki linki inceleyerek kodu kendi dosyaniza uyarlamaniz gerekir.

https://www.excel.web.tr/threads/sayfada-commandbutton-olusturmak-ve-makro-atamak-resimli-anlatim.68065/

 

[meken]

Sayın üstat verdiğiniz linkin aynısını yaptım başarılı uyarısı aldım. Kendime göre ayarladım. Yardımlarınız ve ilginiz için
teşekkürler elinize emeğinize sağlık. İyi çalışmalar

 

[Korhan Ayhan]

Dosyanıza iki buton ekledim. Birisi tümünü onaylıyor. Diğeri ise tüm onayları kaldırıyor.

Harici Link (Silinebilir) ; https://dosyam.org/129J/CheckBox_Örnek.xlsm