con i dati presenti nel foglio "Riepilogo" a partire dalla terza riga e soltanto le prime 10 righe.
io sono arrivato a questo... ma non funziona...
- Codice: Seleziona tutto
Private Sub mCaricaListBox()
Dim lRiga As Long
Dim lng As Long
Dim lCont As Long
lCont = 0
Me.ListBox1.Clear
With WS1
lRiga = .Range("A" & .Rows.Count).End(xlUp).Row
For lng = lRiga - 9 To lRiga
Me.ListBox1.AddItem
Me.ListBox1.List(lCont, 0) = .Range("A" & lng).Value
Me.ListBox1.List(lCont, 2) = .Range("C" & lng).Value
Me.ListBox1.List(lCont, 6) = .Range("G" & lng).Value
Me.ListBox1.List(lCont, 7) = CDate(.Range("H" & lng).Value)
Me.ListBox1.List(lCont, 12) = .Range("M" & lng).Value
Me.ListBox1.List(lCont, 23) = CDbl(.Range("X" & lng).Value)
lCont = lCont + 1
Next
End With
End Sub