VBA formule voor verborgen regel zichtbaar maken

[janmulder85]

Beste forumleden,

Ik ben op zoek naar de oplossing van het volgende probleempje.

In een werkblad heb ik rij 1 t/m 10 zichtbaar waar allerlei gegevens ingevuld kunnen worden. Vervolgens heb ik de rijen 11 t/m 60 verborgen.

Graag wil ik d.m.v. een knop de verborgen rijen (11 t/m 60) 1 voor 1 zichtbaar kunnen maken, voor het geval dat je meer ruimte nodig bent voor gegevensinvoer.

Kan iemand mij helpen met de juiste formule welke ik onder de knop moet plakken om dit werkend te krijgen?

Alvast bedankt!

 

[Wigi]

Alsjeblieft.

Sub maakregelzichtbaar()
    
    Dim i As Integer
    
    Do Until Rows(10 + i).Hidden = True
        i = i + 1
        
        If i > 60 Then Exit Do
        
    Loop
    
    Rows(10 + i).Hidden = False
    
End Sub

Wigi

 

[janmulder85]

Bedankt voor je snelle reactie Wigi! :thumb:

Ik heb het meteen even geprobeerd en het werkt uitstekend!

Vraag opgelost en nog een prettige middag!

 

[Wigi]

Graag gedaan, voor jou ook nog een fijne dag gewenst

 

[janmulder85]

Wigi,

Nog een kleine toevoeging van mijn kant: Graag zou ik een tweede knop maken die de handmatig zichtbaar gemaakte regels die vallen tussen het bereik 11 t/m 60 weer 1 voor 1 onzichtbaar maakt. het lukt me niet om jouw formule dusdanig aan te passen dat het andersom werkt....

Hoe kan ik dit oplossen?

Jan

 

[Wigi]

Waarom moet dat 1 voor 1 gebeuren?

En je kan toch met de rechtermuisknop op het rijnummer klikken en Verbergen kiezen?

 

[janmulder85]

Ja dat kan inderdaad ook prima, het leek me alleen mooier qua indeling die ik maak in m'n werkblad om 2 knopjes vlakbij elkaar te hebben, 1 met regel toevoegen en 1 met regel verwijderen, vandaar...

 

[Wigi]

Dan draai je toch maar gewoon True en False om?

Sub maakregelonzichtbaar()
    
    Dim i As Integer
    
    Do Until Rows(10 + i).Hidden = [B]False[/B]
        i = i + 1
        
        If i > 60 Then Exit Do
        
    Loop
    
    Rows(10 + i).Hidden = [B]True[/B]
    
End Sub

Wigi

 

[janmulder85]

Dit werkt, maar hij gaat gewoon verder met verwijderen van rij 60 enz. als je per ongeluk te vaak klikt. Terwijl toch in de formule staat dat hij moet stoppen...

 

[Wigi]

Stop dan als i 50 is.

If i > 50 Then Exit Do

Want 10 + 50 = 60

Wigi

 

[janmulder85]

Probleem opgelost hoor Wigi, heb het getal 60 in deze code

If i > 60 Then Exit Do

moeten aanpassen en toen werkte hij.

In ieder geval bedankt voor je moeite!

 

[janmulder85]

precies gelijk gepost...