Filter Issue

[adeel1]

Hello All

i Col A there is data and in Col E the data i want to apply filter like array("A1","A8","A18"), possible?

i can hide rows with VBA but i want to know in this way. please

Code: Select all

Sub nbd()

'xx = Range("data")

xx = Join(Application.Transpose(Selection), ",")
ActiveSheet.Range("a1").AutoFilter field:=1, Criteria1:=xx, _
  Operator:=xlFilterValues

End Sub

Adeel

[snb]

Code: Select all

Sub nbd()
  ActiveSheet.usedrange.autofilter 1, Application.Transpose(Selection),7
End Sub

[adeel1]

thx snb sir , for your quick reply, its working

i am facing strange issue that when i run filter code 3 to 4 times then its isnot allowed me to select range after i need to close file forcefully and restart excel. any idea why this is happening..

Adeel

[snb]

Maybe

Code: Select all

Sub nbd()
  on error resume next
  ActiveSheet.usedrange.autofilter
  ActiveSheet.usedrange.autofilter 1, Application.Transpose(Selection),7
End Sub

[adeel1]

thx SNB sir for your help and reply..