listboxfiltrata

Magari per Mauro

Sono nuovo ed alquanto inesperto

Ho visto l'esempio di Maurosg della listboxfiltrata

Volevo chiedere , se possibile

Se volessi filtrare i dati con una ricerca di testo sulla Textbox del tipo "Pippo*"

quindi senza specificare la lunghezza del testo e NON Case Sensitive

come posso fare ?

    With Me.ListBox1
        v = .List
        .RowSource = ""
        For lng = 0 To UBound(v)
            If UCase(Left(v(lng, 0), 4)) = UCase(Me.TextBox1.Text) Then
                .AddItem
                ListBox1.List(lCont, 0) = v(lng, 0)
                ListBox1.List(lCont, 1) = v(lng, 1)
                lCont = lCont + 1
            End If
        Next
        If .ListCount = 0 Then
            MsgBox "Nessun dato trovato.", vbOKOnly + vbInformation, "Attenzione"
            Me.TextBox2.Text = ""
            Call mCaricaTuttiDati
            With Me.TextBox1
                .SelStart = 0
                .SelLength = Len(TextBox1.Text)
                .SetFocus
            End With
        Else
            Me.TextBox2.Text = .ListCount
        End If
    End With

 

Grazie in anticipo per una risposta

Taz

 

 

Informazioni domanda


Ultimo aggiornamento febbraio 27, 2018 Visualizzazioni 407 Si applica a:
Risposta
correggo, non mi da errore, ma non riempie la TextBox


Primo valore, prima colonna della Listbox:

 

Private Sub CommandButton4_Click()
    With Me.ListBox1
        .SetFocus
        .Selected(0) = True
    End With
    Me.TextBox4.Text = Me.ListBox1.List(0, 0)
End Sub


 

Click sulla riga della Listbox:

 

Private Sub ListBox1_Click()
    Me.TextBox4.Text = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
End Sub

 

--
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.