depeibol

Puede que esto te sirva, Sub Filtrarybuscar() Selection.AutoFilter Field:=1, Criteria1:="1" 'En Field, deberás poner la columna de filtrado y en Criteria1 el criterio de filtrado Dim rango As Range Set rango = Range("b:b") 'cambia por la columna...