Create my own search function

[burt0na]

All,

I need to create a button that searches a list of names (Column A) and highlights/selects the name if its in the list, either via surname or firstname or both names.

The name is about 1000 lines long so when you type a name into a cell a formula either takes you to the name or via a click of a button.

I know i could use a Ctrl F to find any name but the powers that be want a button so a user can just type in there name on the sheet and click a single button

Any help you can give me would be appreciated

Andy

 

[Domski]

Something like this:

Sub test()

    Dim rngFindRange As Range
    With Sheets("Sheet1")
        Set rngFindRange = .Range("A1:A1000").Find(.Range("C1"), LookIn:=xlValues, lookat:=xlPart)
    End With
    If rngFindRange Is Nothing Then
        MsgBox "No match found", vbExclamation
    Else
        rngFindRange.Select
    End If
    
End Sub

The above searches for the value in C1 and looks in A1:A1000.

Dom

 

[burt0na]

Brilliant thanks!