filtro di una listbox

Salve a tutti

nel mio lavoretto ho una listbox con la textbox filtro i dati che me li restituisce sempre nella stessa listbox, il problema è che posso filtrare solo con le iniziali del testo della/e cella/e interessata/e, vorrei riuscire a filtrarle in tutto il contesto della/e cella/e. esempio:

colonna A

minni vive a roma

se filtro m, mi, min etc .....va bene

se filtro vive, a, roma non trova nulla

il codice che uso è questo:

Private Sub CommandButton1_Click()

                                    

ListBox4.MultiSelect = fmMultiSelectMulti
'eseguo il *filtro* della ListBox
    Dim v As Variant
    Dim lng As Long
    Dim lCont As Long
    lCont = 0

    With Me.ListBox4
        v = .List
        .RowSource = ""
        For lng = 0 To UBound(v)
            If InStr(LCase(v(lng, 0)), LCase(Me.TextBox1.Text)) = 1 Then

                .AddItem
                .List(lCont, 0) = v(lng, 0)
                .List(lCont, 1) = v(lng, 1)
                .List(lCont, 2) = v(lng, 2)
                .List(lCont, 3) = v(lng, 3)
                '.List(lCont, 4) = v(lng, 4)
                '.List(lCont, 5) = v(lng, 5)
                lCont = lCont + 1
            End If
        Next

        If .ListCount = 0 Then
            MsgBox "Nessun dato trovato.", vbOKOnly + vbInformation, "Attenzione"
            Me.TextBox.Text = ""
            Call mCaricaListBox4
            With Me.TextBox1
                .SelStart = 1
                .SelLength = Len(TextBox1.Text)
                .SetFocus
            End With

        Else
            Me.TextBox2.Text = .ListCount
      End If
    End With

End Sub

Grazie sempre per la disponibilita 

 

Informazioni domanda


Ultimo aggiornamento febbraio 27, 2018 Visualizzazioni 400 Si applica a:
Risposta

niente non riesco, i miei limiti sono evidenti comunque grazie lo stesso

massimo

Vedi qui (sempre se ho capito, Norman ha ragione!):

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.