Karşılaştırıp Renklendirme - Yardım

[entalpi]

Merhaba, ekteki dosyayla ilgili büyük bir sorunum var. Çözen arkadaşa şimdiden teşekkür ederim. Bigpallets sheetindeki bulunan lokasyon isimlerinin diğer sheette pembeye boyanmasını istiyorum. Yardımlarınızı için şimdiden teşekkürler...

 

[muygun]

Slm.
Tablonuzun bir kısmını koşullu biçimlendirme ile düzenledim. Kalan kısmı için gerekli açıklamayı dosya içerisinde belirttim.
İyi çalışmalar.

 

[Orion1]

Alternatif:
Kod ile yapılmış şekli.
Dosya ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, Range("AB83:BT455")) Is Nothing Then Exit Sub
On Error Resume Next
Set k = Sheets("Bigpallets").Range("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing And Target.Value <> "" Then
    Target.Interior.ColorIndex = 7
    Else
    Target.Interior.ColorIndex = xlNone
End If
End Sub