Manual Autofilter works, but recorded Macro does something else

[Guest]

Still failing to move from newbie status and my kitchen table, I have a
question on autofilter:

I am using Excel 2003 and I am trying to Autofilter a table. I wrote the
code manually and did not get it to work. Then I did the operation manually
and recorded a macro without problem, but when I run the macro, no data is
visible.

I want all rows that have "SANT" in column 5 and "User Needs Document" in
column 18 to show which in this case is eight (when I do it manually).

This is the recorded macro code:

Range("H4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:="SANT"
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6

' some more of the same to get to the right hand column

ActiveWindow.ScrollColumn = 15
Selection.AutoFilter Field:=18, Criteria1:="User Needs Document"
End Sub

When recording, this results in 8 data posts, when running the macro with
exactly the same conditions (as far as I can tell), the autofilter does not
return any visible rows. What am I (or Excel doing wrong?

Help is greatly appreciated!

Peter S

 

[Guest]

Sub BBB()
With Range("A1:T50")
.AutoFilter Field:=5, _
Criteria1:="SANT"
.AutoFilter Field:=18, _
Criteria1:="User Needs Document"
End With
End Sub

worked fine for me. Change A1:T50 to reflect your data range.

 

[Guest]

Finally, success!

Maybe I should have told you that I am running a swedish version of Excel
and that "SANT" means "TRUE" in english. When I replace "SANT" with "S", both
your's and my code work. I thought about this earlier and checked that the
cells format were ordinary text and not boolean, but I must say that Excel
acted strange, because when i wrote "TRUE" in my code, "SANT" appeared in the
spreadsheet.

Well, problem solved. And by the way, my english Office version is waiting
at the post office. I will get it tomorrow!

Thanks for the inspiration Tom. I think that the ten or so lines of code
before this strange autofilter comes from you originally also! I owe you!

Peter