Checkbox ile hücre boyama

[winstoncash]

Merhaba,

Excel tablomdaki hücrelerin içine checkboxlar koyup eğer checkbox seçili ise hücreyi yeşile boyamasını, seçili değilse dolguyu kaldırmasını istiyorum. Kodu aşağıdaki gibi sheet1 dosyasının vba penceresine yazdım ama "invalid outside procedure" gibi bir hata veriyor. Nasıl yapmalıyım?

If CheckBox1.Value = True Then
Range("N2").Select
 With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Else
 Range("N2").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If

 

[Muzaffer Ali]

Merhaba.
CheckBox'un bulunduğu sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub CheckBox1_Click()
    With Range("N2").Interior
        If CheckBox1.Value Then
            .Color = 5287936
        Else
            .Pattern = xlNone
        End If
    End With
End Sub

 

[winstoncash]

Merhaba.
CheckBox'un bulunduğu sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub CheckBox1_Click()
    With Range("N2").Interior
        If CheckBox1.Value Then
            .Color = 5287936
        Else
            .Pattern = xlNone
        End If
    End With
End Sub

Muzaffer bey teşekkür ederim. Ufak bir sorum daha olacak. Başlık kısmına bir checkbox daha koyup onu işaretlediğimde aşağıdaki tüm checkbox'ları işaretli hale getirmesini sağlayabilir miyim? "Tümünü seç" şeklinde bir işlev istiyorum.