Aynı İsimli Satırları Renklendirmek

Katılım
13 Mayıs 2019
Mesajlar
5
Beğeniler
1
Excel Vers. ve Dili
10
#1
Merhaba,

Binlerce verilerin alt alta olduğu bir sütun var, bu sütunda aynı değere sahip satırları nasıl boyayabilirim?

mesela,

araba
araba
araba
ev
ev
çilek
çilek

burada arabaları ayrı renk, evleri ayrı renk yapmamız mümkün mü?
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
2,645
Beğeniler
189
Excel Vers. ve Dili
2007 Türkçe
#2
Merhaba,
Bahsettiğiniz sütunun "A" sütunu olduğunu varsayarsak şöyle bir kod kullanabilirsiniz.
PHP:
Sub kod()
For a = 1 To Cells(Rows.Count, "A").End(3).Row
    If WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(a, "A")), Cells(a, "A")) = 1 Then
        x = x + 1
        Application.ReplaceFormat.Interior.ColorIndex = x Mod 55 + 2
        Range("A:A").Replace What:=Cells(a, "A"), Replacement:=Cells(a, "A"), LookAt:=xlWhole, ReplaceFormat:=True
    End If
Next
End Sub
 
Katılım
13 Mayıs 2019
Mesajlar
5
Beğeniler
1
Excel Vers. ve Dili
10
#3
Merhaba,
Bahsettiğiniz sütunun "A" sütunu olduğunu varsayarsak şöyle bir kod kullanabilirsiniz.
PHP:
Sub kod()
For a = 1 To Cells(Rows.Count, "A").End(3).Row
    If WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(a, "A")), Cells(a, "A")) = 1 Then
        x = x + 1
        Application.ReplaceFormat.Interior.ColorIndex = x Mod 55 + 2
        Range("A:A").Replace What:=Cells(a, "A"), Replacement:=Cells(a, "A"), LookAt:=xlWhole, ReplaceFormat:=True
    End If
Next
End Sub
Evet oldu çok teşekkür ederim.

Peki merak ettiğim için soruyorum, bunu makro dışında bir yöntemle yapabilir miydik?
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
2,645
Beğeniler
189
Excel Vers. ve Dili
2007 Türkçe
#4
Bul-Değiştir menüsünden yada koşullu biçimlendirme ile de yapılabilir ama her değer için ayrı işlem yapmak gerekir.
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
2,645
Beğeniler
189
Excel Vers. ve Dili
2007 Türkçe
#6
Rica ederim,
İyi çalışmalar...
 
Üst