Filter on top 20

[zabiullakhan]

i want to filter Top 20 visable records however the below code dosent work

GrabAdd = Selection.Address
 
Selection.AutoFilter GrabAdd, Criteria1:="20", Operator:=xlTop10Items

Please help.

 

[dk]

You haven't named the first argument and the Field argument should be numeric, not a string. Something like this should work:

GrabAdd = Selection.Column
 
Selection.AutoFilter Field:=GrabAdd, Criteria1:="20", Operator:=xlTop10Items

 

[zabiullakhan]

Thanks a lot it works..

However i am not geting exact 20 when i filter on 2 to 3 col and take top 20. I guess i need to take top 20 visable fields.


Please help.

 

[zabiullakhan]

If I filter 3 col before i take top 20 then i dont get top 20 rows, if i just take top 20 i get exact 20 row.

Can u please help me to filter on the 3 columns and then take exact top 20..
Please help