ComboBox drop down list from Table not manually typed

[LlebKcir]

One of my user forms has a list of networks that currently I have hard coded for the drop down list using .AddItem, is there a way to point to a table containing the list to populate the combobox?

current code:

Private Sub UserForm_Initialize()

' Create dropdown list for Network
With NetworkComboBox
    .AddItem "network1"
    .AddItem "network2"
    .AddItem "network3"
    .AddItem "network4"
    .AddItem "network5"
    .AddItem "network6"
End With


' Empty group ComboBox box
GroupComboBox.Value = ""


' Set All Groups radial button default NO
NOOptionButton.Value = True


End Sub

Thank you. I have a tNetworkList table with column header and all networks that would be much easier to pull data from. I know with data verification you can create a drop down list in a cell by pointing to the table, can that also be done with the user form combo box?

 

[Fluff]

Maybe something like

   Me.ComboBox1.List = Range("Table1[name]").Value

Just change the table & header names to suit

 

[LlebKcir]

That simple code will replace the With loop?

NetworkComboBox.List = Range("tTable1[column_header]").Value

like so? what is the Me. ? I am guessing that is just a placeholder like i used network1 above

 

[Fluff]

In this case Me refers to the userform, I tend to use it because if you intellisense turned on you will get a list of the controls on the userform.

 

[LlebKcir]

Interesting that Me = userform

Me.NetworkComboBox.List = Range("tTable1[column_header]").Value

would be correct?

 

[Fluff]

If your table is called tTable1 the the column with the networks is labelled column_header, then yes that should work.

 

[LlebKcir]

Fluff, final code below (redacted)

Private Sub UserForm_Initialize()

' Create dropdown list for Network
' The use of the Me. provides auto-populate to gain access for the
' data contained in tNetwork table with
' column header Name
' This one line replaces the need to manually populate the list below with
' .AddItem "Network".  That old code is left as reference.
' <rlb 9="" 17="" 2019=""> Code updated to simplify future data
Me.NetworkComboBox.List = Range("tNetwork[Name]").Value
'With NetworkComboBox         ' Old manual code, replaced with line Me.NetworkComboBox.List
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'    .AddItem "Network"
'End With


' Empty group ComboBox box
GroupComboBox.Value = ""


' Set All Groups radial button default NO
NOOptionButton.Value = True


End Sub

Replace "Network" with the proper name for the location. Fluff, the Me.ComboBox... so much simpler and will take full advantage of the tNetwork table. If that list expands, the Me.ComboBox line will address without having to manually edit the list again.</rlb>

 

[Fluff]

Glad to help & thanks for the feedback