Looping userform ComboBox 1-10 with associated TextBox 1-10

[rmac1954]

I can loop through all 10 ComboBoxes with the following code.

Dim cmb As combobox, i As Integer
For i = 1 To 10
Set cmb = Me.Controls.Item("ComboBox" & i)

    MyPNum = cmb.Value
        Cells.Find(What:=MyPNum, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
[Code/]
When I try to add the TextBox 1-10 nothing I do works. I've tried :
Dim pqty As textbox, i As Integer




Dim pqty As textbox, i
and
Dim pqty As textbox

All but the last got errors.

Using the last Dim with:

Set pqty = Me.Controls.Item("TextBox" & i)

I get errors on the Set statement.

I use the partnumber in the comboboxes to find the row listing that part number, then want to place the quantity of the part ordered in the "Order Qty" column, then loop back for the next part number.

Rob

 

[Fluff]

How about

    Dim i As Long
    Dim Pqty As Long
    Dim MyPNum As String

    For i = 1 To 10
        MyPNum = Me.Controls.Item("ComboBox" & i)
        Pqty = Me.Controls.Item("TextBox" & i)
        Cells.Find(What:=MyPNum, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Next i

 

[rmac1954]

I will give it a try, and report back.

Thanks,

Rob

 

[rmac1954]

Message to Fluff,

It works! I wasn't expecting it to because it looked like something I already tried, but apparently it wasn't already tried and I can't believe that I'm finally past this roadblock.

Thank you very, very much!

RobMac

 

[Fluff]

Glad to help & thanks for the feedback