Tablo Renklendirme

[planlamaci]

Merhaba,

200 satırlık bir excel tablosunda bakiye olmayan 0 dan farklı hücreleri büyükten küçüğe sıralayarak bir satır gri bir satır sarı olarak renklendirilebilirmi.


http://dosya.co/lg1wayt0g2p2/SR3.xlsx.html



teşekkür ederim.

 

[Murat OSMA]

http://www.excel.web.tr/f48/1-satyr-aralykla-satyr-renklendirme-t56228.html

 

[planlamaci]

o verdiğiniz konuda istediğim yok çünki bakiye yi sıraladıktan sonra boş olan hücreleri alta atıp kalan yani bakiyesi olan satırları birer satır atlayarak boyamak istiyorum. bunun imkanı varmıdır.

 

[planlamaci]

Aşağıda linkini verdiğim dosyada D sütununa göre 1 se sarı 2 ise gri 0 ise dolgu olmayacak şekilde tüm komple satır renklendirilebilirmi.


http://dosya.co/ykgj2mqtvlm5/SR3.xlsx.html

 

[sarpkayhan]

koşullu biçimlendirmeden yalnızca şunu içeren hüceleri biçimlendir yapıp
belirli metinden 1 yazıp dolgu verin sonra yeni kuraldan 2 verip dolgu verin

dosyanızı açamadım tahmini yazdım

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Sirala_Renklendir()
    Range("A2:C" & Rows.Count).Interior.ColorIndex = xlNone
    Range("B2:C" & Rows.Count).Sort Key1:=Range("C2"), Order1:=xlDescending
    Renk = 15
    For X = 2 To Cells(Rows.Count, 1).End(3).Row
        If Cells(X, 3) > 0 Then
            Range(Cells(X, 1), Cells(X, 3)).Interior.ColorIndex = Renk
            If Renk = 15 Then
                Renk = 6
            Else
                Renk = 15
            End If
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[planlamaci]

Teşekkür ederim korhan bey tam istediğim gibi oldu. Ellerinize sağlık.