Add Search Box to Spreadsheet

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How can I add a search box to a spreadsheet whereby:
- User types name in cell (say, cell D1 and then button assigned to macro is clicked)
- Column A is queried for value typed in D1
- Value matched in Column A is selected

Thanks.

EU
 
You can do something like this:

'Code for command button click event
Private Sub CommandButton1_Click()
Set FindIt = ActiveSheet.Range("A1:A" &
ActiveSheet.Range("A65536").End(xlUp).Row).Find(Trim
(ActiveSheet.Range("D1").Value))
If Not FindIt Is Nothing Then ActiveSheet.Range
(FindIt.Address).Select

End Sub

tod
 
Back
Top