Seçili alandaki satırları renklendirme

[FlighTAiR]

Merhaba,

yapmaya çalıştığım şey seçtiğim alandaki satırları, ilk satır gri olmak sureti ile, gri, beyaz, gri beyaz olarak renklendirmek.

Sub Bold()
   With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
End Sub

Bu kodla sectigim satirlarin tamamini gri yapabiliyorum ama ne eklesem de aralari bos gecse?

 

[Necdet]

Merhaba,

Birşeyler yapmaya çalıştım, dener misiniz?

For Each Hücre In Selection
     With Hücre.Interior
        i = Hücre.Row Mod 2
         If i = 0 Then
             .ColorIndex = 15
             .Pattern = xlSolid
         Else
             .ColorIndex = xlNone
         End If
     End With
 Next Hücre
Application.ScreenUpdating = True
End Sub

 

[FlighTAiR]

Hocam elinize sağlık çok teşekkürler.
İlk satırın gri olmasını istiyordum, i = 1 yaparak bunu düzelttim.

Burada mod 2 ne yapılmasını sağlıyor diye sorsam.

Ben de aşağıdaki koddan yürümeye çalıştım. Orada da step 2 kullanılmış. Ama tam bir sonuca ulaşamamıştım.

Sub Bold()
Cells.Font.Bold = False
For i = 1 To Cells(65536, "A").End(xlUp).Row Step 2
    Rows(i).Font.Bold = True
Next
End Sub

Ok. Hocam ne yaptığını mod 1 2 3 yaparak buldum. Yine çok teşekkürler.