Elke vierde regel in een tabel grijs maken

[hahaHans]

Ik heb deze makro gevonden:

Sub opvullen()
    Range("A2:Z1000").Interior.ColorIndex = xlNone
    Range("A2").EntireRow.Select
    Do While ActiveCell.Offset(0, 4).Value <> ""
       Selection.Interior.ColorIndex = 15
       ActiveCell.Offset(3, 0).EntireRow.Select
    Loop
End Sub

en die doet bijna wat ik wil. Hij kleurt hele rijen, maar ik wil dat hij alleen binnen mijn tabel (= 26 kolommen breed) cellen kleurt. Dus ik zoek naar de juiste syntax om een aantal cellen te selecteren in de loop in plaats van de hele rij.

 

[Roncancio]

Sub opvullen()
Dim lRij As Long
    lRij = 2
    Range("A2:Z1000").Interior.ColorIndex = xlNone
    While Range("D" & lRij).Value <> ""
       Range("A" & lRij & ":Z" & lRij).Interior.ColorIndex = 15
       lRij = lRij + 4
    Wend
End Sub

Met vriendelijke groet,


Roncancio

 

[hahaHans]

Dank je voor deze oplossing. Ik begin de syntax nu meer en meer te snappen.

 

[Ginger]

HaHaHans, Als je wilt, kan je dit óók zonder VBA oplossen. Gebruik dan gewoon de Conditional Format (voorwaardelijke opmaak) van Excel. Selecteer eerst het hele bereik waar je de gekleurde cellen wilt hebben. Zet dan in het formule-deel van de CF deze formule

[English]	=MOD(ROW();4)=0

[Dutch] 	=REST(RIJ();4)=0

Klik op OK en vanaf dan is iedere 4e regel gekleurd.

Groet, Leo

 

[hahaHans]

Beste Ginger,

Dat is een heel simpele oplossing voor mijn probleem. En het werkt goed, ook als de tabel gesorteerd wordt. De makro moest ik telkens na het sorteren opnieuw doen.
Weer wat nuttigs geleerd, dank je.

Hans.