vb find code to find values from specific columns in excel and upload values of same row to text box1 to textbox9 and combobox 1 of vb form
my cod is

Private Sub btnFind_Click()
Dim sFindIt As String, lRowFnd As Long

sFindIt = Application.InputBox(prompt:="Please enter search criteria:")
If sFindIt = "False" Or sFindIt = vbNullString Then Exit Sub
With Worksheets("Sheet2")

On Error Resume Next
lRowFnd = .Cells.Find(What:=sFindIt, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False).Row

If Err <> 0 Then
MsgBox "Search Criteria - " & sFindIt & " - Was Not Found", vbExclamation: Exit Sub
End If
On Error Goto 0


TextBox1.Value = .Cells(lRowFnd, 1).Value
TextBox2.Value = .Cells(lRowFnd, 2).Value
TextBox3 = .Cells(lRowFnd, 3).Value
TextBox4.Value = .Cells(lRowFnd, 4).Value
TextBox5.Value = .Cells(lRowFnd, 5).Value
TextBox6.Value = .Cells(lRowFnd, 6).Value
TextBox7 = .Cells(lRowFnd, 7).Value
TextBox8 = .Cells(lRowFnd, 8).Value
TextBox9 = .Cells(lRowFnd, 9).Value
ComboBox1 = .Cells(lRowFnd, 10).Value




End With
End Sub
Its Show result that first value match in worksheet But I want to find value from only Column "A" Please Any one can help me