You are here:---Rispondi a: [RISOLTO] Ricerca materiale – Aggiornamento ListBox
Rispondi a: [RISOLTO] Ricerca materiale – Aggiornamento ListBox2017-11-21T08:04:31+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Ricerca materiale – Aggiornamento ListBox Rispondi a: [RISOLTO] Ricerca materiale – Aggiornamento ListBox

AvatarREAPAT
Partecipante
    Post totali: 29
    Private Sub mCaricaListBox1(ByVal s As String)
    
        Dim lRiga As Long
        Dim lng As Long
        Dim lCont As Long
    
        With sh1
            lRiga = .Range("A" & .Rows.Count).End(xlUp).Row
        End With
        lCont = 0
        With Me.ListBox1
            If s = "Initialize" Then
                For lng = 1 To lRiga
                    .AddItem
                    .List(lCont, 0) = sh1.Cells(lng, 1).Value
                    .List(lCont, 1) = sh1.Cells(lng, 2).Value
                    .List(lCont, 2) = sh1.Cells(lng, 3).Value
                    .List(lCont, 3) = sh1.Cells(lng, 4).Value
                    .List(lCont, 4) = sh1.Cells(lng, 5).Value
                    .List(lCont, 5) = sh1.Cells(lng, 6).Value
                    .List(lCont, 6) = sh1.Cells(lng, 7).Value
                    .List(lCont, 7) = sh1.Cells(lng, 8).Value
                    .List(lCont, 8) = sh1.Cells(lng, 9).Value
                    lCont = lCont + 1
                Next
            ElseIf s = "CommandButton" Then
                ListBox1.RowSource = ""
                For lng = 1 To 100000
                IDArray(lng) = ""
                Next
                For lng = 1 To lRiga
                    If InStr(UCase(sh1.Range("A" & lng).Value), _
                        UCase(Me.TextBox1.Text)) Then
                    .AddItem
                    .List(lCont, 0) = sh1.Cells(lng, 1).Value
                    .List(lCont, 1) = sh1.Cells(lng, 2).Value
                    .List(lCont, 2) = sh1.Cells(lng, 3).Value
                    .List(lCont, 3) = sh1.Cells(lng, 4).Value
                    .List(lCont, 4) = sh1.Cells(lng, 5).Value
                    .List(lCont, 5) = sh1.Cells(lng, 6).Value
                    .List(lCont, 6) = sh1.Cells(lng, 7).Value
                    .List(lCont, 7) = sh1.Cells(lng, 8).Value
                    .List(lCont, 8) = sh1.Cells(lng, 9).Value
                    lCont = lCont + 1
                    End If
                Next
            End If
        End With

    Forse però mi è più semplice allegare il file e spiegarlo

    • Questa risposta è stata modificata 1 anno, 10 mesi fa da Avatar REAPAT.

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi