Filtro automatico Excel?

[Nicola985]

Ciao, non riesco ad impostare il filtro automatico di Excel in modo tale che mi permetta di selezionare più di una voce contemporaneamente.
Ho visto su un altro PC (che però aveva Office 2007) che si può impostare il filtro come quello di una tabella pivot, cioè nel menu a tendina che si apre è possibile selezionare i quadratini delle voci da visualizzare.
Sul mio PC ho Office 2003 ma penso che sia cmq possibile...spero

[Nicola985]

Intendo questo http://user.services.openoffice.org/...5266&mode=view

[Nicolaesse]

Questa interessa anche a me...anche se a dire la verità credo che sia una funzione che trovi solo nelle versione di Office dalla 2007 in poi!

[borgodiavalon]

potresti provare con vba.
allora nella testa ho l'idea di un foglio con i dati (esempio dalla colonna A alla colonna T), io metterei i valori da ricercare nella colonna AA, quindi mi ritrovereicoi valori che fungono da criteri nelle cella AA1, AA2, AA3 eccetera. poi proverei questo codice:

Public Sub filtro_multiplo()
'valori da verificare prima di lanciare la macro:
'MyFoglio;
'MyColonnaValore (colonna in cui si trova il valore da trovare);
'MycolonnaCriterio (colonna in cui si tovano i criteri).

Dim MyRiga_VALORE As Integer, MyRiga_CRITERIO As Integer, MyRigaCopia As Integer
Dim MyFoglio As String, MyColonnaValore As String, MycolonnaCriterio As String
MyFoglio = "foglio1"
MyColonnaValore = "m"
MycolonnaCriterio = "aa"

MyRiga_CRITERIO = 2
MyRiga_VALORE = 1
MyRigaCopia = 1
Sheets(MyFoglio).Select
       
CONTROLLO_FILTRO:
        MyRiga_VALORE = MyRiga_VALORE + 1
        If Range(MyColonnaValore & MyRiga_VALORE).Value = "" Then
            Range("a1").Select
            MsgBox "FINITO"
            Exit Sub
        Else
INIZIO_CONTROLLO:
            If Range(MycolonnaCriterio & MyRiga_CRITERIO).Value = Range(MyColonnaValore & MyRiga_VALORE).Value Then
                Rows(MyRiga_VALORE & ":" & MyRiga_VALORE).Select
                Selection.Copy
                
                MyRigaCopia = MyRigaCopia + 1
                ActiveSheet.Paste Destination:=Worksheets("FOGLIO2").Range("A" & MyRigaCopia)
            Else
                MyRiga_CRITERIO = MyRiga_CRITERIO + 1
                If Range(MycolonnaCriterio & MyRiga_CRITERIO).Value = "" Then
                    MyRiga_CRITERIO = 2
                    GoTo CONTROLLO_FILTRO
                Else
                    GoTo INIZIO_CONTROLLO
                End If
                
            End If
        End If
        
GoTo CONTROLLO_FILTRO
 
End Sub

copialo e incollalo nell'editor di vba di excel e poi lancialo.

poi magari vediamo se riusciamo anche a migliorarlo.