CheckBox kodunu Onay kutusu koduna çevirme

[serdarinho43]

Değerli Arkadaşlar...

Aşağıdaki yazılan kodu nasıl onay kutusu 1 koduna cevirebiliriz.

Private Sub CheckBox1_Click()
If Me.CheckBox1 Then
[bordro!a6:a17].EntireRow.Hidden = 0
Else
[bordro!a6:a17].EntireRow.Hidden = True
End If
End Sub


Yardımlarınız için şimdiden teşekkürler...

 

[Orion1]

Onay kutusuna Sağ tıklayın.
Denetim biçimlendir'e tıklayın.
Hücre bağlantısı kutusuna A1 Hücresini referans verin(A1 yazın)
Tamama'a basın.
Onay kutusuna sağ tıklayın.
Makro ataya tıklayın.
Yeni 'ye tıklayın.
Aşaığıadaki kodu Açılan vbe'deki modüle yapıştırın.
VBE'yi kapatın.
İşlem tamamdır.

If Range("A1").value = true Then
       [bordro!a6:a17].EntireRow.Hidden = false
       Else
       [bordro!a6:a17].EntireRow.Hidden = True
End If