Aplicar filtro avanzado con criterios como variables en VBA

10/05/2005 - 21:17 por ana_rg | Informe spam
Hola a todos.
Estoy intentando hacer un programa en VBa y me he quedado un poco
clavada en este punto.

El valor GCAMPO lo campto la hoja 1
1)En la hoja1
capturo el valor GCAMPO
2)En la hoja 2 tengo una tabla que me indica los criterios asignados
para cada valor GCAMPO y con ellos poder aplicar el filtro avanzado
en la hoja3.
GCAMPO CRIT SIGNO ( Supongo igual signo para cada GCAMPO)
A 1000 A 1100 A 2000 C 1000 <>
C 1100 <>
D 400 D 500 D 600
3) En la Hoja 3 Aplico los criterios seleccionados

Ejemplo: Como se haria en vba?
Partimos de GCAMPO=A
1)Busco GCAMPO en la tabla de hoja 2 y que en este caso obtenemos tres
criterios.

criterio100
criterio200
criterio3 00
signo= Operator:=xlOr

2) Ahora como monto el filtro avanzado con estas variables. Suponiendo
que el numero de criterios y signo me varian

Selection.AutoFilter Field:=1 ...

Muchisimas gracias por vuestra atencion

Preguntas similare

Leer las respuestas

#1 ana_rg
12/05/2005 - 22:12 | Informe spam
Muchísimas gracias KL. He probado el ejemplo y funciona perfectamente.

Tengo una duda de programacion: en la instruccion "Me" no se a que se refiere

Saludos Ana Maria
Respuesta Responder a este mensaje
#2 KL
12/05/2005 - 22:25 | Informe spam
Hola Ana Maria,

"Me" es una forma corta de referirse al objeto en cuyo modulo se encuentra
el procedimiento, en este caso es Hoja2. O sea que la instruccion completa
deberia ser esta:

With Worksheets("Hoja2")
...
End With

Si el procedimiento estuviera en el modulo de ThisWorkbook se refereria a
ThisWorkbook, dentro del modulo de UserForm1 Me significaria UserForm1 etc.

Saludos,
KL

"Ana_Maria" wrote in message
news:
Muchísimas gracias KL. He probado el ejemplo y funciona perfectamente.

Tengo una duda de programacion: en la instruccion "Me" no se a que se
refiere

Saludos Ana Maria
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida