Solved: filter criteria in active column

[mdmackillop]

yes, but it still doesnt works
but i have other question to this code

Columns(ActiveCell.Column).AutoFilter field:=ActiveCell.Column, Criteria1:=""

why this code doesnt works for autofilter, which is doesnt use for all table but only for part of table. If i use this code for autofilter where is autofilter for whole table it works great, but if is table from A to W, but i have filter in first line only for B to D, so it doesnt works- It give criterium to the next column . WHY?
In code is written "ActiveCell.Column" and this is always the cell where i am or?
i dont understund it

The activecell.column is the column nummber, as you know. The Field is the count from the left of the Filter Range, so Filtering E-H, Column F is Field 2, ActiveCell.Column is 6. This is catered for in my last posts.

[danovkos]

no, doesnt works
if i turned off autofilter and turned on it only for a f.e. column B
it does what i wrote before. It filtering next column not active column
??? why

[mdmackillop]

no, doesnt works
if i turned off autofilter and turned on it only for a f.e. column B
it does what i wrote before. It filtering next column not active column
??? why

For clarity, to which post are you responding?

[Simon Lloyd]

Danovkos, please make some efforts as i explained in a previous post to post your workbook!

[mdmackillop]

Have you tried stepping through the code to identify the error?

[danovkos]

Danovkos, please make some efforts as i explained in a previous post to post your workbook!

i tried it but it doesnt effect, because of the code for me doesnt works for atached filters.xls too.
As i wrote.
It works when i open it, but if i change the autofilter only for a part of table, it stops works and filtering column next active, not active.
i am really sorry for lost your time i only try to fix my codes

[danovkos]

Have you tried stepping through the code to identify the error?

yes, but it doesnt show any error. It only after chagne of filter filtering other column as i need.

[mdmackillop]

Which version of Excel are you using? Not that I think it should make a difference.

[danovkos]

Which version of Excel are you using? Not that I think it should make a difference.

Office 2003 with SP3

[mdmackillop]

I can test in that later.

One last attempt for now. Try this version in the Userform example
[VBA]
Sub Filtering2(Flt As String)
Dim FiltRng As Range
Dim Col As Long
Set FiltRng = ActiveSheet.AutoFilter.Range
Col = Selection.Column - FiltRng(1).Column + 1 '<++++++++++++
If FiltRng.Columns.Count = 1 And Col = 0 Then Col = 1
FiltRng.AutoFilter field:=Col, Criteria1:=Flt
End Sub

[/VBA]

If that fails, try changing the indicated 1 value to 0 to see if it helps

[mdmackillop]

I've tried this in 2003 and 2007 and it works in both. Some error handling has been added. If this isn't it, I don't know what else to suggest.

[danovkos]

yes, yes, yes
it works perfec...and the second code with useform is great too. I give there my most used criteria and will always use it )
thanke you very very much to all.