Excelde aynı benzerleri boyama

[Adalente]

Öncelikle Merhaba

Benim İstediğim şu örneğin a satırında bir numara var ve d satırındada aynı numara var ben bunları otomatik olarak boyamak istiyorum bunu nasıl yapabilirim.

Araştırdım bulduklarım ile tam beceremedim yardımlarınızı bekliyorum

 

[Merhum İdris SERDAR]

.

Bir örnek dosya ekleyin bakalım...


.

 

[Murat OSMA]

Eğer aynı olan bu değerler aynı satırda ise aşağıdaki kodu kullanabilirsiniz...

[SIZE="2"]Sub Emre()
    Dim bul As Range
    For Each bul In Range("A1:A200")
    If bul.Value <> "" And bul.Value = bul.Offset(0, 3).Value Then
    bul.Interior.ColorIndex = 22
    bul.Offset(0, 3).Interior.ColorIndex = 22
    End If: Next bul: Set bul = Nothing
End Sub[/SIZE]

 

[Adalente]

Murat Bey teşekkür ederim işime yaradı.

 

[Murat OSMA]

Rica ederim, iyi günler...