Aynı isimli hücrelerin renklendirilmesi

[pacor]

Arkadaşlar,

Ek'te bir tablom var tabloda da açıkladığım üzere bir"A" sütunda aynı ismi gördüğünde "B" sütunda karşısına gelen alanı aynı renge bründürmesini istiyorum.Örneğin A sütunda 3 farklı yerde "mehmet" ismi geçsin B sütunda üçyerede sarı renk gelmeli yada A sütununda 4 faklı yerde "Ali" ismi varsa B sütununa 4 yerede kırmızı renk getirmeli yani her renk farklı olmalı .Konu hakkında yardım edecek arkadaşlara şimdiden teşekkür ederim

 

[ynmcan]

Syn. Pacor ;
Ekteki dosyayı inceleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 100
If Sayfa1.Cells(i, 1) <> "" Then
If Sayfa1.Cells(i, 1) = Sayfa1.Cells(i, 2) Then
Sayfa1.Cells(i, 2).Interior.ColorIndex = 6
Else
Sayfa1.Cells(i, 2).Interior.ColorIndex = 0
End If
End If
Next
End Sub

 

[pacor]

Sayın ynmcany teşekkür ederim ilginiz için

 

[ynmcan]

Syn. Pacor ;
Yolladığım kodda bazı eksikler vardı. Bunları ekledim. 2 nolu mesajı yeniden inceleyin