Snasui Excel Forum

Code: Select all

'Other code
If item_in_review = Search.TextBox1.Text Or _
    (Len(Sheets("Data2").Range("E" & row_number).Value) > 0 And _
        Sheets("Data2").Range("E" & row_number).Value = Search.TextBox2.Text) Or _
    (Len(Sheets("Data2").Range("H" & row_number).Value) > 0 And _
        Sheets("Data2").Range("H" & row_number).Value = Search.TextBox3.Text) Then
    Repair.TextBox1.Text = Sheets("Data2").Range("A" & row_number)
    Repair.TextBox2.Text = Application.Text(Sheets("Data2").Range("B" & row_number), "dd/mm/yyyy")
    Repair.TextBox3.Text = Sheets("Data2").Range("C" & row_number)
    Repair.TextBox4.Text = Sheets("Data2").Range("D" & row_number)
    Repair.TextBox5.Text = Sheets("Data2").Range("E" & row_number)
    Repair.TextBox6.Text = Sheets("Data2").Range("F" & row_number)
    Repair.TextBox7.Text = Sheets("Data2").Range("G" & row_number)
    Repair.TextBox8.Text = Sheets("Data2").Range("H" & row_number)
    Repair.TextBox9.Text = Sheets("Data2").Range("I" & row_number)
    Repair.TextBox10.Text = Sheets("Data2").Range("J" & row_number)
    Exit Do
End If

'Other code