Advance Filter vba

[Av8tordude]

When using the advance filter, it works fine, however, if I have words have similart starting letters (i.e. MS, MSFT or C, CVX, CVS...), it filters everthing. I would like to show only show data with the whole letters (i.e. if I want to see MS, show only MS, not MS, MSFT or C not CVS and CVX too). Can someone assist. Thanks

Rng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("AT14:AV15"), Unique:=False

 

[dmt32]

Hi,
try using the = sign in your criteria

"=MS"

you can read more about Advanced Filter Basics here:https://www.contextures.com/xladvfilter01.html


Dave

 

[Av8tordude]

Thank you Dave. Greatly appreciated.

On last question, can you help with a code that will display a msgbox to tell me the filter did not find any results? My Header starts at Row 14. Thank you

 

[dmt32]

you could try something like this

Dim VisibleRowCount As Long


Rng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("AT14:AV15"), Unique:=False


VisibleRowCount = Rng.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1


If VisibleRowCount = 0 Then MsgBox "No Records Found", 48, "Not Found"

Dave

 

[Av8tordude]

Thank you Dave. I greatly appreciate your help!