Seamus2626
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.Co unt - 1).SpecialCells(xlCellType Visible)
On Error GoTo 0
If Not rData Is Nothing Then
rData.EntireRow.Copy
End If
End With
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.Co
On Error GoTo 0
If Not rData Is Nothing Then
rData.EntireRow.Copy
End If
End With
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER