Kod ile hücre dolgu rengini değiştirmek

[kmlpyrz]

Hücrelere renklerin isimleri yazıldığında, o aktif hücrenin dolgu renginin de aynı renk olmasını nasıl sağlayabiliriz?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sayfanızın kod bölümüne uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B7:E25")) Is Nothing Then Exit Sub
    Target.Interior.ColorIndex = xlNone
    Set BUL = Range("A1:F1").Find(Target, , , xlWhole)
    If Not BUL Is Nothing Then
        Target.Interior.ColorIndex = BUL.Interior.ColorIndex
    End If
End Sub

 

[kmlpyrz]

Sayın Korhan Ayhan, ilginiz ve yardımınız için çok teşekkür ederim.