السلام عليكم
هذا كود آخر أسرع من الأول
Private Sub TextBox1_Change()
On Error Resume Next
TextBox2 = ""
LR = Cells(Rows.Count, 2).End(xlUp).Row
TextBox2 = Application.WorksheetFunction.VLookup(Val(TextBox1), Range("B2:C" & LR), 2, 0)
End Sub
userform2.rar