automatizzare filtro automatico con più opzioni

[libraio]

S.O. WINDOWS 7 Professional
Office 2003

In un foglio excel 2003 applico la seguente macro

Sheets("Foglio1").Select
Columns("G:G").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Blu"
Columns("A:H").Select
Selection.Copy
Sheets("Foglio2").Select
ActiveSheet.Paste

Poichè i criteri su cui applico il Filtro automatico sono diversi, chiedo se è possibile creare la macro in modo che chieda il criterio da applicare tra quelli inseriti in colonna "G2" del Foglio 1 (a titolo di esempio: Rosso, Bianco, Giallo...).
Spero di essere stato chiaro... io non ho trovato soluzioni.
Grazie a tutti

[Anthony47]

Il mio suggerimento e' che esplori l'uso del "filtro avanzato", come suggerito ad altro utente qui: viewtopic.php?p=646147#p646140

Vedi se puo' fare al caso tuo...

Oppure una semplice modifica al tuo codice potrebbe essere:

Codice: Seleziona tutto

Sheets("Foglio1").Select
myFilt = InputBox("Quale valore filtrare?")
Columns("G:G").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=myFilt
Columns("A:H").Select
Selection.Copy
Sheets("Foglio2").Select
ActiveSheet.Paste

Come vedi di usa un InputBox per chiedere quale valore va filtrato

Ciao

[libraio]

Grazie Anthony,
il codice nel box risponde perfettamente alle mie esigenze, ma mi riprometto di verificare anche il topic "per ulteriori sviluppi..."