Userform Tab to produce vlookup

[drc2265]

Hello, I have a userform with one textbox that does a vlookup. I have the following code which works when clicking on the box. Is there any way to have this shown when tabbing, or automatically after textbox1 info is entered?

Private Sub UserForm_click()
Do
DoEvents
row_number = row_number + 1
item_in_review = Sheets("sheet1").Range("a" & row_number)
If item_in_review = TextBox1.Text Then
TextBox2.Text = Sheets("sheet1").Range("B" & row_number)
End If

Loop Until item_in_review = ""
End Sub

Thanks,
DC

 

[AlphaFrog]

Try this. It searches when you exit TextBox1

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] TextBox1_Exit([color=darkblue]ByVal[/color] Cancel [color=darkblue]As[/color] MSForms.ReturnBoolean)
    [color=darkblue]Dim[/color] Found [color=darkblue]As[/color] Range
    [color=darkblue]Set[/color] Found = Sheets("Sheet1").Range("A:A").Find(TextBox1.Text, , xlValues, xlWhole, 1, 1, 0)
    [color=darkblue]If[/color] [color=darkblue]Not[/color] Found [color=darkblue]Is[/color] [color=darkblue]Nothing[/color] [color=darkblue]Then[/color]
        TextBox2.Text = Found.Offset(, 1).Value
    [color=darkblue]Else[/color]
        TextBox2.Text = ""
    [color=darkblue]End[/color] [color=darkblue]If[/color]
End [color=darkblue]Sub[/color]

 

[drc2265]

Thanks Alpha! Perfect!