Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

LISTBOX ADDITEM

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

LISTBOX ADDITEM

Postdi talento » 19/01/13 16:48

Ho questo codice per caricare una listbox:
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.
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Sponsor
 

Re: LISTBOX ADDITEM

Postdi Anthony47 » 19/01/13 22:22

Per "accodare" usa (ListBox1.ListCount - 1) invece di lcont, e' piu' affidabile.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "LISTBOX ADDITEM":

Listbox
Autore: alfrimpa
Forum: Applicazioni Office Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti