Yinelenenlerin tespiti

[DMR 7]

Yinelenenlerin kaldırılmasını değil de istediğim bir renge boyanması istiyorum. bunu nasıl yaparım ?

 

[Murat OSMA]

Koşullu Biçimlendirmenin Yinelenen Değerler kuralı ile yapabilirsiniz.​

 

[DMR 7]

Koşullu Biçimlendirmenin Yinelenen Değerler kuralı ile yapabilirsiniz.​

teşekkür ederim hocam

 

[AdemCan]

Merhaba,
Makro kullanmadan Murat Bey'in dediği gibi Koşullu Biçimlendirme ile yapabilirsiniz.
Makro kullanmak isterseniz de alternatif olarak şu kodlar ile yapabilirsiniz.

A sütunundaki yinelenen kayıtları Kırmızı renk ile belirtir.

Sub yinelenenler()
Application.ScreenUpdating = False
For a = 2 To Range("A" & Rows.Count).End(3).Row
If Application.WorksheetFunction.CountIf(Range("A2:A" & [A65536].End(3).Row), Cells(a, "A")) > 1 Then
Cells(a, "A").Interior.Color = vbRed
End If
Next
Application.ScreenUpdating = True
End Sub