Started from your example #5
Insert a row at the top
Formula in O2: =C2&D2
Copy the formula down to the end of the list.(O592)
Select the whole list (A2:O592)
In the 'Home' tab you find 'format as a table'
click on it and choose the layout you want.
Select 'my tabel has headers'
Then 'OK' and 'Yes'
Start VBA with ALT F11
On the left you see VBAproject with your filename
Select 'Sheet1' just beneath it and put this code in it (right of your screen.):
Private Sub Worksheet_Change(ByVal Target As Range)
With Me
If Not Application.Intersect(Target, .Range("B1")) Is Nothing Then
.ListObjects(1).Range.AutoFilter Field:=15, Criteria1:="=*" & Target.Value & "*", Operator:=xlOr
End If
End With
End Sub
And it all will work (I hope )
Bookmarks