Combobox at run time .add from range and use scripting dictionary

[dizzydunham]

Hi,

I have created a userform which populates with comboboxes at run time.

How do I populate them from a range. and use scripting.dictionary

I have done this before with a combobox at design, how do I structure the code referring to dynamic controls (SName & i)?

    With CreateObject("scripting.dictionary")
        For Each Cl In Sheets("Applicants").ListObjects("Table7").ListColumns(3).DataBodyRange
            If Not .exists(Cl.Value) Then .Add Cl.Value, Nothing
        Next Cl
         UserForm4.SName& i.Clear
         UserForm4.SName&i.List = Application.Transpose(.keys)
         .RemoveAll
    End With

Many thanks for looking.

 

[Norie]

How/when are you creating the comboboxes?

 

[dizzydunham]

How/when are you creating the comboboxes?

When the user inputs a number in the main userform, it opens up another userform and populates it with the required comboboxes then. there is a command button also which sends values to a listbox for viewing ,sheets, hides the userform etc.

ive only got my head around the loop method for this to happen just recently. So i'm finding this a little more challenging than normal.

With Controls.Add("Forms.Combobox.1", Name:="FName" & i)
.Top = 50 * (i - 1) + 40
.Left = 70
.Width = 90
.Height = 20
.TabIndex = i * 2 - 1
End With

 

[pijaku]

Hi,

Try this :

UserForm4.Controls([COLOR=#333333]"FName" & i).Clear
[/COLOR]UserForm4.Controls([COLOR=#333333]"FName" & i)[/COLOR][COLOR=#333333].List = Application.Transpose(.keys)[/COLOR]

 

[dizzydunham]

Thanks - That did the trick.

Makes sense as well.! You just made me very HAPPY!