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
Moderatori: Anthony47, Flash30005
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
Torna a Applicazioni Office Windows
Inserimento dati su tabella da codice a barre Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 80 |
Ricavare dati di origine di un grafico online Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 104 ospiti