Per rij automatisch verbergen indien 0

[jovandesande]

Beste,

Ik zoek een VBA code waarmee op een blad rijen verborgen worden waar de formule 0 is. Via een ander topic kwam ik (na aanpassen tbv mijn bestand) deze VBA code tegen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If [C4] = "0" Then Rows("4:4").EntireRow.Hidden = True
 If [C4] = "1" Then Rows("4:4").EntireRow.Hidden = False
 End Sub

Nu werkt deze code echter enkel voor de rij 4 o.b.v. de formule in C4, maar in de rijen daaronder (in voorbeeld bestand C4 tm C7) moet eigenlijk hetzelfde voor gelden, indien waarde 0 dan verbergen.

Om nu voor elke regel apart de True/False code in te voeren wordt nogal wat werk, aangezien het ander bestand 390 regels heeft.

Is er een makkelijkere manier voor? Als ik [C4:C7] doe dan krijg ik een 13 foutmelding. Als ik Rows("4:7") doe dan worden die wel netjes verborgen als C4 0 is maar dat is niet de bedoeling.

Iemand een oplossing? Via Google en de search werd ik niet veel wijzer en de codes onbegrijpelijker (de huidige code snap ik nog wel). Bij voorbaat dank!

 

[Warme bakkertje]

Sub tst()
For Each cl In [C4:C400]
    cl.EntireRow.Hidden = IIf(cl.Value = 0, True, False)
Next
End Sub

 

[jovandesande]

Sub tst()
For Each cl In [C4:C400]
    cl.EntireRow.Hidden = IIf(cl.Value = 0, True, False)
Next
End Sub

Als ik die code invoeg dan gebeurd er niets meer, er wordt niets meer verborgen of wat dan ook.

 

[Warme bakkertje]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cl In [C4:C400]
    cl.EntireRow.Hidden = IIf(cl.Value = 0, True, False)
Next
 End Sub

 

[jovandesande]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cl In [C4:C400]
    cl.EntireRow.Hidden = IIf(cl.Value = 0, True, False)
Next
 End Sub

Het werk, super! Heel erg bedankt!

 

[Warme bakkertje]

Vergeet echter niet dat telkens je nu van cel verandert de code uitgevoerd wordt. Met de macro uit m'n eerste post,verbonden aan een opdrachtknop kan je de code telkens eenmalig uitvoeren wanneer je het wenst.