Link to home
Start Free TrialLog in
Avatar of Seamus2626
Seamus2626Flag for Ireland

asked on

Multiple Filter

I have the below filter for "Corporate Actions"

I want to add a second filter for "Corp Action"

Can anyone amend?

Thanks
Seamus


    .Range("A1").AutoFilter Field:=10, Criteria1:="Corporate Actions"

    Set rData = Nothing

    With .AutoFilter.Range
        On Error Resume Next
        Set rData = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        If Not rData Is Nothing Then
            rData.EntireRow.Copy
        End If
    End With
ASKER CERTIFIED SOLUTION
Avatar of Patrick Matthews
Patrick Matthews
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Seamus2626

ASKER

Perfect :-)