Opgelost rijen verbergen als een cel geen kleur heeft

[Angela69]

Hallo,
In een dagen sheet (zie bijlage) hebben enkele velden in kolom B geen kleur.
Die rijen zou ik in één handeling willen "verbergen", heeft iemand een idee hoe dit op te lossen is?

 

[Warme bakkertje]

Probeer deze eens.

Sub HideNonColoured()
    Application.ScreenUpdating = False
    For Each cl In Range("B2", Range("B" & Rows.Count).End(xlUp))
        If cl.DisplayFormat.Interior.Color = 16777215 Then
            cl.EntireRow.Hidden = True
        End If
    Next
End Sub

 

[AHulpje]

En zo tover je ze weer tevoorschijn:

Public Sub ToonAlles()
    Cells.EntireRow.Hidden = False
End Sub

 

[Angela69]

En zo tover je ze weer tevoorschijn:

Public Sub ToonAlles()
    Cells.EntireRow.Hidden = False
End Sub

Super, hartelijk dank beiden!

 

[snb]

toch ?

Sheet1.columns(2).AutoFilter 1, , 12]

opheffen

Sheet1.columns(2).AutoFilter

Zie ook:

VBA voor smarties: Autofilter

snb-vba.eu

 

[AHulpje]

@snb
Helaas, cellen zijn gekleurd op basis van voorwaardelijke opmaak.