Filtrar el Valor de una variable indicada en una celda de excel

[andres palacios]

Buenas compañeros, un gran placer saludarles.

Les escribo una duda que tengo, ojalá me puedan ayudar.

¿Cómo podría filtrar el valor de una variable que tengo definida en el código y a su vez tengo indicado su nombre en una celda de excel?

Por ejemplo: La variable a=12 (en el código)

Si escribo "a" en una celda como puedo poner el filtro para que filtre el valor "12" y no el valor "a". Es decir, que el criterio de filtro sea el valor de la variable a, que he indicado en la celda.

.Range("A1:D200").AutoFilter field:=1, Criteria1:=(El valor de la variable a)

Muchas gracias a todos por su valiosa ayuda.

Un abrazo

[Antoni]

a=12
.Range("A1:D200").AutoFilter field:=1, Criteria1:=a

 

[andres palacios]

Gracias por tu respuesta Antoni,

pero lo que busco es que el criteria1 sea dinámico, es decir algunas veces necesitaré filtrar el valor de la variable "a" y otras veces el valor de otras variables que tengo en el código. 

De ahí, el que indique en una hoja excel el nombre de las variables del código que quiero filtrar en cada caso.

Por ejemplo:

variable 1 en mi código: a=12

variable 2 en mi código: b="manzanas"

for x=1 to 2
 Range("A1:D200").AutoFilter field:=x, Criteria1:= ??

next x

para x=1 debe filtrar 12 en el field 1

para x=2  debe filtrar "manzanas" en el field 2

Y puede que en el futuro x>2 porque tengamos nuevos criterios por eso lo meto en un bucle para dinamizarlo.

No se si esto que expongo es posible.

Muchas gracias por la ayuda

[Antoni]

Mira, no se acaba de entender lo que quieres, sube tu archivo y pon un ejemplo de lo que tienes y de lo que quieres.

[Frank2021]

Hola,

mi propuesta es la siguiente:

Declarate una variable global del tipo dictionary (para ello tienes que añadir la Referencia "Microsoft .Scripting Runtime", en el menú Herramientas -> Referencias...), por ejemplo:

• Dim gDic as new dictionary 

después en el código ves añadiendo las variables que necesites al dictionario, por ejemplo:

• gDic key:="a", Item:=a
• gDic key:="b", Item=b

después usa el dictionario para traer el valor de las variables, por ejemplo

• Range("A1:D200").AutoFilter field:=x, Criteria1:=gDic(v)

donde v es una variable de tipo string que contiene el nombre de la variable cuyo valor quieres usar en AutoFilter, por ejemplo

si v="a" cuando uses el AutoFilter es como si usaras

• Range("A1:D200").AutoFilter field:=x, Criteria1:=a

y  como "a" tiene el valor de 12, lo que sería como usar:

• Range("A1:D200").AutoFilter field:=x, Criteria1:=12

si v="b" sería como usar:

• Range("A1:D200").AutoFilter field:=x, Criteria1:="manzanas"

Saludos

[andres palacios]

Excelente idea Frank. Me funcionó perfectamente. 

 

Muchas gracias por tu útil aportación.

 

Un saludo