Rijen filteren

[janemmers]

Hallo
In het bijgevoegd bestand wil ik graag dmv de knop alle rijen verbergen waar een groen vlak in staat.
Ik weet niet op welke wijze ik de rijen met de groene vlakken kan selecteren en vervolgens kan verbergen

Graag hulp

 

[VenA]

Een optie

Sub VenA()
Application.ScreenUpdating = False
For Each cl In [C9].CurrentRegion
    If Not cl.EntireRow.Hidden Then cl.EntireRow.Hidden = cl.Interior.ColorIndex = 14
Next cl
End Sub

 

[Leotaxi]

Of



mvg
Leo

 

[janemmers]

Beide oplossingen functioneren zoals ik het wil. Bedankt!!