Macro y ejemplo: Aplicar filtros con botones y macros

Realizar filtros con botones y macro nos facilitará la elaboración de algunas consultas a tablas muy grandes cuando el usuario final no es usuario avanzado de excel. Cuando aplicamos autofiltros y se intenta aplicar algun filtro, vemos que puede no ser muy amigable al usuario, sobre todo si se trata de un usuario final no avanzado. Pero podemos hacerle la vida mucho mas sencilla

Public Sub AplicarFiltro()
Range("a2").AutoFilter
Range("a2").AutoFilter field:=2, Criteria1:=">5000"
End Sub

Con este código hacemos un filtro sencillo, la segunda linea elimina cualquier filtro que esté activo en el rango A2. En la tercera linea se indica como se creará el filtro, en este caso le decimos que se aplicara en la segunda fila contando desde A2 (en donde se aplicará el criterio sería B2), el criterio es valores mayores a 5000. El criterio siempre debe ir entre comillas a diferencia del campo field si lo escribimos directamente, si va como una variable como veremos mas adelante.