Risultati da 1 a 3 di 3

Discussione: filtro da elenco



  1. #1
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    filtro da elenco

    Ciao di nuovo a tutti.
    sempre sullo stesso esempio precedente, questa volta la mia necessità è differente.
    sempre in una userform aggiungerò un nuovo pulsante che mi filtri la tabella in "ARCHIVIOUSP" mostrando tutte le righe contenenti la lista di numeri elencati in colonna A del foglio "N".
    questa volta sono in pieno imbarazzo perché non ho la più pallida idea di dove iniziare.
    quello che vi chiedo, visto che sulla selezione multipla del filtro e l'autocomposizione non mi aiuta affatto, con quale logica posso iniziare il ragionamento per comporre questa routine?

    come sempre, grazie in anticipo per l'aiuto.
    File Allegati File Allegati

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao nessi,
    potresti usare una matrice per "raggruppare" tutti i numeri del foglio "N" e utilizzarla per impostare il filtro alla voce "Criteria1":

    Codice: 
    Sub Filtra_Numeri()
    Dim uRiga As Long, uRigaN As Long, Numeri() As String, i As Long
    
    
    uRiga = Worksheets("ARCHIVIOUSP").Range("A" & Rows.Count).End(xlUp).Row
    uRigaN = Worksheets("N").Range("A" & Rows.Count).End(xlUp).Row - 1
    ReDim Numeri(1 To uRigaN)
    
    
    With Worksheets("N")
        For i = 1 To uRigaN
            Numeri(i) = CStr(.Cells(i + 1, 1).Value)
        Next i
    End With
    
    
    With Worksheets("ARCHIVIOUSP")
        If .AutoFilterMode = True Then
            .ShowAllData
        End If
        .Range("A1").AutoFilter
        .Range("A1:D" & uRiga).AutoFilter Field:=1, Criteria1:=Numeri(), Operator:=xlFilterValues
    End With
    End Sub
    Il codice l'ho associato ad un pulsante, poi tu lo assocerai dove ti serve.
    Ti riallego il file...
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. #3
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35
    grazie mille cromagno!
    come spesso avviene quando mi cimento con il VBA mi stavo perdendo nel canonico bicchier d'acqua.
    non ambivo a tanto, il codice già compilato e finito. noto che se ci sbatto un po' la testa le cose mi "rimangono" più facilmente.
    grazie mille ancora.

Discussioni Simili

  1. [Risolto] Filtro registrare con Macro
    Di svizzera nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 18/01/17, 16:55
  2. [Risolto] Subtotale con Filtro
    Di tk71 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 27/10/16, 21:51
  3. [Risolto] Inserisci filtro dati
    Di lorans1964 nel forum Domande su Excel in generale
    Risposte: 14
    Ultimo Messaggio: 17/10/16, 17:02
  4. SOMMA.SE con FILTRO
    Di ranaone nel forum Domande su Excel in generale
    Risposte: 14
    Ultimo Messaggio: 16/07/16, 11:53
  5. [Risolto] filtro per formule
    Di Stefano nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 04/06/15, 08:27

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
  •