I was assisted with the following code, which filters two pieces of data--a
case manager ID (###A from column B) and a program code (MA from column C):

Sheets("Office").Activate
Application.ScreenUpdating = False
With Sheets("Office")
.Activate
.Range("A1").Select
.Range("B1:C1000").AutoFilter Field:=1, Criteria1:="115A"
.Range("B1:C1000").AutoFilter Field:=2, Criteria1:="MA"
.Range("A1:M" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells( _
xlCellTypeVisible).Copy Destination:=Worksheets("115A").Range("A3")
.AutoFilterMode = False
End With


Sheets("115A").Activate
Application.Goto Reference:="R1C1"
Application.ScreenUpdating = True

Is there any way to filter additional data in different columns? I wanted
to ask if it was possible to modify the above code to also filter 3rd and 4th
pieces of data (program types "F" and "P", both in column D).

Thanks.

Just record a macro while doing so you can see what is happening and then
modify existing macro.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Bradly" <(E-Mail Removed)> wrote in message
news:B2272D7B-1585-4C8D-9CE6-(E-Mail Removed)...
>I was assisted with the following code, which filters two pieces of data--a
> case manager ID (###A from column B) and a program code (MA from column
> C):
>
> Sheets("Office").Activate
> Application.ScreenUpdating = False
> With Sheets("Office")
> .Activate
> .Range("A1").Select
> .Range("B1:C1000").AutoFilter Field:=1, Criteria1:="115A"
> .Range("B1:C1000").AutoFilter Field:=2, Criteria1:="MA"
> .Range("A1:M" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells( _
> xlCellTypeVisible).Copy Destination:=Worksheets("115A").Range("A3")
> .AutoFilterMode = False
> End With
>
>
> Sheets("115A").Activate
> Application.Goto Reference:="R1C1"
> Application.ScreenUpdating = True
>
> Is there any way to filter additional data in different columns? I wanted
> to ask if it was possible to modify the above code to also filter 3rd and
> 4th
> pieces of data (program types "F" and "P", both in column D).
>
> Thanks.
>