Hola a todos:

Después de intentar e intentar, no consigo hacer Filtrar con las condiciones que necesito.

Resulta que en una variable de tipo string, almaceno los valores para que se filtren.

Cuando inserto los valores de forma manual, lo hace correctamente. Pero cuando le paso los valores que tengo en la variable, no consigo que funcione el filtro. Aparece como si no filtrase nada.

No se que es lo que estoy haciendo mal.

¿Me podéis ayudar?

ejemplo.xlsm

Te dejo 2 soluciones:

1).

Private Sub CommandButton1_Click()
   Dim Números As Variant
   Números = Array("1", "3", "5", "7")
   ActiveSheet.Range("$B$4:$C$13").AutoFilter Field:=1, Criteria1:=Números, Operator:=xlFilterValues
End Sub

2).

Private Sub CommandButton1_Click()
   ActiveSheet.Range("$B$4:$C$13").AutoFilter Field:=1, _
      Criteria1:=Array("1", "3", "5", "7"), Operator:=xlFilterValues
End Sub

 

Hola Antoni:

La primera opción me ha servido y he podido solucionar mi problema.

 

Muy agradecido