Hücrede Seçilen Veriye Göre Hücrenin Renklendirilmesi

[baydeniro]

Merhaba Arkadaşlar,
D sütununda ürün tanımları yazılı ve her ürünün bir rengi var. A sütununa yazılan ürünün tanımını D sütununda eşleştirip, D sütunundaki ürün/renk yapısına göre A ve B sütununun aynı renk ile boyanması mümkün müdür !

 

[Korhan Ayhan]

Deneyiniz.

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

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
    
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
    
    Set Bul = Range("D:D").Find(Target, , , xlWhole)
    If Not Bul Is Nothing Then Target.Resize(, 2).Interior.Color = Bul.Interior.Color

    Set Bul = Nothing
End Sub

 

[baydeniro]

Deneyiniz.

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

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
   
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
   
    Set Bul = Range("D:D").Find(Target, , , xlWhole)
    If Not Bul Is Nothing Then Target.Resize(, 2).Interior.Color = Bul.Interior.Color

    Set Bul = Nothing
End Sub

Üstad çok teşekkür ederim, harika oldu. Sağlıcakla kalın