Search column

[Greg B]

I want to be able to type in a surname in a textbox called "surname" and I
want to see if there are any matches to this name on the sheet called
"FULLNAMES" column A.


Thanks

Greg

 

[Daniel Gash-Jones]

Hi Greg

try this:

ans = inputbox("Type in the surname")
Columns("A:A").Select
Selection.Find(What:=ans).select

 

[Guest]

Try this:

Sub colsearch()
Dim s As String
s = Application.InputBox(prompt:="enter name", Type:=2)
listt = ""
With Sheets("FULLNAMES")
n = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To n
v = .Cells(i, 1).Value
If Len(v) = Len(Replace(v, s, "")) Then
Else
listt = listt & Chr(10) & i
End If
Next
End With
If listt = "" Then
MsgBox ("not found")
Else
MsgBox ("found in rows:" & listt)
End If
End Sub