Autofilter using Named Ranges

[ba99]

This is the challenge I'm facing:

I want to create macro's which are intended to autofilter data in a sheet. However, if new columns get insterted or re-arranged in the sheet (it's a living file), all macro's need to be changed again since the columns get shifted and so does the FIELD:= value of the Autofilter command.

I want to keep the macro's flexible by making the Autofilter use the Range name, as you can define by INSERT > NAME > DEFINE, and not having the command using the FIELD:=1 for column A, etc...

Current Example (filter col B on YES)

Selection.AutoFilter Field:=2, Criteria1:="YES"

Desired Example (filter name defined Range on YES)

Selection.AutoFilter Field:=RANGENAME, Criteria1:="YES"

With the RANGENAME I want to use the name of a defined range, which is flexible.

Any help is really aprreciated!

Thanks,
BA

 

[Anthony47]

Hello BA, welcome.
I would suggest that you remove the existing autofilter, then apply it on the range, then you will always use Criteria1 for filtering.
For example this macro set the filter on range named frange:

Sub MaFilt()
On Error GoTo nofilt
Selection.AutoFilter Field:=1  'test autofilter
Selection.AutoFilter        'Remove autofilter
nofilt:
Range("frange").AutoFilter         'Assign autofilter
End Sub

Does it help? bye.

 

[almagg]

i recorded some macros and did not come up with anything.
but how about this:

create an Input box so the user can type in the field of interest.
the macro then does a find on that field.
now, get the column number and assign it to a variable.
this variable can then be entered into the Field argument.

i just did a test:

myfield = 7
Selection.AutoFilter Field:=myfield, Criteria1:="$0"

and this worked.

 

[Greg Truby]

BA,

Welcome to the board. Here's an example of what you're looking to do:

Sub foofilter()
    With Range("Fruits")
        .CurrentRegion.AutoFilter Field:=.Column - .CurrentRegion.Range("A1").Column + 1, _
                                  Criteria1:="Apple"
    End With
End Sub

 

[ba99]

Guys, thanks for the welcome and the help!

Greg; your post offered the best solution for me... great! I can move around, insert columns and rows, and it still will filter on the specific range.

Just curiosity (i'm learning): how does the part Range("A1").Column + 1 exactly work?

Anthony; your solution worked in the end as well, however in Almaggs I still had to work with integer references for the column.

Cheers,
BA[/code]