Regels verbergen

[jammi]

Een vraagje

Ik zou indien er in kolom A een "X" staat zou de regel verborgen moeten worden dmv de volgende code.
Helaas werkt deze niet naar behoren

For Each c In Range("A5:A250")

If c.Value = "X" Then
Rows(c.Row).Hidden = True
Else
Rows(c.Row).Hidden = False
End If
Next

 

[edmoor]

Probeer deze eens:

For Each C In Range("A5:A250")
    Rows(C.Row).Hidden = IIf(UCase(C.Value) = "X", True, False)
Next C

Of gebruik AutoFilter:
https://docs.microsoft.com/en-us/office/vba/api/excel.range.autofilter

 

[lam201]

Peter,

de code werkt gewoon.
Let er wel op dat deze hoofdletter gevoelig is.
een kleine letter x wordt dus niet verborgen.

dit kan je ondervangen door UCASE( .. ) te gebruiken.
Hiermee worden alle letters door hoofdletters vervangen.


Een loop door 250 rijen en één voor één verbergen kan nog wel eens langzaam worden.
onderstaande code doet eerst een loop door alle rijen en rijgt alle cellen aan één tot één bereik.
Om ze op het einde in één keer te verbergen.

Sub HideRows()
Dim rng As Range
Dim x As Integer

For Each c In Range("A5:A250")
    If UCase(c.Value) = "X" Then
        If x = 0 Then
            Set rng = c
            x = 1
        Else
            Set rng = Union(rng, c)
        End If
    End If
Next

rng.EntireRow.Hidden = True


End Sub

 

[jammi]

Super bedankt voor de oplossing