Auto Filter using Cell name

[tharindudk]

Hi I want to filter data using Cell names


My Filtering data is in Sheet1 and the criterial data is in Sheet3

In Sheets("Info").Range("Device_Description_1") I have the value WAVE-274.

So I have wrote a working code to filter data using

Sub Macro2()
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$221337").AutoFilter Field:=3, Criteria1:= _
        "=*WAVE-474*"
  End Sub

but now I want to change Criteria1:= "=*WAVE-474*" and make Criteria1:= Sheets("Info").Range("Device_Description_1").Value.

As long as the cell contains "Device_Description_1" Value, it should filter but I am not getiing any data.

Any idea how to do it?

Thanks In advance,

[humdingaling]

Sub Macro2()

    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$221337").AutoFilter Field:=3, Criteria1:=Sheets("Info").Range("Device_Description_1")
End Sub

does this not work?

[tharindudk]

Hi,

No it didn't work. Device_Description_1 value is only "WAVE-474" but the output of filtered data has "WAVE-274-K9-RF". So it is only part of the output, not exactly the same. That's why I used

ActiveSheet.Range("$A$1:$N$221337").AutoFilter Field:=3, Criteria1:="=*WAVE-274*"

before (Criteria1:="=*WAVE-274*").

So I thought if I do

Sub Filter_Data()
    
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$221337").AutoFilter Field:=3, Criteria1:=Sheets("Info").Range("Device_Description_1").Value & "*"
End Sub

But it doesn't work either

[:) Sixthsense :)]

Try this...

Sub Macro2()

With Sheets("Info").Range("Device_Description_1").Cells(1)
    If .Value <> "" Then
        Range("$A$1:$N$221337").AutoFilter Field:=3, Criteria1:="=*" & .Value & "*"
    End If
End With

End Sub