Meerdere rijen verbergen

[Mr. Tape]

Een vervolg vraag op die van gisteren.:thumb:

Dat van een repeterende solo rij middels een knop met een macro verbergen lukt perfect.

Nu wilde ik proberen om cyclisch meerdere opéénvolgende rijen te verbergen.
Ik dacht toen aan een lus in een lus, doch dat gaf een foutmelding.
VBA zei; For was al in gebruik.

Ik wil aan de hand van een waarde in een cel dat de volgende rijen worden verborgen:
vb cel waarde is 22

verbergen rijen 22-23-24-25, 28-29-30-31, 34-35-36-37.
Dus vier opvolgende rijen verbergen, dan twee rijen laten zien, vier verbergen enz. enz.

Bvd
Grtz; Ernie

 

[Wigi]

Heus niet zo moeilijk hoor...

Sub verbergenvanrijen()
    
    Dim i As Long
    
    For i = Range("A1").Value To Range("A2").Value [B]Step 6[/B]
        
        Rows(i).[B]Resize(4)[/B].Hidden = True
        
    Next
    
End Sub

 

[Mr. Tape]

Wigi


Wat ben je toch weer snel met een antwoord.

Op m'n andere scherm, snel in het excell sheet jouw code gezet.

En het kon natuurlijk niet anders dan dat het natuurlijk werkt.:thumb:

Wederom hartelijk dank.

Grtz.

Ernie