Macro para filtro automático

Esta simple macro permite realizar filtros personalizados de una forma sencilla.

B4. Es la celda donde vas a capturar el dato a filtrar.


Sub Filtrar()

criterio = [B4]

Selection.AutoFilter Field:=2, Criteria1:=criterio

End Sub