Kleur om en om de regel

[HWV]

Beste,

Ik heb een code die de randen opmaak bepaald van de gevulde cellen.
Nu wil ik in dit gebied ook de regels een kleur geven
Licht blauw en licht geel dan om en om tot de laatst gevulde cel.
Kan ik dit in de ze code gelijk inpassen, of welke code moet ik hier voor gebruiken.

    Range("A2:K" & Cells(Rows.count, 1).End(xlUp).Offset(0).Row).Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
        End With
        
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With

Voor kolommen om en om een kleur te geven gebruik ik nu :

    'Celopmaak licht geel tot laatst gevulde lijn
    Range("B2:B" & Cells(Rows.count, 1).End(xlUp).Offset(0).Row).Select
        With Selection.Interior
        .ColorIndex = 19
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    
    'Celopmaak licht groen, tot laatst gevulde lijn
    Range("C2:C" & Cells(Rows.count, 1).End(xlUp).Offset(0).Row).Select
        With Selection.Interior
        .ColorIndex = 35
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With

Maar kom er niet uit om dit in rijen te krijgen en dan tot de laatst gevulde cel

Groet HWV

 

[robdgr]

HWV

Volgens mij ken je meer VBA dan ik. Met VO werk je met de formule

=REST(Rij();2)=0

voor de even rijen. Maar hoe dit in VBA om te zetten is voor mij een vraag.

 

[Warme bakkertje]

2 manieren. Is het echt nodig om de hele rij te kleuren wijzig dan de 18 of de R in de macro's. De kleur moet je ook nog aanpassen.

Sub RijenKleuren()
For x = 2 To Range("a65536").End(xlUp).Row
If x / 2 = Int(x / 2) Then
Range(Cells(x, 1), Cells(x, 18)).Interior.ColorIndex = 4 'even rijen
Range(Cells(x - 1, 1), Cells(x - 1, 18)).Interior.ColorIndex = 3 'oneven rijen
End If
Next x
End Sub

Sub RijenKleuren2()
Dim lRij As Long
    lRij = 2
    While Range("A" & lRij).Value <> ""
        Range("A" & lRij & ":R" & lRij).Interior.Color = vbRed ' even rijen
        Range("A" & lRij - 1 & ":R" & lRij - 1).Interior.Color = vbGreen 'oneven rijen
        lRij = lRij + 2
    Wend
End Sub

 

[HWV]

Beste,

Het werkt weer perfect, en weer wat wijzer geworden

Bedankt voor de input

HWV