büyük bir tablom var bu tabloda mükerrer kayıtları isaretlemem gerek asagıdaki kodu buldum çalışma sayfası kod görüntüle kısmına yazıyorum ama sadece a sutunundakileri tarayıp renklendiriyor

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Cells(a, "a").Interior.ColorIndex = 6
Next
End Sub

Ek Dosyalar

mükerrer.rar(13.88 KB)

ben ayrıca b ve c sutununu da ayrı ayrı taramasını ve b yi farklı c yi farklı renklendirmesini istiyorum

not:
1- a sutunundaki veri b sutununda olursa mükerrer olarak renklendirmeyecek sadece aynı sutundakileri renklendirmesi lazım
yardımcı olursanız sevinirim.
2- kod yazmaktan anlamam ne yapmam gerektigini yazarsanız sevinirim

Örnek ekleyiniz.

Merhaba;

Yazdıklarınıza göre bir örnek hazırladım kontrol edebilirmisiniz. İlk satırda Renk kodlarını rakamları değiştirerek farklı renklere çevirebilirsiniz.

Kolay gelsin.

Ek Dosyalar

Mükerrer_Schworse.rar(12.54 KB)

Merhaba;

Renk alanına giriş yapabileceğiniz 1-56 arası renk var(RGB İndex No)

1 Black
2 White
3 Red
4 Green
5 Blue
6 Yellow
7 Magenta
8 Cyan

8 Renk 7 araton var (8 X 7 = 56) toplam 56 renk tonunu kullanabilirsiniz.

Kolay gelsin.

Eyvallah hocam tam istediğim gibi çok teşekkürler.