Ayni olanları renklendirmek

[levo26]

Merhaba;
a1:a10000 aralığında verilerim var. Ayni olanları makro ile seçerek nasıl renklendirebilirim.

a1 5
a2 3
a3 5
a4 7 şeklinde ise 5 olanların dolgu rengi sarı olacak.

 

[askm]

Örnek dosya eklerseniz daha iyi olacak. Yazdığınız gibi sadece 5 olanlar mı var aynı olanlar ne şekilde. Örneğin 5 den 3 tane 6 dan 2 tane ise bunların hepsini aynı renk yapması farklı bir işlem olur.

 

[levo26]

Merhaba;

Örnek çalışma linktedir. Teşekkürler.

http://s5.dosya.tc/server4/73potd/Test_calismasi.xls.html

 

[askm]

http://www.dosyaupload.com/ bu siteden yükleyebilir misiniz. Yüklediğiniz sayfayı açamıyorum.

 

[levo26]

Linkte sorun yoktu ama verdiğiniz linke yükledim..

http://www.dosyaupload.com/d56i

 

[askm]

Sub ASKM_Aynılari_Bul()
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To SonSat
    If WorksheetFunction.CountIf(Range("A2:A" & SonSat), Cells(i, 1)) > 1 Then
            Cells(i, 1).Interior.ColorIndex = 6
    End If
Next
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[levo26]

Teşekkürler. Ellerinize sağlık

 

[askm]

Rica ederim.