Satır renklendirme

[memduh]

Arkadaslar satırları birer aralıkla renklendirmek istiyorum. (iki renk bir satir gri,bir satir beyaz) vb. formda rattım buldum. fakat örnekler açılmadığı için tekrardan soruyorum. saygılar.

 

[dEdE]

Merhaba,

Aşağıdaki kodu bir modülde çalıştırınız.

Sub Renklendir()
    For i = 2 To [A65536].End(3).Row Step 2
        Rows(i).Interior.ColorIndex = 15
    Next
End Sub