Rij hoogte aanpassen nav waarde in cel

[Dallandra]

Ik wil graag dat als de waarde in een bepaalde cel 0 is de hele rij verborgen wordt.

Hoe krijg ik dit voor elkaar?

Dallandra

 

[Joske2000]

Sub verwijderen_nulwaarden()
    Dim r As Range
    For Each r In Range("a1:A1600") ' Dit is de range waar de nullen kunnen staan
        If r.Value = 0 Then
            r.EntireRow.Hidden ' Verbergen van de rij
        End If
    Next
End Sub

Joske

 

[Dallandra]

Super, moet ik dit als een macro laten lopen of is de code voldoende om het automatische aan te passen ?

Dallandra

 

[Roncancio]

Super, moet ik dit als een macro laten lopen of is de code voldoende om het automatische aan te passen ?

Dallandra

Kan allebei.
Je kunt de macro laten lopen maar je kunt er ook voor kiezen om de macro automatisch te laten lopen als je iets wijzigt op het werkblad.

Met vriendelijke groet,


Roncancio

 

[Dallandra]

hoe doe ik dat?

 

[Roncancio]

hoe doe ik dat?

Onderstaande code verbergt de rij als de waarde in de A-kolom 0 is.
Hiermee voorkom je dat je steeds de gehele macro moet runnen als er een wijziging plaatsvindt.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A" & Target.Row).Value = 0 Then Target.Rows.EntireRow.Hidden = True

End Sub

Dus je zou de macro 1 keer kunnen runnen om de rijen te verbergen en vervolgens met bovenstaande code het werkblad bij kunnen werken.

Met vriendelijke groet,


Roncancio

 

[Dallandra]

ik ga d'r mee aan de slag, bedankt

 

[Dallandra]

Sub verwijderen_nulwaarden()
Dim r As Range
For Each r In Range("a1:A1600")
If r.Value = 0 Then
r.EntireRow.Hidden
End If
Next
End Sub

Ik krijg de volgende foutmelding:

"Ongeldig gebruik van een eigenschap" en .Hidden staat dan gearceerd ?

 

[Roncancio]

Sub verwijderen_nulwaarden()
Dim r As Range
For Each r In Range("a1:A1600")
If r.Value = 0 Then
r.EntireRow.Hidden
End If
Next
End Sub

Ik krijg de volgende foutmelding:

"Ongeldig gebruik van een eigenschap" en .Hidden staat dan gearceerd ?

Je moet = True nog toevoegen aan Hidden.
Dus:

Sub verwijderen_nulwaarden()
    Dim r As Range
    For Each r In Range("a1:A1600")
        If r.Value = 0 Then
            r.EntireRow.Hidden = True
        End If
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[Dallandra]

Werkt helemaal :thumb::thumb::thumb::thumb:

Bedankt