Filtro in base ad un valore in una cella

Un saluto a tutti e invito a leggere questo post:

http://freeforumzone.leonardo.it/discussione.aspx?idd=9561389

Per Nilon

Sto cercando di applicare la soluzione proposta da Antonio, ma ho trovato un inconveniente (potrebbe essere dovuto a un mio errore ;-)): se il valore che inseriamo nella cella A2 del Foglio 2 non è presente nell'elenco in A, vengono ricopiati tutti i record senza effettuare alcun filtro. Si può fare in modo che, invece, non venga ricopiato nulla?

Ho visto solo ora la tua richiesta; in caso di nessun dato trovato dovrebbe restituire tute righe vuote, comunque ho correto la macro aggiungedo due controlli "If" il primo se la cella A1 (criterio filtro) è vuota hai un avviso e non esegue il resto del codice, il seconde se la cella B1 (foglio2, primo risultato utile del filtro) è vuota hai altro messaggio di avviso che non è stato trovato nulla.

Sub FiltraDaCella()
Application.ScreenUpdating = False
xCriterio = Sheets("Foglio2").Range("A1")
If xCriterio = "" Then
MsgBox " Nessun Criterio specificato in A1"
Exit Sub
End If
Sheets("Foglio1").Select
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$20").AutoFilter Field:=1, Criteria1:=xCriterio
Range("A2:F3000").Select
Selection.Copy
Sheets("Foglio1").Select
Range("B2:F3000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Foglio2").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("Foglio1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A2").Select
Sheets("Foglio2").Select
Range("A1").Select
If Sheets("Foglio2").Range("B1") = "" Then
MsgBox " Nessuna occorrenza trovata"
End If
Application.ScreenUpdating = True
End Sub