How do i use advanced filter to filter 3 columns?

[tazmtiger]

Hi!

I am using this VBA code to filter data from one sheet to another, it works fine... But. The need to add (2) additional filter criteria arised, and I need to figure out how to do it utilizing the same code below:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 2 Then
'calculate criteria cell in case calculation mode is manual
Sheets("Parts Entry").Range("Criteria").Calculate
Worksheets("Parts Entry").Range("Database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Parts Entry").Range("Criteria"), _
CopyToRange:=Range("A6:K6"), Unique:=False
'calculate summary total in case calculation mode is manual
Sheets("Part Search").Range("B3").Calculate
End If
End Sub

Currently I am filtering in B2 Which from a "Part Number" column (B), But I now need to filter additional criteria for column C and D.


How do I accomplish this?

Your help will be greatly appreciated.

Thank you!