Filter with multiple criteria

[All2Cheesy]

Hi all,

I need to create a macro which allows for the current data on screen (in this case freight) to be filtered by where it is going, and also where it is coming from. The code to do this is below, however, I can only ever do one or the other. Would it be possible to have my spread sheet filter by 'criteria 1' OR 'criteria 2'?

Sub SYDRETURN()

'Show Sydney
    Range("A6:I549").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("B4:B5"), Unique:=False
    Range("A6:I549").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("AB4:AB5"), Unique:=False

End Sub

Many thanks in advance.

 

[AlphaFrog]

Filter for Matching Data in Two Columns

Use one contiguous range for the filter criteria something like this...

Excel Workbook
	A	B
1	To	From
2	Sydney
3		Sydney
Sheet

To: and From: are the column Headers
The two column criteria offset by one row act as OR (same row would be AND).

    Range("A6:I549").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        [B]Range("A1:B3")[/B], Unique:=[color=darkblue]False[/color]

 

[All2Cheesy]

Filter for Matching Data in Two Columns

Use one contiguous range for the filter criteria something like this...

Excel Workbook
	A	B
1	To	From
2	Sydney	*
3	*	Sydney
Sheet

To: and From: are the column Headers
The two column criteria offset by one row act as OR (same row would be AND).

    Range("A6:I549").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        [B]Range("A1:B3")[/B], Unique:=[color=darkblue]False[/color]

Looks like this has done the trick. Thanks!

 

[AlphaFrog]

You're welcome. Thanks for the feedback.