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
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.