Aynı İsimli Satırları Renklendirmek

Katılım
13 Mayıs 2019
Mesajlar
5
Excel Vers. ve Dili
10
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
4,086
Excel Vers. ve Dili
2007 Türkçe
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
Excel Vers. ve Dili
10
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
4,086
Excel Vers. ve Dili
2007 Türkçe
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
4,086
Excel Vers. ve Dili
2007 Türkçe
Rica ederim,
İyi çalışmalar...
 
Üst