Macro ile hücre renklendirilmesi

[ilkeresen]

Merhaba 12 sütundan oluşan ekteki tabloda hücrelere rakam yazıldığında o hücrenin, rakamı atadığım renge dönüşmesini sağlamam gerekiyor.

yardımcı olurnursa sevinirim.

Saygılar,

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodlar, Sheet1'in kod bölümüne yazılmıştır.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bul As Range
    If Not Intersect(Target, Range("A2:L65536")) Is Nothing Then
        Set bul = Range("A1:L1").Find(Target.Text, Lookat:=xlWhole)
        If Not bul Is Nothing Then
            Target.Interior.ColorIndex = bul.Interior.ColorIndex
        Else
            Target.Interior.ColorIndex = xlNone
        End If
    End If
End Sub

 

[ilkeresen]

Teşekkürlerimi sunarım elinize sağlık.