Hücre içindeki koda göre renklendirme

[pekman]

Merhaba,

Ekteki dosyada görüleceği üzere, K1 hücresi içine yazılan bölüm kodlarını C2-V2 arasındaki ilgili alanda bulup, dolgu yapabilecek makro kodu için yardımlarınızı istiyorum. Şimdiden teşekkürler.

 

[ÖmerFaruk]

K4-H5 demek
K4-H5 arasıdanki tüm değerler mi?
Sadece K4 ve H5 mi?

Her daim yazım formatınız bu şekilde mi olacak?

 

[pekman]

C2 - V2 arasındaki hücrelerde yazan ölümde veya bölümlerde değişiklik yapılacaksa ilgili bölümün kodunu K1 hücresine yazıyorum.
(örneğin: K4 - H5 - E3 bölümü olabilir, sadece H3 bölümü de olabilir)

Yazım formatımız ise sabit bu şekilde olacak

 

[ÖmerFaruk]

Sayfanızız kod sayfasına direkt yapıştırın.
K1 hücrenizde değişiklik yapınca çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range, Dizi, i As Integer
    If Intersect(Target, [K1]) Is Nothing Then Exit Sub
    Range("C2:V2").Interior.Color = xlNone
    Dizi = Split(Trim(Range("K1")), "-")
    For i = LBound(Dizi) To UBound(Dizi)
        Set Bul = Range("C2:V2").Find(Trim(Dizi(i)))
        If Not Bul Is Nothing Then
            Bul.Interior.Color = vbGreen
        End If
    Next i
End Sub

 

[pekman]

Elinize sağlık, çok teşekkür ederim.