Aynı sayı değeri olan sayıları bulma

[pc_kopatts]

İyi çalışmalar benim bir isteğim var arkadaşar sayı.xls dosyasında C sütünunda sayılar var. Aynı olan sayıları makro ile bulup o hücrelerin sarı ile renklendirilmesini istiyorum. aynı olan sayıların hücre rengi sarı olsun isityorum. Bunu makro ile yapmamız mümkünmüdür acaba ?. Þimdi den tşk :hey:

 

[Haluk]

Makrosuz bir çözüm ektedir ...

 

[zafer]

Merhaba


Kodları module yapıştırınız

Sub benzeribulboya()

Dim i, y, a As Integer
a = WorksheetFunction.CountA(Range("c1:c65"))
For i = 1 To a
For y = i + 1 To a
If Cells(i, 3).Value = Cells(y, 3) Then
Cells(i, 3).Font.ColorIndex = 6
Cells(y, 3).Font.ColorIndex = 6
End If
Next y
Next i
      
End Sub

Edit: Ben kopyala yapıştır yaparken Sn.Haluk cevabını vermiş.

 

[Merhum İdris SERDAR]

Makrosuz bir örnek te benden.

 

[Haluk]

Zafer arkadaşımın VBA ile çözümüne bir alternatif olarak;

Sub Test()
    Dim NoC As Long, i As Long
    NoC = Cells(65536, 3).End(xlUp).Row
    For i = 1 To NoC
        If WorksheetFunction.CountIf(Range("C1:C" & i), Range("C" & i)) > 1 Then
            Range("C" & i).Interior.ColorIndex = 6
        End If
    Next
End Sub

 

[pc_kopatts]

Herkesin eline sağlık fazlası ile işimi gördü tşk. ediyorum çok sağolun :dua: