Find Command Button

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

Guest

I want to insert a Find Command Button in a spreadsheet so a user can click
on the button to go directly to a specific line.

thanks..
 
Hi

Try this example for column A

This will select the first cell in column A with the InputBox value.

Sub Find_First()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter a Search value")
If Trim(FindString) <> "" Then
Set Rng = Range("A:A").Find(What:=FindString, _
After:=Range("A" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Nothing found"
End If
End If
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

'Cannot insert object' message when I try to put a button on a worksheet 7
Access Automatically Send a notification email once a record is added 0
Command Buttons 4
Need to find the name of the command buttons 2
Contol toolbox command button 2
How to use multiple command button to copy user form data to multiple worksheet 0
Excel Question on Formatting Cell and Adding a Row in Excel 2013 1
Command Button and macro 4

Back
Top