Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Advanced Filtering in VBA
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("B1:D3"), Unique:=False Range("A5").Select ' Range("A6").Select ' Range(Selection, Selection).CurrentRegion.Select ' Selection.AdvancedFilter _ ' Action:=xlFilterInPlace, CriteriaRange:=Range("B1:D3"), Unique:=False ' Range("A5").Select End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Advanced Filtering in VBA
John,
It worked for me - but you could simplify the code to: Public Sub LedgerView() Range("A6").CurrentRegion.AdvancedFilter _ Action:=xlFilterInPlace, _ CriteriaRange:=Range("B1:D3"), _ Unique:=False End Sub Tim -----Original Message----- 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 ("B1:D3"), Unique:=False Range("A5").Select ' Range("A6").Select ' Range(Selection, Selection).CurrentRegion.Select ' Selection.AdvancedFilter _ ' Action:=xlFilterInPlace, CriteriaRange:=Range ("B1:D3"), Unique:=False ' Range("A5").Select End Sub . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Advanced Filtering | Excel Discussion (Misc queries) | |||
how do i use advanced filtering? | Excel Worksheet Functions | |||
Advanced Filtering | Excel Discussion (Misc queries) | |||
Advanced Filtering..... | Excel Worksheet Functions | |||
Advanced filtering | Excel Discussion (Misc queries) |