popolare combobox

Question

Buonasera, 

vorrei popolare una combobox prendendo gli elementi di una tabella (in particolare i dati nella seconda colonna di questa tabella). Come posso fare? Grazie per l'aiuto 

  For i = 9 To 7 + Range("Tabella_prova_tblprofessione[#All]").Rows.Count

 Foglio1.ComboBox1.AddItem    '??????  Range("Tabella_prova_tblprofessione[#All]")   seconda colonna

Next

Answer 1

Grazie mille per le risposte. Funzionano entrambe le soluzioni!

Answer 2

Ciao SalvatoreMarchese18,

con gli oggetti Tabella puoi sperimentare anche i seguenti metodi:

Public Sub a()

    With Foglio1

      .ComboBox1.Clear

      With .ListObjects("Tabella_Prova").ListColumns("Professione")

        Foglio1.ComboBox1.List = .DataBodyRange.Value

      End With

      .ComboBox2.Clear

      .ComboBox2.List = .Range("Tabella_Prova[Professione]").Value

    End With

End Sub

Answer 3

Ciao Salvatore,

Prova qualcosa del genere:    

'--------->>

Private Sub UserForm_Initialize()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim Rng As Range

    Dim i As Long

    Const sNomeTabella As String = "Table1"                  '<<=== Modifica

    Set WB = ThisWorkbook

    Set SH = WB.Sheets("Foglio1")

    Set Rng = ActiveSheet.Range(sNomeTabella).Columns(2)

    For i = 5 To Rng.Rows.Count

        Me.ComboBox1.AddItem Rng.Cells(i).Value

    Next i

End Sub

'--------->>

Private Sub CommandButton1_Click()

    Unload Me

End Sub

'<<=========

===

Regards,

Norman