Popolare Listbox con dati da foglio

[alfrimpa]

Ciao a tutti

Supponendo di avere una userform con una lisbox di 4 colonne ed avendo in foglio1 4 colonne compilate da a1 a d10 come faccio a popolare la listbox con i dati contenuti nel foglio rispettando l'ordine delle colonne?

Grazie

[alfrimpa]

Girando per la rete ho trovato info in base alle quali ho scritto la sottostante macro che spero possa essere utile a qualcuno.

Codice: Seleziona tutto

Private Sub CommandButton2_Click()
Dim t As Integer
Dim x As Integer
Dim j As Integer
Dim UR As Long
UR = Worksheets("LISTINOBIS").Cells(Rows.Count, 1).End(xlUp).Row
For t = 1 To UR
    If ActiveSheet.Cells(t, 1) = Range("j1").Value Then
        ListBox1.AddItem ActiveSheet.Cells(t, 1)
        x = ListBox1.ListCount - 1
        For j = 1 To 7
            ListBox1.List(x, j) = Worksheets("LISTINOBIS").Cells(t, j + 1)
        Next j
    End If
 Next
 End Sub

Ovviamente se qualcuno volesse suggerire modifiche/miglioramenti è il benevenuto

[Anthony47]

Se il tuo obiettivo fosse stato solo quello di linkare il listbox con l'intervallo A1:D10 di un certo foglio allora sarebbe stato sufficiente usare la sua proprieta' RowSource (es: Foglio4!A1:D10); in realta' vedo che vuoi inserire solo le righe che rispettano un certo criterio, e questo richiede una macro.
Invece di fare l'aggiornamento tramite CommandButton potresti anche farlo anche tramite uno degli "Eventi" del controllo, es Change, Enter, Exit, ... Ma questo dipende dal lavoro complessivo che devi fare.

Ciao