BİRDEN FAZLA YİNELENEN her DEĞERLERİ farklı RENKLENDİRME

Katılım
27 Ekim 2016
Mesajlar
4
Excel Vers. ve Dili
2016 türkçe
KOLAY GELSİN;
bir sütunda bulunan her yinelenen değeri farklı renklendirmek istiyorum örneğin yinelenen 3 hücremdeki "1234" değeri kırmızı dolgu, yinelenen 5 hücremdeki "5678" değerini sarı dolgu 2 hücremdeki "asdfg" değerini yeşil dolgu ile belirtmek istiyorum, bu yinelenen verim fazla koşullu biçimlendirmede 3 renk ile kısıtlı yinelenen her veri için farklı biçimlendirmeyi nasıl yaparım, çalışmada çok fazla yinelenen ve değişken veri oluyor her yinelenen değeri gruplandırmam lazım. 56 koşullu biçimlendirme die bir çalışma buldum ancak uygulamasını yapamadım(((https://www.excelgurusu.com/56-kosullu-bicimlendirme/)))
 

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Merhaba

Talebinize uygun hazırlanmış dosya ve ekran resimleri Ek' tedir.

Selamlar...

İlgili Ekran Resmi
212341


İlgili Kod
Kod:
Sub Yenilenen_Değerleri_Kendi_İçinde_Renklendir()
'23.12.2019    12:03

Range(Cells(2, 1), Cells(33, 3)).ClearContents
Range(Cells(2, 1), Cells(33, 3)).Interior.Color = xlNone

For i = 2 To 33

    Cells(i, 1) = Int(Rnd * 9) + 1
    
    x = Int(Rnd * 154) + 100
    y = Int(Rnd * 154) + 100
    Z = Int(Rnd * 154) + 100
    
    Cells(i, 6).Interior.Color = RGB(x, y, Z)

Next

For i = 2 To 33
    
    For j = 2 To 33
        
        If Trim(Cells(i, 1)) = Trim(Cells(j, 1)) Then say = say + 1
    
    Next
    
    Cells(i, 1).Interior.Color = Cells(say + 1, 6).Interior.Color
    Cells(i, 2) = say
    
    say = 0

Next

End Sub
İlgili Kod resmi

212342
 

Ekli dosyalar

Katılım
27 Ekim 2016
Mesajlar
4
Excel Vers. ve Dili
2016 türkçe
sağ olun atın üye olmadığım için maalesef ilk ekran altısındaki açıklamaları okuyamadığımdan uyulmasını yapmadım
 
Katılım
27 Ekim 2016
Mesajlar
4
Excel Vers. ve Dili
2016 türkçe
çalıştırdım ancak yinelenenleri aynı renkte belirtmiyor, ben beceremedim galiba, altın üye olacam
 

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Üst