Snasui Excel Forum

Code: Select all

'Other code
Dim rall As Range, r As Range, i As Integer
With Sheets("Sheet1")
    Set rall = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
    For Each r In rall
       If Me.TextBox1.Text = r.Value Then
        i = i + 1
        If i = 1 Then
            Me.TextBox2.Text = r.Value
            Me.TextBox5.Text = r.Offset(0, 1).Value
        ElseIf i = 2 Then
            Me.TextBox3.Text = r.Value
            Me.TextBox4.Text = r.Offset(0, 1).Value
        ElseIf i = 3 Then
            Me.TextBox6.Text = r.Value
            Me.TextBox7.Text = r.Offset(0, 1).Value
        End If
       End If
    Next r
End With
'Other code