verbergen als cel 0 is

[Rogierasd]

Ha iedereen!
ik wilde een rij verbergen als een cel 0 is. ik had als idee dit in de worksheetcode te zetten.
Werkt niet, wie corrigeert mij?
Het moet voor elke cel en rij werken..

Private Sub Worksheet_SelectionChange()
If Range("A1") = "0" Then
EntireRow("A").Visible = False
Else
EntireRow("A").Visible = True
End If

End Sub

dit moet ik hebben voor cel a1 en rij 1, voor cel a2 en rij 2, etc...
Wie helpt mij???!!!

 

[Demeter]

Met volgende code laat je je rij verbergen.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        If Target.Value = 0 Then Target.Rows.Hidden = True
    End If

End Sub

probleem is hoe wil jij je rij weer terug krijgen?
Door er een ander getal in te vullen? hoe doe je dit als je rij verborgen is?

 

[Rogierasd]

Ha! goede vraag!! de cel wordt ingevuld door een formule..
kijken of 't werkt, of dat ik een gruwelijke denkfout maak...

 

[HSV]

Ik heb hier nog wel een voorbeeld bestandje, misschien kun je er iets mee.

 

[Rogierasd]

Ha Demeter, werkt goed, maar inderdaad, als er daarna automatisch een andere waarde in komt houd, ie 'm verborgen.
Kan er niet op een manier een else bij, ofzo?
ik heb else geprobeerd:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("C5:C10")) Is Nothing Then
        If Target.Value = 0 Then Target.Rows.Hidden = True
        Else
        Target.Rows.Hidden = False
        
    End If

End Sub

Ik doe iets fout,maar wat??

 

[Rogierasd]

Ik heb hier nog wel een voorbeeld bestandje, misschien kun je er iets mee.

Dit werkt perfect!, maar 't moet automatisch..

 

[Rogierasd]

Kan 't ook getoggled?

Ik heb uiteindelijk deze gebruikt, hartelijk dank!
Werk nu met een command button, met de code:

Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd

Wilde het echter graag met een toggle knop, zou je daarmee kunnen helpen, ik weet namelijk niet hoe de Toggle knop met code werkt...

Alvast veel dank!!!!

rogier

 

[Roncancio]

Ik heb hier een programma gemaakt waarin gebruik wordt gemaakt van een togglebutton.
Wellicht kan je er mee uit de voeten.

Met vriendelijke groet,


Roncancio

 

[Rogierasd]

Geweldig Roncancio,

hiermee werkt 't prima, ziet er ook top uit!

Thanx!
rogier

 

[huijb]

@peeweezy Graag een eigen vraag maken a.u.b. Het is niet netjes om in een ander zijn of haar vraag jouw probleem aan de orde te stellen. Bovendien is het verwarrend voor de helpers en de oorspronkelijke vragensteller.