Hücredeki rakama göre satır renklendirmesi?

[ZİNDAN]

Hücredeki yazı rengine göre satır renklendirmesi?

Merhaba;
Arkadaşlar bir satış tablosu yaptım, bu tabloya ürünleri C,D,E sütunlarına kopyala yapıştır yaparak "C" sütunu renkli olacak bir şekilde aktarıyorum. Sonrada satış yaptıkça satılanları sıralatıp, listeletiyorum vs.

Sizden ricam "C" hücresindeki yazı hangi renk ise "A:J" aralığındaki ait olduğu tüm satırdaki yazılarında aynı renkte olmasını istiyorum.

Bir türlü yapamadım, yardımcı olabilir misiniz? Makro ile bu yapılabilir mi?
Şimdiden teşekkürler arkadaşlar.


İyi akşamlar.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub RENKLENDIR()
    For X = 3 To Cells(Rows.Count, "C").End(3).Row
        Range("A" & X & ":J" & X).Font.ColorIndex = Cells(X, "C").Font.ColorIndex
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ZİNDAN]

Korhan Üstad, çok teşekkür ederim, süpersin.
İyi akşamlar.