Advanced Filtering in VBA

[John Pierce]

I would like to make this procedure more flexible by using relative
references
rather than absolute cell references. The first version works
perfectly but I can't get the second version to work. It always
results in all lines disappearing. I know this may be difficult to
resolve without seeing the sheet it is used on but perhaps there is
just a basic coding error. Thanks in advance
for any help.

Public Sub LedgerView()
'
Range("A5").Select
Range("A6:G260").AdvancedFilter _
Action:=xlFilterInPlace, CriteriaRange:=Range("B13"),
Unique:=False
Range("A5").Select

' Range("A6").Select
' Range(Selection, Selection).CurrentRegion.Select
' Selection.AdvancedFilter _
' Action:=xlFilterInPlace, CriteriaRange:=Range("B13"),
Unique:=False
' Range("A5").Select

End Sub

 

[Tim Barlow]

John,

It worked for me - but you could simplify the code to:

Public Sub LedgerView()

Range("A6").CurrentRegion.AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("B13"), _
Unique:=False

End Sub

Tim