Return Filtered Results only

chk this file out...
http://www.geocities.com/dvivek_aca/Q_21740621.xls

this was basically a modified version of a solution i gave somtime back in EE...all you have to do for you to work
1. run the macro Auto_Filter
2. type the keyword in the first text box
3. Press Filter..

Please let know if your requirement is something different

check this Q for more background

https://www.experts-exchange.com/questions/21710865/Microsoft-Excel-Auto-Filter.html

a stripped down version with textbox to search for keywords only

http://www.geocities.com/dvivek_aca/Q_21740621_v2.xls

Hi dpabd,

Here is a macro that will ask for your search item and filter the results appropriately....

Sub FilterSearch()
    Dim SearchCriteria As String
    SearchCriteria = InputBox("Enter your required Search Criteria")
    If SearchCriteria = "" Then Exit Sub
    [D1].AutoFilter Field:=4, Criteria1:="*" & SearchCriteria & "*"
End Sub

It assumes the first column is A.

Cheers,

Wayne

I should mention that this will allow only ONE keyword. Having more than 1 keyword is possible, but the results will have to be displayed on a seperate sheet.

Wayne

Below is a macro that will allow multiple search items (seperated with a ; ), and hide any rows that don't contain any of the items in column D....

Sub ShowMatches()
     Dim r As Long
     Dim LastRow As Long
     Dim SearchCriteria As String
     Dim arr() As String
     Dim i As Long
     Dim HideRow As Boolean

     SearchCriteria = InputBox("Enter your required Search Criteria" & vbCrLf & _
                               vbCrLf & "[Seperate Search items with a semi-colon ( ; )]")
     If SearchCriteria = "" Then Exit Sub
     Application.ScreenUpdating = False
     arr = Split(SearchCriteria, ";")
     LastRow = [D65536].End(xlUp).Row
     For r = LastRow To 2 Step -1
          For i = LBound(arr) To UBound(arr)
               If InStr(1, Cells(r, "D"), arr(i)) = 0 Then
                    HideRow = True
               End If
          Next
          Rows(r).Hidden = HideRow
          HideRow = False
     Next
     Application.ScreenUpdating = True
End Sub

Webtubbs - thats great thanks.  It does almost exactly what I want.  

Except, when I search multiple items, it only returns rows which have ALL the keywords I
enter.  Is it possible to do a search where I enter multiple keywords and it
returns any rows which has ANY of the keywords?

Thanks.

Hi dpabd,

Perhaps try this macro....

Sub ShowMatches()
     Dim r As Long
     Dim LastRow As Long
     Dim SearchCriteria As String
     Dim arr() As String
     Dim i As Long
     Dim HideRow As Boolean

     SearchCriteria = InputBox("Enter your required Search Criteria" & vbCrLf & _
                               vbCrLf & "[Seperate Search items with a semi-colon ( ; )]")
     If SearchCriteria = "" Then Exit Sub
     Application.ScreenUpdating = False
     arr = Split(SearchCriteria, ";")
     LastRow = [D65536].End(xlUp).Row
     For r = LastRow To 2 Step -1
          For i = LBound(arr) To UBound(arr)
               If InStr(1, Cells(r, "D"), arr(i)) > 0 Then
                    HideRow = False
               End If
          Next
          Rows(r).Hidden = HideRow
          HideRow = True
     Next
     Application.ScreenUpdating = True
End Sub

Regards,

Wayne

thanks, almost there now!  However, the only problem now is that the last row
always gets returned no matter what you search on.

This is great, thanks.

No problem. Glad I could help :)

BTW - I should be thanking you! Your question just got me my Wizard certificate in Excel :)