Filter by colour

[adam]

Hi anyone,

How could I write a VB code that would filter rows of column O that is highlighted in yellow?
My data starts from row 9 where headers in row 8.

Any help on this would be kindly appreciated.

Thanks in advance.

[Rudi]

You can adapt this to suite...

Code: Select all

Sub FilterData()
Dim rgData As Range

Const sCriteria = "Test" '<< Change the criteria to filter for...
    
    Set rgData = Range(Cells(8, "O"),Cells(Rows.Count, "O").End(xlUp))
    rgData.AutoFilter 1, sCriteria
    'rgData.Parent.AutoFilterMode = False '<< Remove filter if needed...
End Sub

[HansV]

To filter by color:

Code: Select all

Sub FilterData()
    Dim rng As Range
    Dim m As Long
    m = Range("O" & Rows.Count).End(xlUp).Row
    Set rng = Range("O8:O" & m)
    rng.AutoFilter Field:=1, Criteria1:=vbYellow, Operator:=xlFilterCellColor
End Sub

[Rudi]

    
Arghhh!!!
Completely forgot about the part to filter by colour!

[adam]

Thanks for the help Rudi & Hans. Since I also have data in columns C to column P I've changed the field line from Field:=1 to Field:=13 so that it would filter column O.