copia in filtro

[scanacc]

Carissimi, devo inserire in un filtro in Cognome e Nome che sta nella cella Q13.
Questo nome cambia sempre.
Ho registrato la macro:

Codice: Seleziona tutto

Sub Macro12()
'
' Macro12 Macro
'

'
    Range("Q13").Select
    Selection.Copy
    Range("A13:C13").Select
    ActiveSheet.Range("$A$13:$O$799").AutoFilter Field:=1, Criteria1:= _
        "=*ROSSI MARIO*", Operator:=xlAnd
    Range("D13").Select
End Sub

Come faccio a sostituire ROSSI MARIO con il nome che sta nella cella Q13?
Ho provato a mettere

Codice: Seleziona tutto

    ActiveSheet.Range("$A$13:$O$799").AutoFilter Field:=1, Criteria1:= _
        "=*Range("Q13")*", Operator:=xlAnd

ma mi dice
ERRORE DI COMPILAZIONE
PREVISTO: FINE ISTRUZIONE
PS
il filtro deve essere selezionato su "contiene"

[Marius44]

Ciao
Creati prima una variabile riferita al criterio e poi assegno la variabile.
Voglio dire, per esempio:

Codice: Seleziona tutto

crit = Range("Q13").Value
crit = "*" & crit & "*"
ActiveSheet.Range("$A$13:$O$799").AutoFilter Field:=1, Criteria1:= crit, Operator:=xlAnd


Ciao,
Mario

[scanacc]

ci provo
grazie!