Risultati da 1 a 5 di 5

Discussione: filtro avanzato con range variabile in vba



  1. #1
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    54
    Messaggi
    475
    Versione Office
    2007/10/13 w10
    Likes ricevuti
    17
    Likes dati
    91

    filtro avanzato con range variabile in vba

    Buongiorno
    avrei bisogno del vostro prezioso aiuto
    al momento vi allego il file di Excel con qualche dato
    il risultato che mi piacerebbe ottenere è quello riportato sul foglio2

    ad integrazione avrei bisogno di 2 variabili l'area di selezione dati a filtrare e le righe oggetto del filtro

    adesso l'area è A1:D6 potrebbe essere A1:D70
    i numeri doc da filtrare sono K2:K3 potrebbero essere K2:K12

    spero i essere stato chiaro

    grazie
    File Allegati File Allegati

  2. #2
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61

    Re: filtro avanzato con range variabile in vba

    ciao mb63,
    vedi se può tornarti utile...
    premetto che non è mia...la usavo per un mio vecchio foglio 3/4 anni fa.

    Codice: 
    Sub FilterRangeCriteria()
    Dim iCtr As Integer
    Dim vCrit() As String
    Dim wsO As Worksheet
    Dim rngOrders As Range
    Set wsO = Worksheets("Foglio1")
    Set rngOrders = wsO.Range("$B$2").CurrentRegion
    
    
    With Range("list")
    ReDim vCrit(.Rows.Count)
    For iCtr = 1 To .Rows.Count
    vCrit(iCtr) = CStr(.Cells(iCtr, 1))
    Next iCtr
    End With
    rngOrders.AutoFilter _
    Field:=2, _
    Criteria1:=vCrit, _
    Operator:=xlFilterValues
    End Sub
    ciao
    ale


    ciao
    ale
    File Allegati File Allegati

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    54
    Messaggi
    475
    Versione Office
    2007/10/13 w10
    Likes ricevuti
    17
    Likes dati
    91

    Re: filtro avanzato con range variabile in vba

    Interessante come file ma non soddisfa a pieno la mia esigenza
    infatti se aggiungo un numero documento in colonna K e estendo il quantitativo di dati da A1: D5 ad A1:D50, 0utente che utiizza il file non trova la copia dei dati
    corretta in foglio2 che risulta vuoto
    File Allegati File Allegati

  5. #4
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61

    Re: filtro avanzato con range variabile in vba

    mi ero perso il pezzo del foglio2...prova ora.

    Codice: 
    Sub FilterRangeCriteria()
    Dim iCtr As Integer
    Dim vCrit() As String
    Dim wsO As Worksheet
    Dim rngOrders As Range
    Set wsO = Worksheets("Foglio1")
    Set rngOrders = wsO.Range("$B$2").CurrentRegion
    
    
    With Range("list")
    ReDim vCrit(.Rows.Count)
    For iCtr = 1 To .Rows.Count
    vCrit(iCtr) = CStr(.Cells(iCtr, 1))
    Next iCtr
    End With
    rngOrders.AutoFilter _
    Field:=2, _
    Criteria1:=vCrit, _
    Operator:=xlFilterValues
    
    
        Sheets("Foglio2").Select
        Range("A1").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.ClearContents
        Range("A1").Select
        ActiveSheet.Previous.Select
        Range("A1").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        ActiveSheet.Next.Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Range("A1").Select
        ActiveSheet.Previous.Select
        Range("A1").Select
        Selection.AutoFilter
    End Sub


    ciao
    ale
    File Allegati File Allegati
    Ultima modifica fatta da:Rubik72; 07/09/16 alle 23:18

  6. I seguenti utenti hanno dato un "Like"


  7. #5
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    54
    Messaggi
    475
    Versione Office
    2007/10/13 w10
    Likes ricevuti
    17
    Likes dati
    91

    Re: filtro avanzato con range variabile in vba

    Ciao sono talmente contento che non trovo più il tasto per inserire RISOLTO

    HELP

Discussioni Simili

  1. [Tutorial VBA] Range.End() - Range.OffSet() - Come operare sulle tabelle di dati
    Di dracoscrigno nel forum Imparando Excel & VBA - Tutorial di Excel-
    Risposte: 3
    Ultimo Messaggio: 29/03/17, 22:30
  2. [Risolto] MACRO copia range su un altro foglio con filtro
    Di cermeo nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 22/02/17, 00:41
  3. Ricerca Filtro Avanzato
    Di svizzera nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 31/12/16, 21:17
  4. Inserire più range in un unica variabile?Dima dati1
    Di Lety88 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 17/04/16, 10:06
  5. Somma al verificarsi di una condizione ma per un range variabile
    Di Alessandro nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 07/10/15, 18:57

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
  •