"find" button

[rharri1972]

Hello!
I have a userform with a listbox and a textbox with a command button.

I have been able to type the part number in the textbox and hit the "FIND" button and it would search through and highlight that part number in the list box.

Now for some reason it will search some but not all part numbers. The same part number i've been using for testing the sub's all of a sudden quit being found.

Here is the code:

Private Sub CommandButton3_Click()
Dim R As Range

On Error Resume Next


  Set R = Sheets("PARTS LIST").Columns("A").Find( _
    TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
  If R Is Nothing Then
    MsgBox "Not found"
  Else
 
  R.Parent.Select
        'Select the cell itself
    R.Select
End If

  Me.ListBox1.Value = R
     
       
   
End Sub

I don't see where anything has been changed or accidentally added or deleted. Any help?

 

[rharri1972]

yes sir! This works great. Just so I can learn...what is the difference between xl whole and xl part? It sounds like it's only check part of it rather than ALL of it(whole)

Sid....nvm I went back and saw where you already addressed the xlwhole

 

[Siddharth Rout]

IF i can get the textbox to where I can start typing and it start to find with each character typed so that the part number ultimately "highlights" then I wont have a need for the "GO" button.

Yes that is possible. You need to use the TextBox1_Change() event instead of CommandButton3_Click(). Do the .Find inside the TextBox1_Change()

 

[rharri1972]

Yes that is possible. You need to use the TextBox1_Change() event instead of CommandButton3_Click(). Do the .Find inside the TextBox1_Change()

Thank you so much Sid!!!! You've been such a great help! Your patience and willingness to teach and explain are over the top. Much appreciated!!