Tekrarlayanları bul ve boya?

[halilterzi]

Arkadaşlar sütün verileri içerisinde tekrarlayanları bulup listelesin ve renklere ayırarak boyasın? nasıl yapabilirim.

 

[Ömer]

Arkadaşlar sütün verileri içerisinde tekrarlayanları bulup listelesin ve renklere ayırarak boyasın? nasıl yapabilirim.

Merhaba,

Module kopyalayıp çalıştırın.

Sub ListeleBoya()
 
    Dim i As Long, c As Range, Adr As String, say As Byte
 
    son = Cells(Rows.Count, "A").End(xlUp).Row
 
    [C:C].Clear
    Range("A1:A" & son).Interior.ColorIndex = 0
    Range("A1:A" & son).AdvancedFilter xlFilterCopy, , Range("C1"), True
 
    say = 2
    For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        say = say + 1
        Cells(i, "C").Interior.ColorIndex = say
        With Range("A:A")
           Set c = .Find(Cells(i, "C"), , xlValues, xlWhole)
           If Not c Is Nothing Then
               Adr = c.Address
               Do
                   Cells(c.Row, "A").Interior.ColorIndex = say
                   If say Mod 56 = 0 Then say = 2
                   Set c = .FindNext(c)
               Loop While Not c Is Nothing And c.Address <> Adr
           End If
       End With
    Next i
 
    MsgBox "İşlem Tamam.", vbInformation, "excel.web.tr"
 
End Sub

.

 

[halilterzi]

teşekkürler

Çok teşekkür ederim çok sağ olun. baya işe yarıyor. beni büyük bir zahmetten kurtardınız.