• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rijen verbergen

Status
Niet open voor verdere reacties.

Mr. Tape

Gebruiker
Lid geworden
1 jul 2006
Berichten
44
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
 
Code:
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
 
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
 
True wordt False

Je kan inderdaad die macro aan een knop hangen.
 
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
 

Bijlagen

Beste allen.

Na even goed kijken het probleempje gevonden en opgelost.

En zoals ook verwacht, HET werkt.

Wigi hartelijk dank.

grtz.
Ernie
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan