hücrenin renklenmesi

[TİKOS]

Dosyada isteğimi yazdım, yardımlarınızı bekliyorum.
çok teşekkürler

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
On Error Resume Next
Target.Interior.ColorIndex = xlNone
Set k = Range("A1:A65536").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then Target.Interior.ColorIndex = k.Offset(0, 1).Interior.ColorIndex
End Sub

 

[TİKOS]

teşekkürler
ellerinize sağlık

 

[Orion1]

teşekkürler
ellerinize sağlık

Rica ederim.
İyi çalışmalar.