userform search button not working

[tshering]

I used the following code to search data in my userform. I want to populate the data in rest of the textboxes by filling data in one of the textboxes. However the code doesnt run and gives ( runtime error "13" type mismatch)

Private Sub TextBox6_Change()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("S_in")

Dim i As Integer
i = Application.Match(Me.TextBox6.Value, sh.Range("B:B"), 0)
Me.TextBox6.Value = sh.Range("B" & i).Value
Me.TextBox1.Value = sh.Range("C" & i).Value
Me.TextBox2.Value = sh.Range("D" & i).Value
Me.TextBox3.Value = sh.Range("E" & i).Value
Me.TextBox4.Value = sh.Range("F" & i).Value
Me.ComboBox1.Value = sh.Range("G" & i).Value
Me.TextBox5.Value = sh.Range("I" & i).Value

i would appreciate if someone could help me with this

[torachan]

see large yellow banner - how to upload your work book.
otherwise crystal ball gazing

[6StringJazzer]

When asking for help about a code error message, always indicate which line of code has the error.

I do not see anything obvious in this code that is causing that error. Please see the yellow banner at the top of the page and attach your file for further diagnosis.

[davesexcel]

Using textbox_change will cause an error if you are searching for more than 1 character in the search box.

If you just want one value to search for, maybe this would work.

i = Application.Match(CLng(TextBox6), sh.Columns(2), 0)

If you need to search for more than 1 character, find() may be a better way.

I made the sample to fit my userform, you will have to fix it to suite yours.

Private Sub TextBox1_Change()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets(1)

Dim i As Range

Set i = sh.Columns(2).Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)

If Not i Is Nothing Then
r = i.Row
Me.TextBox2.Value = sh.Range("B" & r).Value
Me.TextBox3.Value = sh.Range("C" & r).Value
Me.TextBox4.Value = sh.Range("D" & r).Value
Me.TextBox5.Value = sh.Range("E" & r).Value
'Me.TextBox4.Value = sh.Range("F" & i).Value
'Me.ComboBox1.Value = sh.Range("G" & i).Value
'Me.TextBox5.Value = sh.Range("I" & i).Value

End If
End Sub

[Sintek]

I am guessing you are getting type mismatch as the value cannot be found...
Integer cannot hold error...
Try this...

Dim i As Variant
i = Application.Match(Me.TextBox6.Value, sh.Range("B:B"), 0)
If Not IsError(i) Then
    Me.TextBox6.Value = sh.Range("B" & i).Value
    '! Rest of code...........
Else
    MsgBox "NOT FOUND"
End If

[6StringJazzer]

This won't cause a compiler error but you have another problem here. This Sub responds to a change in TextBox6, and it also causes a change in TextBox6, which will send you into an infinite loop.

Private Sub TextBox6_Change()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("S_in")

Dim i As Integer
i = Application.Match(Me.TextBox6.Value, sh.Range("B:B"), 0)
Me.TextBox6.Value = sh.Range("B" & i).Value
Me.TextBox1.Value = sh.Range("C" & i).Value
Me.TextBox2.Value = sh.Range("D" & i).Value
Me.TextBox3.Value = sh.Range("E" & i).Value
Me.TextBox4.Value = sh.Range("F" & i).Value
Me.ComboBox1.Value = sh.Range("G" & i).Value
Me.TextBox5.Value = sh.Range("I" & i).Value

You will have to add code to prevent that.