The filter is not being applied VBA

Question

The filter is not being applied VBA

Navigation

#1 by (0 votes)

0

I want the 5 filters to be applied on the sheet, but the last one (date filter) is blank even though the date is taking it correctly :( Any ideas?

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

vba excel

asked by David 28.09.2018 в 00:00

source

1 answer

How a 2D Array works with a double pointer in C AbstractController :: Helpers :: MissingHelperError

score 0 · Answer 1

Here is the solution:

Sub Bienvenida_Visitas()

Dim Dhoy As Date
Dim Lhoy As Long
Dhoy = DateAdd("d", -30, Date)
Lhoy = Dhoy
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("="), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$BC$50000").AutoFilter Field:=2, Criteria1:="<>mad", Operator:=xlAnd
ActiveSheet.Range("$A$1:$BC$50000").AutoFilter Field:=3, Criteria1:="<=" & Lhoy

End Sub