rijen selecteren op celkleur

[DeCor]

Hoi,

Ik zou graag dmv een macroknop enkel de rijen te zien krijgen naargelang de celkleur in kolom B. Kan iemand mij hierbij helpen?

Zie bijlage.

Alvast bedankt.
DeCor

 

[Wigi]

Voor blauw (kleurcode 33):

Sub kleurtje()

    Dim r As Range
    
    Application.ScreenUpdating = False
    
    For Each r In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
    
        r.EntireRow.Hidden = (r.Offset(0, -1).Interior.ColorIndex <> 33)
    
    Next
    
    Application.ScreenUpdating = True
    
End Sub

De rest laat ik aan jou over.

Wigi

 

[DeCor]

Alvast bedankt Wigi, ga ik direct proberen.

 

[Warme bakkertje]

DeCor, een ideetje

Mvg

Rudi

 

[DeCor]

is gelukt en werkt prima.

Hartelijk dank voor de snelle reacties