Aynı İsimli Satırları Renklendirmek

[tolga.asp]

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]

Merhaba,
Bahsettiğiniz sütunun "A" sütunu olduğunu varsayarsak şöyle bir kod kullanabilirsiniz.

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

 

[tolga.asp]

Merhaba,
Bahsettiğiniz sütunun "A" sütunu olduğunu varsayarsak şöyle bir kod kullanabilirsiniz.

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]

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.

 

[tolga.asp]

tamamdır hocam çok teşekkürler.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...