lege rij verbergen maar wel formule in cel

[Lies79]

Ik heb onderstaande macro gemaakt, maar in kolom M staat een formule ALS, deze wordt dan niet verborgen.
Hoe kan ik dit oplossen? Als de cel in kolom M 0 of leeg is, mag de rij verborgen worden.
Alvast bedankt.

Sub Rijen_verwijderen_Resultatenrekeningen()
'
' Rijen_verwijderen_Resultatenrekeningen Macro
' Rijen verwijderen in resultatenrekeningen
'Rijen verbergen

Dim endRow As Long
Dim Cell As Range
Dim i As Integer
Sheets("spec.res.").Select

endRow = Cells(Rows.Count, 1).End(xlUp).Row
Set ColBZ = Range(Cells(9, "M"), Cells(endRow, "M"))
For Each Cell In ColBZ
If Cell.Value = 0 Then
Cell.EntireRow.Hidden = True
End If
Next Cell


End Sub

 

[pasan]

ik heb de volgend regel aangepast

If Cell.Value = 0 Then

naar

If Cell.Value = "" Then

in de als formule heb ik als de voorwaarde onwaar is een "" ipv een 0

ik gebruik xl2010 en hier werkt het

 

[Roncancio]

Sub Rijen_verwijderen_Resultatenrekeningen()
Range("M:M").AutoFilter 1, ">0"

End Sub

Met vriendelijke groet,


Ron

 

[Lies79]

Er is een fout, verbergt en toont niet na rij 135

Bekijk bijlage Voorbeeld (fout in verbergen en tonen).xlsm
In bijgevoegd bestand, verbergt hij mooi de nullen tot aan rij 135 en ookal zijn de volgende cellen in kolom M 0, toch verbergt hij deze niet, kan iemand mij zeggen hoe dit komt?

 

[pasan]

je wil kolom "M" filteren dit is de 13e kolom, in jou voorbeeld bestand zoek je naar de laatste cel in kolom 1

 Sheets("Spec.Invest").Select
  endRow = Cells(Rows.Count, [COLOR="#FF0000"]1[/COLOR]).End(xlUp).Row

maak hier 13 van zoals

 Sheets("Spec.Invest").Select
  endRow = Cells(Rows.Count, [COLOR="#FF0000"]13[/COLOR]).End(xlUp).Row

 

[Lies79]

Zalig, bedankt.

 

[pasan]

Mocht het zo zijn dat alle rijen in het gehele blad zichtbaar mogen worden dan gaat het met volgende code iets sneller
Ik weet uiteraard niet of dit in jou geval wenselijk is

Sub Rij_Spec_Invest_weergeven()
With Sheets("SPEC.INVEST")
.Cells.EntireRow.Hidden = False
End With
End Sub

 

[Lies79]

Beste Pasan

Ik heb dus in meerdere tabbladen de knop zichtbaar maken, kan ik bv. deze macro zo bewerken dat hij bij elke knop in de werkbladen alles zichtbaar maakt.
Want nu doet hij dit enkel in "Spec.Invest"?

Het is uiteindelijk de bedoeling dat ik deze knop op 1 tabblad ge zetten en dat als daar op wordt gedrukt, dat alle rijen in alle tabbladen terug zichtbaar zijn, maar dat is voor in de toekomst.

 

[Roncancio]

Sub AllesTonen()
Dim WS As Worksheet
    For Each WS In Worksheets
        WS.Cells.EntireRow.Hidden = False
    Next

End Sub

Met bovenstaande code worden alle cellen van alle werkbladen getoond.

Met vriendelijke groet,


Roncancio

 

[Lies79]

Hartelijk dank