Link to home
Create AccountLog 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
Create an account to see this answer
Signing up is free. No credit card required.
Create Account
Avatar of Seamus2626

ASKER

Perfect :-)