çok satırlı bir listede bir atlayarak renklendirme

[unicorn]

1500 - 2000 ve daha fazla satırlı bir listede birer atlayarak satırları renklendirmek istiyorum bunu nasıl yapabilirim?

 

[kombo]

Aşağıdaki kodu sayfanın kod sayfasına yazın ve bir butona bağlayın:

Private Sub CommandButton1_Click()
Dim iRow As Integer
For iRow = 4 To Range("A1").SpecialCells(xlLastCell).Row Step 2
Rows(iRow - 1).Interior.ColorIndex = xlNone
Rows(iRow).Interior.ColorIndex = 15
Next iRow
End Sub


Kodlar sn.yurttaş'a aittir.

 

[unicorn]

office 2003 tr kullanıyorum ve bazı terimler affınıza sığınarak bana çok bildik gelmiyor... ondan yeni başlayan bölümde yazdım... ileri düzey pc ve ofis kullanıcısı olmama rağmen "kod sayfası" "butona bağlayın" diyince tr office de nereye yazacağımı bilemedim... hızlı cevap için teşekkürler bu arada.

 

[Necdet]

Sayın unicorn,

Makro kullanmadan koşullu biçimlendirme ile yapmak isterseniz aşağıdaki linki inceleyebilirsiniz.

http://www.excel.web.tr/viewtopic.php?t=8351

 

[kombo]

Aşağıdaki dosyayı inceleyin gerekli açıklamalar var.
Sağlıcakla kalın.

 

[unicorn]

çok teşekkür ederim daha iyi anladım... sevgili kombo, necdet bey ilginiz için minnettarım