Contains text filter - VBA question

[Lef_pl]

Hi,

Is there any way to use value from one specified cell to filter column A of the sheet?
Text filters/Contains.

I would really like to have it in VBA.


My macro is very lame.

Sub Macro7()
'
' Macro7 Macro
'

'
    Columns("A:A").Select
    Selection.AutoFilter
    Range("J3").Select
    Selection.Copy
    ActiveSheet.Range("$A$1:$A$152184").AutoFilter Field:=1, Criteria1:= _
        "=*900*", Operator:=xlAnd
End Sub

Maybe some way to change J3 cell into a range and use it in a filter?

Thanks for any help.

 

[RoryA]

You could simply use:

ActiveSheet.Range("$A$1:$A$152184").AutoFilter Field:=1, Criteria1:= _
        "=*" & Range("J3").Value & "*", Operator:=xlAnd

 

[Lef_pl]

Thank you so much.

 

[RoryA]

Glad to help.