auto filter by two criteria

[bluepenink]

hello this is my macro to filter by town, however i want to also filter by invoice type.....i dont know how to add the other criteria

town name = D51 -cook county worksheet
invoice type = D52 - cook county worksheet

the raw data, where i want data to be filter contains the town name in column D and invoice type in column F...the worksheet is called "Chicago-2011"

this is my current macro that sorts by only town D51

Private Sub Worksheet_BeforeDoubleclick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("D54:D68")) Is Nothing Then
        Cancel = True
        Range("D51") = Target.Offset(, -1).Value
    End If
End Sub

this is the macro on "chicago-2011" worksheet (see below)

Option Explicit
Private Sub Worksheet_Activate()
    With Me
      .Unprotect Password:="analyst"
      .AutoFilterMode = False
      .Range("MyHeaders").AutoFilter
      .Protect Password:="analyst", UserInterfaceOnly:=True, _
                                    AllowFormattingCells:=True, _
                                    Contents:=True, Scenarios:=True, _
                                    AllowFormattingColumns:=True, _
                                    AllowFormattingRows:=True, _
                                    AllowFiltering:=True
    End With
End Sub

can someone pls help...thx u so much

 

[Marcelo Branco]

Hi,

Assuming Town Name as Field1 and Invoice Type as Field2 (ie, 1st and 2nd columns in range MyHeaders), maybe something like

 With .Range("MyHeaders")
            .AutoFilter
            .AutoFilter Field:=1, Criteria1:=Range("D51").Value
            .AutoFilter Field:=2, Criteria1:=Range("D52").Value
End With

HTH

M.

 

[Marcelo Branco]

oops...

the criteria ranges are in Cook County worksheet, so

With .Range("MyHeaders") 
            .AutoFilter
            .AutoFilter Field:=1, Criteria1:=Sheets("Cook County").Range("D51").Value
            .AutoFilter Field:=2, Criteria1:=Sheets("Cook County").Range("D52").Value 
End With