I have a userform that is used to enter item number (textbox1) and quantity
(textbox2). The listing of all existing item numbers and item descriptions
are in worksheet "Items" (A:A & B:B respectfully).

How do I create/add a combobox for textbox1 pulling from the list in the
Items worksheet?

Thanks,
Les

Dim cell As Range
Dim iLastRow As Long

With Me.ComboBox1
.Clear
iLastRow = Worksheets("Sheet1").Cells(Rows.Count,
"A").End(xlDown).Row
For Each cell In Worksheets("Sheet1").Range("A1").Resize(iLastRow)
If cell.Value = TextBox1.Value Then
.AddItem cell.Offset(0, 1).Value
End If
Next cell
End With


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"WLMPilot" <(E-Mail Removed)> wrote in message
news:5CC0887D-CC7D-4E0A-9E75-(E-Mail Removed)...
>I have a userform that is used to enter item number (textbox1) and quantity
> (textbox2). The listing of all existing item numbers and item
> descriptions
> are in worksheet "Items" (A:A & B:B respectfully).
>
> How do I create/add a combobox for textbox1 pulling from the list in the
> Items worksheet?
>
> Thanks,
> Les