Error al filtrar con macros

[Fernando.O]

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

[Antoni]

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

 

[Fernando.O]

Hola Antoni:

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

 

Muy agradecido