Prev: Shading cells that contain formulas and conditional formatting at thesame time.
Next: Sharing Macros
From: Bradly on 7 Jun 2010 10:02
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.

From: Don Guillett on 7 Jun 2010 10:47
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
dguillett(a)gmail.com
"Bradly" <Bradly(a)discussions.microsoft.com> wrote in message
news:B2272D7B-1585-4C8D-9CE6-FA54BD943F6A(a)microsoft.com...
>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.
>

 | 
Pages: 1
Prev: Shading cells that contain formulas and conditional formatting at thesame time.
Next: Sharing Macros