Satır Numarasına Göre Renklendirme

[baydeniro]

Merhaba Arkadaşlar,
2. satırdan başlayarak dolu olan satırlarda uygulanmak üzere, satır numaraları TEK olanları renklendirmek mümkün mü ?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Tek_Numarali_Satirlari_Renklendir()
    Dim Veri As Range, Son As Long, Alan As Range
    
    Range("A2:B" & Rows.Count).Interior.ColorIndex = xlNone
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    For Each Veri In Range("A2:A" & Son)
        If Veri.Row Mod 2 = 1 Then
            If Alan Is Nothing Then
                Set Alan = Veri.Resize(, 2)
            Else
                Set Alan = Union(Alan, Veri.Resize(, 2))
            End If
        End If
    Next
    
    If Not Alan Is Nothing Then Alan.Interior.ColorIndex = 44
    
    MsgBox "Renklendirme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[baydeniro]

Deneyiniz.

Option Explicit

Sub Tek_Numarali_Satirlari_Renklendir()
    Dim Veri As Range, Son As Long, Alan As Range
   
    Range("A2:B" & Rows.Count).Interior.ColorIndex = xlNone
   
    Son = Cells(Rows.Count, 1).End(3).Row
   
    For Each Veri In Range("A2:A" & Son)
        If Veri.Row Mod 2 = 1 Then
            If Alan Is Nothing Then
                Set Alan = Veri.Resize(, 2)
            Else
                Set Alan = Union(Alan, Veri.Resize(, 2))
            End If
        End If
    Next
   
    If Not Alan Is Nothing Then Alan.Interior.ColorIndex = 44
   
    MsgBox "Renklendirme işlemi tamamlanmıştır.", vbInformation
End Sub

Korhan Ayhan üstadım, çok teşekkür ederim, sağlıcakla kalın