Rijen verbergen vanaf regel naar eerste lege cel naar boven

[Tweety1]

Ik ben opzoek na een macro die de regels verbergt vanaf A500 tot 1 gevulde cel naar boven

Bv staat de er tekst in A100 dan A101 t/m A500 verbergen

Mvg

Kasper

 

[Niels28]

dit?

Sub verbergen()
Range("A" & Range("A500").End(xlUp).Offset(1).Row & ":A500").EntireRow.Hidden = True
End Sub

Niels

 

[Tweety1]

Opzicht werkt de macro goed alleen loop ik tegen het volgende aan.
De cellen bevat namelijk een formules. Is de uitkomst leeg dan wordt er ook niks in de cel getoond.
Alleen werkt de macro daar niet op.

 

[Niels28]

waarom dat niet melden in de vraag :evil:
je stelt hier al genoeg vragen om te weten wat voor info de helpers nodig hebben.

Niels

 

[Tweety1]

Sorry was helemaal vergeten

 

[Niels28]

Graag voorbeeldbestand, want wat ik leeg noem is anders dan jij leeg noemt.


Niels

 

[Niels28]

als leeg ook leeg is dan:

Sub verbergen()

    Range("$A$1:$A$500").AutoFilter
    ActiveSheet.Range("$A$1:$A$500").AutoFilter Field:=1, Criteria1:="<>"
    i = Range("A501").End(xlUp).Offset(1).Row
    Range("$A$1:$A$500").AutoFilter
    Range("A" & i & ":A500").EntireRow.Hidden = True
    
End Sub

Niels

 

[Tweety1]

Thanks