Hello please help in correcting this code
I want to check the values of text boxes and select row
The first code works efficiently but I want to add other text boxes for verification
I want to check the values of text boxes and select row
The first code works efficiently but I want to add other text boxes for verification
VBA Code:
Sub find()
On Error Resume Next
Dim found As Range
Set found = Sheets("sheet1").Columns("A").find(what:=Me.TextBox8.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not found Is Nothing Then found.EntireRow.Select
End Sub
Code:
On Error Resume Next
Dim found As Range
Set found = Sheets("sheet1").Columns("A").find(what:=Me.TextBox8.Value, LookIn:=xlValues, lookat:=xlWhole)
Set found = Sheets("sheet1").Columns("E").find(what:=Me.TextBox9.Value, LookIn:=xlValues, lookat:=xlWhole)
Set found = Sheets("sheet1").Columns("i").find(what:=Me.TextBox10.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not found Is Nothing Then found.EntireRow.Select
End Sub