Rijen verbergen

[Mr. Tape]

Beste deskundigen.

Ik ben op zoek naar een Macro die zodanig mbv een twee tal celwaarden de opgegeven rijen van waarde cel1 t/m de rij met de waarde van cel2 om de twee rijen één doet verbergen.

Ik heb gezien dat als je zelf een Macro opneemt hij de te verbergen rijen achter elkaar zet.
Maar ik denk dat het met cel waarde in een soort If-then or While-Went lus gezet moet worden.
Cel1 waarde = 22
Cel2 waarde = 100

Verborgen moeten dan wroden de rijen 22-25-28-31-34-37 enz tot aan rij 100.

Helaas nog te weinig kennis van VBA om dit meteen zo even te typen.

Of is hier ook een formule voor?

Ik hoop dat de vraagstelling duidelijk is.
Zovast bedankt voor jullie hulp.

Grtz
Ernie

 

[Wigi]

Sub verbergenvanrijen()
    
    Dim i As Long
    
    For i = Range("A1").Value To Range("A2").Value Step 3
        
        Rows(i).Hidden = True
        
    Next
    
End Sub

Wigi

 

[Mr. Tape]

Wigi

Wat ben je weer snel zeg.
Waarvoor hartelijk dan want dit is wat ik zocht

Vervolgvraag.
Om de rijen weer zichtbaar dan moet ik True veranderen in False?

Kan je zo'n macro ook koppelen aan een knop.
Zo ja is de macro naam dan (in jouw voorbeeld) verbergenvanrijen ??


na het volgende antwoord zal ik de vraag op opgelost zetten.

Grtz.
Ernie

 

[Wigi]

True wordt False

Je kan inderdaad die macro aan een knop hangen.

 

[Mr. Tape]

Wigi

helemaal helder.

maar het lukt me niet om de macro aan de knop te hangen/koppelen.
Kennelijk doe ik iets niet goed, of ben ik te vertrouwd met het koppelen van een zelf opgenomen macro aan een knop.

Voeg toch even snel één wrkbladje erbij.

zovast bedankt.

grtz. Ernie

 

[Mr. Tape]

Beste allen.

Na even goed kijken het probleempje gevonden en opgelost.

En zoals ook verwacht, HET werkt.

Wigi hartelijk dank.

grtz.
Ernie