Establecer filtrado automático de múltiples comodines
Ahora mismo estoy haciendo codificación para establecer un filtro para un gráfico de datos. Básicamente, no sé cómo publicar la hoja de datos aquí, así que intente escribirlos):
(a partir de la izquierda es la columna A) Nombre * BDevice * Cantidad * Venta * Propietario
Básicamente necesito filtrar por 2 columnas: -El dispositivo BD con cualquier palabra contiene "M1454" o "M1467" o "M1879" (Significa que M1454A o M1467TR aún caben) -El propietario con PROD o RIESGO
Aquí está el código que escribí:
Sub AutoFilter()
ActiveWorkbook.ActiveSheet..Range(B:B).Select
Selection.Autofilter Field:=1 Criteria1:=Array( _
"*M1454*", "*M1467*", "*M1879*"), Operator:=xlFilterValues
Selection.AutoFilter Field:=4 Criteria1:="=PROD" _
, Operator:=xlOr, Criteria2:="=RISK"
End Sub
Cuando ejecuto el código, la máquina devuelve el error 1004 y la parte que parece estar equivocada es la parte 2 del filtro (no estoy seguro del uso de Field, por lo que no puedo decirlo con seguridad)
Editar; Santosh: Cuando intento su código, la máquina obtiene el subíndice del error 9 fuera de rango. El error vino de la declaración with. (ya que la tabla de datos tiene una columna de A a AS, por lo que solo cambio a A: AS)