como utilizar autofiltros con macros

Estimo que no hace falta ninguna introducción a los Autofiltros de Excel, dado que en mayor o menor medida todos los hemos utilizados y conocemos sus principales funciones y configuración.

Pero. Y sí, si no hubiese "peros" este blog (estimo) no existiría.

Un lector tiene problemas a la hora de automatizar los Autofiltros mediante macros. Y yo se por que el tiene esos problemas: por que los Autofiltros son conflictivos y, de entrada, no se llevan bien con VBA. A menos que le hagamos algunos retoques al código.

las clásicas "flechitas para abajo" del Autofiltro.

[+/-] Ver el resto / Ocultar

Supongamos que filtramos todos los valores iguales a uno (1) de la primer columna, mientras tenemos activada la grabación de macros. Este sería el código resultante:

Sub Macro1()
    'selecciono el rango A1 (que es donde comienza la tabla)
     Range("A1").Select
    'aplico el autofiltro
    Selection.AutoFilter
    'Excel define el rango, el campo (field) del criterio y el criterio aplicado (1)
    ActiveSheet.Range("$A$1:$B$16").AutoFilter Field:=1, Criteria1:="1"
End Sub

En el código se observa Field:=1 por que es el primer campo el que filtramos (columna 1 de la tabla) y Criteria:=1 por que es el criterio de filtrado (todos los registros del campo 1 (codigo) que sean iguales a 1)

Nos queda:

exacto, ni mas ni menos.

Podemos quitar el Autofiltro y ejecutar nuestra macro las veces que necesitemos, y esta funcionará correctamente. Pero seamos sinceros... esta automatización no tiene hasta ahora mucho sentido.... el criterio a filtrar está dentro del código y siempre nos traerá todos los códigos iguales a 1. Necesitamos que, por ejemplo, el usuario ingrese en D1 el código, nuestra macro lo capture y posteriormente lo utilice en el criterio de filtrado. Probemos:

Sub Macro1()
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$B$16").AutoFilter Field:=1, Criteria1:=[d1]
End Sub

"perféto". en D1 puse el valor 2 y ejecuté la macro, logrando el resultado esperado.

Nos envalentonamos un poco y vamos a cambiar el Field (campo) por el numero 2 y en D1 ingresaremos 12/01/1974, para aplicar ese criterio al Autofiltro:

Sub Macro1()
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$B$16").AutoFilter Field:=2, Criteria1:=[d1]
End Sub

Y Excel, educadamente, nos retorna:

... nada.

Por que funciona con el campo 1 (codigo) y no con el campo 2 (fecha)? Por que en realidad el problema radica en la forma mediante la cual VBA interpreta las fechas. El formato yanquilandia se impone (mm/dd/yyyy), con el agregado de que, generalmente, primero debemos convertirla a un tipo String (cadena).

Cuando a mí se me presentó este inconveniente (hace mucho tiempo atrás) encontré una sola forma de solucionarlo, que es la que detallo a continuación. Seguro existen otras... pero como esta anduvo bien la dejé así y no intenté otros métodos. Será bienvenido cualquier aporte al respecto.

Sub AutoFiltroConFechas()
    'defino una variable del tipo string
    Dim Fecha As String
    'armo la fecha con el formato yanqui (mm/dd/yyyy)
    Fecha = Month([d1]) & "/" & Day([d1]) & "/" & Year([d1])
    'selecciono el comienzo de la tabla
    Range("a1").Select
    Selection.AutoFilter
    'y aplico el filtro: campo 2, criterio=fecha
    ActiveSheet.Range("$A$1:$B$16").AutoFilter Field:=2, Criteria1:= _
    "=" & Fecha & ""
End Sub

Y ahora:

funciona.

Y con otro valor (fecha) en D1:

it works, too.

Practicando un poco con las macros y los autofiltros podrán crear consultas muy avanzadas, como por ejemplo el filtrado de un codigo entre dos fechas determinadas, etc, etc. Este ejemplo es bien básico y consta de tan solo dos columnas, siendo que en la mayoría de nuestros proyectos las tablas son mucho mas amplias y complejas, en cuanto a cantidad y tipos de datos. Pero mejor... paso a paso, para complicarla.... siempre hay tiempo. De a poco pueden ir sumando columnas y hacer luego cualquier cosa.

Solo deben tener en cuenta como pasar correctamente el criterio "fecha".