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
estrazione/ordinamento dati da pagina web Autore: nignetto |
Forum: Applicazioni Office Windows Risposte: 10 |
Inserisci riga sopra, copia dati e aggiungi testo Autore: BG66 |
Forum: Applicazioni Office Windows Risposte: 3 |
Access 2003: funzione per contare dati Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 1 |
Raggruppamento dati separati..macro o formula Autore: nignetto |
Forum: Applicazioni Office Windows Risposte: 37 |
Visitano il forum: Nessuno e 21 ospiti