quiero que los 5 filtros se apliquen sobre la hoja, pero el ultimo (filtro de la fecha) me sale en blanco aunque la fecha la esta tomando correctamente :( Alguna idea?
Sub Macro2()
Dim hoy As Date
Dim fechaVisita As Date
hoy = Date
fechaVisita = DateAdd("d", -30, hoy)
MsgBox (fechaVisita)
ActiveSheet.Range("$A$1:$BC$50000").AutoFilter Field:=11, Criteria1:="CAPFD"
ActiveSheet.Range("$A$1:$BC$50000").AutoFilter Field:=47, Criteria1:="<>*rym*", Operator:=xlAnd
ActiveSheet.Range("$A$1:$BC$50000").AutoFilter Field:=35, Criteria1:=Array("Contactado", "Datos Erróneos", "Espera POS", "Imprimir Configuración", "Problemas En POS", "Sin Contacto", "="), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$BC$50000").AutoFilter Field:=2, Criteria1:=Array("abonavetti", "acorrea", "ameza", "amuradas", "cbento", "clatapie", "smeza"), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$BC$50000").AutoFilter Field:=3, Criteria1:="<=" & fechaVisita, Operator:=xlAnd
End Sub