sutunda yinelenen değerlerin herbirine rasgele farklı renk verme

[a_p_p_o]

Slm lar

örneğin c sutununda aynı değere sahip 2 ya da daha fazla değerin bulunduğu hücrelerin herbirine rasgele farklı renkler verilebilir mi bunun makro kodu var mıdır?

 

[Korhan Ayhan]

Merhaba,

Eğer veri sayınız çok ise renk paletindeki renkler size yetmeyecektir.

Aşağıdaki kod istediğiniz renklendirmeyi yapar.

Sub EŞLEŞENLERİ_RENKLENDİR()
    Dim X As Long, BUL As Range, ADRES As String
    
    For X = 1 To Cells(Rows.Count, "C").End(3).Row
        If WorksheetFunction.CountIf(Range("C:C"), Cells(X, "C")) > 1 Then
            Set BUL = Range("C:C").Find(Cells(X, "C"), , , xlWhole)
            If Not BUL Is Nothing Then
                ADRES = BUL.Address
                Do
                    Randomize Timer
                    Cells(BUL.Row, "C").Interior.ColorIndex = Int((56 - 0) * Rnd() + 0)
                    Set BUL = Range("C:C").FindNext(BUL)
                Loop While Not BUL Is Nothing And BUL.Address <> ADRES
            End If
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bilal5412]

Buradaki kod her sayıya farklı renk vermekte. Bir kümenin içinde benzer olmayan sayı kümelerine nasıl farklı renk atayabilirim.