VBA Sort Table By Certain Word or Cell Value

[Ottsel]

I have a table that Column two contains an array of items.

ListObjects("ItemInventory")

Range A5 contains the item I want the table to sort by. Currently the item inventory is quite large, so it can take time to sort through everything to find the one item you want to show.

How would I structure it so if Range A5 contained "Lamps" that a button would sort the table by column two (which is labeled 'Items") to only show rows that contain "Lamps"?

Any tips, tricks or help would be greatly appreciated!

 

[Z51]

Would it be simpler to just filter the items column in the table and add a text filter > contains > type in some partial/whole match? (Or enter lamps in the search field when clicking the filter drop-down for that column?)

Otherwise you could use a VBA filter macro linked to a button, or as part of a Worksheet_Change event looking at cell A5:

ActiveSheet.Range("$A$10:$G$2000").AutoFilter Field:=1, Criteria1:="=*" & Range("A5").Value & "*", Operator:=xlAnd

 

[Ottsel]

Would it be simpler to just filter the items column in the table and add a text filter > contains > type in some partial/whole match? (Or enter lamps in the search field when clicking the filter drop-down for that column?)

Otherwise you could use a VBA filter macro linked to a button, or as part of a Worksheet_Change event looking at cell A5:

ActiveSheet.Range("$A$10:$G$2000").AutoFilter Field:=1, Criteria1:="=*" & Range("A5").Value & "*", Operator:=xlAnd

Appreciate the idea! Thank you.