Risultati da 1 a 5 di 5

Discussione: Ripulire ListBox



  1. #1
    L'avatar di giugar
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Svizzera
    Età
    53
    Messaggi
    42
    Versione Office
    2013
    Mi Piace ricevuti
    1

    Ripulire ListBox

    Buongiorno a tutti,
    con il codice che riporto sotto, eseguo una ricerca in una listBox. La il codice imposta la ricerca per una selezione multipla se trova più corrispondenze.
    Il mio problema é quello di dover ripulire la ListBox da precedenti ricerche prima di eseguirne una nuova.

    Come posso fare?
    Grazie

    Codice: 
    Private Sub Cerca_Click()
    If TextBox16 = "" Then
    MsgBox "Non hai inserito nessun paramentro di ricerca", _
    vbCritical, Title:="'Scrivi un paramentro di ricerca!"
    TextBox16.SetFocus
    Exit Sub
    End If
    
    
    If TBcol = "" Then
    MsgBox "Non ha selezionato la colonna di ricerca", _
    vbCritical, Title:="'Seleziona la colonna di ricerca!"
    ComboBox1.SetFocus
    Exit Sub
    End If
    
    
    Dim Quanti, Cont, R
    Dim C As Integer
    C = CLng(TBcol)
        ListBox10.MultiSelect = fmMultiSelectExtended   'inseriamo l'istruzione per impostare la possibilità di selezionare più righe insieme
            Quanti = ListBox10.ListCount - 1
                Cont = 0
                    For R = 0 To Quanti - 1
        If ListBox10.List(R, C) Like "*" & TextBox16 & "*" Then
            ListBox10.Selected(Cont) = True
        End If
            Cont = Cont + 1
                Next
                    MsgBox "FINE RICERCA"
    End Sub
    File Allegati File Allegati

  2. #2
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    544
    Versione Office
    2000 - 2013
    Mi Piace ricevuti
    167
    Mi Piace dati
    91

    Re: Ripulire ListBox

    Buona giornata, Giugar;
    hai già valutato la possibilità di un CommandButton "Nuovo", e:

    Codice: 
    Private Sub Nuovo_Click()
    Dim mydate As Date
    Dim mytime As String
    mydate = Date
    mytime = Time
    mydate = Format(mydate, "dd/mmmm/yyyy")
    TextBoxdata.Text = "Data:" & " " & mydate & " - " & "Ora:" & " " & mytime
    
    Dim X, Y
    Sheets("ARCHIVIO_RIAZZINO").Select
    ActiveSheet.Unprotect
    X = Range("A6").CurrentRegion.Rows.Count + 6
    Y = Range("A6").CurrentRegion.Columns.Count
    area = Range(Cells(6, 1), Cells(X, Y)).Address
    ListBox10.RowSource = area
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    
    ComboBox1.AddItem "File Folder Code"
    ComboBox1.AddItem "Department"
    ComboBox1.AddItem "Job N°"
    ComboBox1.AddItem "Commessa N°"
    ComboBox1.AddItem "Project"
    ComboBox1.AddItem "Client"
    ComboBox1.AddItem "Country"
    ComboBox1.AddItem "Description"
    ComboBox1.AddItem "Date"
    ComboBox1.AddItem "Turbine Type"
    ComboBox1.AddItem "Add Date"
    
    Menu.Controls("ComboBoxUtente").RowSource = "utenti!A1:A300"
    End Sub

    A disposizione.

    Buon Lavoro e buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  3. #3
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    586
    Versione Office
    2010
    Mi Piace ricevuti
    72
    Mi Piace dati
    1

    Re: Ripulire ListBox

    Codice: 
    Private Sub Cerca_Click()
    If TextBox16 = "" Then
      MsgBox "Non hai inserito nessun paramentro di ricerca", _
      vbCritical, Title:="'Scrivi un paramentro di ricerca!"
      TextBox16.SetFocus
      Exit Sub
    End If
    
    If TBcol = "" Then
      MsgBox "Non ha selezionato la colonna di ricerca", _
      vbCritical, Title:="'Seleziona la colonna di ricerca!"
      ComboBox1.SetFocus
      Exit Sub
    End If
    
    Dim Quanti, Cont, R
    Dim C As Integer
    C = CLng(TBcol)
    ListBox10.MultiSelect = fmMultiSelectExtended   'inseriamo l'istruzione per impostare la possibilità di selezionare più righe insieme
    Quanti = ListBox10.ListCount - 1
    Cont = 0
    For R = 0 To Quanti - 1
        ListBox10.Selected(Cont) = False
        If ListBox10.List(R, C) Like "*" & TextBox16 & "*" Then
            ListBox10.Selected(Cont) = True
        End If
        Cont = Cont + 1
    Next
    MsgBox "FINE RICERCA"
    End Sub

  4. #4
    L'avatar di giugar
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Svizzera
    Età
    53
    Messaggi
    42
    Versione Office
    2013
    Mi Piace ricevuti
    1

    Re: Ripulire ListBox

    Citazione Originariamente Scritto da GiuseppeMN Visualizza Messaggio
    Buona giornata, Giugar;
    hai già valutato la possibilità di un CommandButton "Nuovo", e:

    Codice: 
    Private Sub Nuovo_Click()
    Dim mydate As Date
    Dim mytime As String
    mydate = Date
    mytime = Time
    mydate = Format(mydate, "dd/mmmm/yyyy")
    TextBoxdata.Text = "Data:" & " " & mydate & " - " & "Ora:" & " " & mytime
    
    Dim X, Y
    Sheets("ARCHIVIO_RIAZZINO").Select
    ActiveSheet.Unprotect
    X = Range("A6").CurrentRegion.Rows.Count + 6
    Y = Range("A6").CurrentRegion.Columns.Count
    area = Range(Cells(6, 1), Cells(X, Y)).Address
    ListBox10.RowSource = area
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    
    ComboBox1.AddItem "File Folder Code"
    ComboBox1.AddItem "Department"
    ComboBox1.AddItem "Job N°"
    ComboBox1.AddItem "Commessa N°"
    ComboBox1.AddItem "Project"
    ComboBox1.AddItem "Client"
    ComboBox1.AddItem "Country"
    ComboBox1.AddItem "Description"
    ComboBox1.AddItem "Date"
    ComboBox1.AddItem "Turbine Type"
    ComboBox1.AddItem "Add Date"
    
    Menu.Controls("ComboBoxUtente").RowSource = "utenti!A1:A300"
    End Sub

    A disposizione.

    Buon Lavoro e buona serata.

    Giuseppe
    Grazie Giuseppe,
    ma se inserisco le istruzioni del commandbutton "Nuovo" direttamente nelle istruzioni del Command "Cerca", mi va alla grande senza dover fare 2 pulsanti.
    Grazie per le istruzioni.

    Saluti Giuseppe

  5. #5
    L'avatar di giugar
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Svizzera
    Età
    53
    Messaggi
    42
    Versione Office
    2013
    Mi Piace ricevuti
    1

    Re: Ripulire ListBox

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    Codice: 
    Private Sub Cerca_Click()
    If TextBox16 = "" Then
      MsgBox "Non hai inserito nessun paramentro di ricerca", _
      vbCritical, Title:="'Scrivi un paramentro di ricerca!"
      TextBox16.SetFocus
      Exit Sub
    End If
    
    If TBcol = "" Then
      MsgBox "Non ha selezionato la colonna di ricerca", _
      vbCritical, Title:="'Seleziona la colonna di ricerca!"
      ComboBox1.SetFocus
      Exit Sub
    End If
    
    Dim Quanti, Cont, R
    Dim C As Integer
    C = CLng(TBcol)
    ListBox10.MultiSelect = fmMultiSelectExtended   'inseriamo l'istruzione per impostare la possibilità di selezionare più righe insieme
    Quanti = ListBox10.ListCount - 1
    Cont = 0
    For R = 0 To Quanti - 1
        ListBox10.Selected(Cont) = False
        If ListBox10.List(R, C) Like "*" & TextBox16 & "*" Then
            ListBox10.Selected(Cont) = True
        End If
        Cont = Cont + 1
    Next
    MsgBox "FINE RICERCA"
    End Sub
    Ancora meglio!
    Grazie.

    Saluti Giuseppe

  6. I seguenti utenti hanno dato un "Mi Piace"


Discussioni Simili

  1. Come popolare una ListBox
    Di aurelio125 nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 11/11/16, 00:24
  2. [Risolto] Listbox-Combobox
    Di marc63 nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 26/10/16, 22:44
  3. listbox con date scadute
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 16/08/16, 05:44
  4. Ancora su listbox multiselect
    Di alfrimpa nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 30/06/16, 11:08
  5. hiperlink listbox
    Di nessi nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 30/04/16, 13:09

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •