celeigenschappen vullen twee keer om de 5 regels

[HWV]

Beste,

Zit met het volgende probleem.
Ik gebruik onderstaande code om bepaalde cellen in te kleuren.
Nu kijkt hij in regel 8 of er een code staat, dan gaat hij twee regels erboven de cel eigenschappen aanpassen naar grijs.
dit tot het einde van de laatst gevulde cel.

Nu zou ik het volgende willen bereiken ipv dat dat het altijd om de 5 regels gaat dat hij na twee keer één keer overslaagt.

Je zou dan het volgende krijgen:

eerst om de twee keer om de 5 regels dan 1 keer om de 10 regels enz.

regel 8 en 13
regel 23 en 28
regel 38 en 43

tot laats gevulde cel.

Hoe kan ik dit voor elkaar krijgen !

cntRows = Blad2.UsedRange.Rows.Count + 1
For rw = 8 To cntRows Step 5
    For col = 1 To 5
        With Cells(rw, col)
        On Error Resume Next
        
        With Selection.Interior
            .Top = Cells(rw - 2, col).Select
            .ColorIndex = 15
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
        End With

    End With

    Next
Next

Zijn er suggesties voor een andere aanpak, dan hoor ik dit graag.

Alvast bedankt HWV

 

[rebmog]

Bedoel je zo?

cntRows = Blad2.UsedRange.Rows.Count + 1
i = 1
For rw = 8 To cntRows Step 5
    If i < 3 Then
        For col = 1 To 5
            With Cells(rw, col)
                On Error Resume Next
                With Selection.Interior
                    .Top = Cells(rw - 2, col).Select
                    .ColorIndex = 15
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                End With
            End With
        Next
        i = i + 1
    Else
        i = 1
    End If
Next

Rebmog

 

[HWV]

en alweer een oplossing !

Beste,

Ik heb het toegepast Perfect, je heb mij weer een stap verder gebracht.

Groet HWV