VBA Kodu ile Onay Kutusunu CheckBox (ActiveX-Denetimi) Gibi Kullanma.

[smaeler]

Merhaba Arkadaşlar.
Sub CheckBox1_Change()
If CheckBox1.Value = True Then
Call Form_TerfiHesapla.Show
Else
Call Temizle_FormVeri
End If
End Sub

Şeklinde Tik ile 1 adet Formun açılmasını sağlayan tik gidince Silme kodunu çalıştıran CheckBox1 (ActiveX) kullanıyorum.
Bu işlemi Form Denetimi olan ONAY KUTUSU ile yapmak istiyorum. Bu Mümkün mü? Kodu Nasıl düzenlemem gerekiyor. Yardımlarınızı Bekliyorum.

 

[Biolightant]

Form Denetimi olan ONAY KUTUSU

Doğru anladıysam Sayfa da bulunan bir Onay Kutusu ile

isminin Sayfa1 kabul ettiğim sayfa da Onay kutusu tıklanınca
Form_TerfiHesapla isimli UserForm u AÇmak

Tıklama iptal edilince de
isminin UserForm1 kabul ettiğim UserFormun, içinde ki Temizle_FormVeri isimli makroyu ÇALIŞTIRmak istiyorsun

Sayfa1 isimli Sayfada ki Onay kutusunun isminin "Onay Kutusu 1" olduğunu kabul ederek

her hangi bir modüle kodları ekleyip

Sub CheckBoxKontrol()
    Dim cb As CheckBox
    Set cb = Sayfa1.CheckBoxes("Onay Kutusu 1")
    'Set cb = Sayfa1.CheckBoxes("Check Box 1")
   
    If cb.Value = xlOn Then
        Call Form_TerfiHesapla.Show
    Else
        Call UserForm1.Temizle_FormVeri
    End If
End Sub

sonra da Sayfa1 de bulunan Onay Kutusu 1 isimli onay kutusunu sağ tıklayıp CheckBoxKontrol makrosunu ATAyınız.