How to autofill a textbox from a table

[Esopera]

I have created a form with an input textbox "POQty".
I have a "Lot" sheet with a three column table: A=1, B=50, C=20. I have 12 rows in the table.
If POQty is between 1 and 50, I would like "RecQty" textbox to be 20.

I would also like "RecQty" to be read only and auto update when the "POQty" is entered.

Thank you for your suggestions...

[Bernie Deitrick]

It depends on what the other rows have:

1 50 20
51 100 40
101 etc...


Then use

Private Sub POQty_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.RecQty.Value = CStr(Application.VLookup(Val(Me.POQty.Value), Worksheets("Lot").Range("A:C"), 3))
End Sub


Set the Enabled property of RecQty to False

And, strictly, column B is not needed as long as column A is sorted ascending.