- Codice: Seleziona tutto
Private Sub Label1_Click()
Dim c As Range
Dim lCont As Long
lUltRiga = Sheets("prodotti").Range("A" & _
Rows.Count).End(xlUp).Row
'metto un riferimento al Range
Set rng = Sheets("prodotti").Range("A3:A" & lUltRiga)
lCont = 0
With Me.ListBox1
For Each c In rng
If c.Value = UserForm1.ComboBox1 Then
.AddItem
.List(lCont, 0) = c.Value
.List(lCont, 1) = c.Offset(0, 1).Value
.List(lCont, 2) = TextBox18 'c.Offset(0, 2).Value
.List(lCont, 3) = c.Offset(0, 2).Value
.List(lCont, 4) = TextBox19 'c.Offset(0, 1).Value
.List(lCont, 5) = TextBox20 'c.Offset(0, 2).Value
.List(lCont, 6) = c.Offset(0, 3).Value
lCont = lCont + 1
End If
Next
End With
End Sub
Con lCont = lCont + 1 i dati nelle listbox dovrebbero essere accodati invece vengono messi sempre sulla prima riga.
