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
Problema con copia dati senza formattazione Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Macro copia dati colonne non contigue su un altro file excel Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
scrivere una parola in ComboBox e caricarla filtrando i dati Autore: ricky53 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 28 ospiti