Mükerrer Kayıtları listelemek

[scorpix]

Selam Arkadaşlar.
Ben şirketimizde kullandığımız telefon rehberindeki aynı numaraları süzüp listelemek istiyorum. ekte örnek olsun diye basite indirgenmiş bir liste hazırladım. ekteki örnek dosyada istediğimi daha iyi anlatmaya çalıştım.

yardımlarınızı bekliyorum
teşekkürler..

 

[Ali]

Aşağıdaki linki inceleyiniz.

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.

 

[scorpix]

Ali bey
Çalışmanızı incelemiştim ama oradan kendime uygun bi kod çıkaramadım malesef. en azından mükerer kayıtlar renklense bile benim için yeterli olacak. sizin bu çalışmanızda mükerer olan kayıt varsa onlardan biri renkleniyo bense tamamının renklenmesini istiyorum..

 

[Ali]

Ali bey
Çalışmanızı incelemiştim ama oradan kendime uygun bi kod çıkaramadım malesef. en azından mükerer kayıtlar renklense bile benim için yeterli olacak. sizin bu çalışmanızda mükerer olan kayıt varsa onlardan biri renkleniyo bense tamamının renklenmesini istiyorum..

Sub renklendir()
Range("A1:A65536").Interior.ColorIndex = xlNone
For a = 1 To [a65536].End(3).Row
eski = Cells(a, "a")
If WorksheetFunction.CountIf([a:a], eski) <> 1 Then Cells(a, "a").Interior.ColorIndex = 6
Next
End Sub

şeklinde denermisiniz.