Onay Kutusu Ekleme

[kemalist]

Arkadaşlar Merhaba5;E5;F5 ve G5 hücrelerine D,E,F ve G çalışma sayfalarından bağ ile veri bağlantısı var. D-E-F ve G sütununda onay kutuları var.Benim yapmak istediğim onay kutusu boş olduğunda altında bulunan hücrelerin boş duruma gelmesi;onay kutusu dolu olduğunda tekrar bağ ile hücrelere verilerin gelmesi.Bunu makro ile nasıl yapabilirmiyiz? İlginiz için şimdiden teşekkür ederim.
Örnek dosya ektedir..

 

[Korhan Ayhan]

İşlemi yaptığınız sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Private Sub CheckBox1_Click()
    If CheckBox1 Then
        For X = 5 To 40
            Cells(X, "D").Formula = "=D!D" & X
        Next
    Else
        Range("D5:D40").ClearContents
    End If
End Sub

Private Sub CheckBox2_Click()
    If CheckBox2 Then
        For X = 5 To 40
            Cells(X, "E").Formula = "=E!E" & X
        Next
    Else
        Range("E5:E40").ClearContents
    End If
End Sub

Private Sub CheckBox3_Click()
    If CheckBox3 Then
        For X = 5 To 40
            Cells(X, "F").Formula = "=F!F" & X
        Next
    Else
        Range("F5:F40").ClearContents
    End If
End Sub

Private Sub CheckBox4_Click()
    If CheckBox4 Then
        For X = 5 To 40
            Cells(X, "G").Formula = "=G!G" & X
        Next
    Else
        Range("G5:G40").ClearContents
    End If
End Sub

 

[kemalist]

Teşekkür ederim Korhan Bey...