How to advance search

[rehanemis]

Hi,

I am using excel sheet contains about 15 columns with records. I have created advance filter using this youtube tutorial

https://www.youtube.com/watch?v=0f_jlbJBB5Q

Actually I want that I can type keyword/content in single search and it search all the records and show the rows where keyword is found.

Is it possible?

how can I can share my excel book?

Waiting of your kind reply.

 

[mumps]

Try this macro. It will highlight all rows containing your search term.

Sub searchVal()
    Application.ScreenUpdating = False
    Dim foundVal As Range
    Dim sAddr As String
    Dim response As String
    response = InputBox("Please enter the value to search.")
    With ActiveSheet.UsedRange
        Set foundVal = .Find(response, LookIn:=xlValues, lookat:=xlWhole)
        If Not foundVal Is Nothing Then
            sAddr = foundVal.Address
            Do
                foundVal.EntireRow.Interior.ColorIndex = 3
                Set foundVal = .FindNext(foundVal)
            Loop While foundVal.Address <> sAddr
            sAddr = ""
        Else
            MsgBox ("Value not found.  Please try again.")
        End If
    End With
    Set foundVal = Nothing
    Application.ScreenUpdating = True
End Sub