Filtro automatico su più fogli



  • Filtro automatico su più fogli
    di Sesterzi75 (utente non iscritto) data: 03/05/2012

    Devo applicare un filtro avanzato su più fogli per poi avere una sola tabella di dati filtrati
    i fogli hanno dimesini variabili.
    questo che ho fatto funziona solo per un foglio
     
    Sub Filtro2()
    '
    ' Filtro2 Macro
    '
    Dim MieiRisultati As Range
    Sheets("Foglio1").Activate
    '
     Set MieiRisultati = Foglio4.Range("B5:H5")
    
        Range("B5:H196").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
            "Pivot!Criteria"), CopyToRange:=MieiRisultati, Unique:=False