macro en autofiltro

20/09/2004 - 16:19 por lingpe | Informe spam
tengo tres columnas con la sig informmacion
(la columna izq corresponde a num linea y A B C son las
col)

A B C
1 DIA EMPL RUTA
2 1 1 1
3 1 2 3
4 1 3 2
5 1 4 4
6 2 1 3
7 2 2 1
8 2 3 4

y asi hasta completar a dia 31

Em H1 (por ejemplo) yo tengo un valor calculado de un dato
fecha de otra hoja y quisiera que con este dato me
hiciera un autofiltro con el valor de H1

hice una macro y el codigo que se escribio es el siguiente

Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="14"

pero el valor 14 lo toma porque yo lo escojo

Mi pregunta es como puedo tomar ese valor de H1

ya probe como muchas variantes de lo sig pero no logro
hacer lo que quiero

Selection.AutoFilter field:=1, criterial:=R8C1
o
Selection.AutoFilter field:=1, criterial:="=R8C1"

Les agradezco su ayuda

*****************************

Ya alguien me contesto que cambiara la linea ultima por

Selection.AutoFilter Field:=1, Criteria1:=range("h1").value

Pero me presenta error

Gracias al grupo
 

Leer las respuestas

#1 Fernando Arroyo
20/09/2004 - 16:43 | Informe spam
Prueba con:

With Worksheets("NombreDeLaHoja")
.[A2].AutoFilter
.[A2].AutoFilter Field:=1, Criteria1:=.[H1]
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel


"lingpe" escribió en el mensaje news:484601c49f1c$e8489cb0$
tengo tres columnas con la sig informmacion
(la columna izq corresponde a num linea y A B C son las
col)

A B C
1 DIA EMPL RUTA
2 1 1 1
3 1 2 3
4 1 3 2
5 1 4 4
6 2 1 3
7 2 2 1
8 2 3 4

y asi hasta completar a dia 31

Em H1 (por ejemplo) yo tengo un valor calculado de un dato
fecha de otra hoja y quisiera que con este dato me
hiciera un autofiltro con el valor de H1

hice una macro y el codigo que se escribio es el siguiente

Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="14"

pero el valor 14 lo toma porque yo lo escojo

Mi pregunta es como puedo tomar ese valor de H1

ya probe como muchas variantes de lo sig pero no logro
hacer lo que quiero

Selection.AutoFilter field:=1, criterial:=R8C1
o
Selection.AutoFilter field:=1, criterial:="=R8C1"

Les agradezco su ayuda

*****************************

Ya alguien me contesto que cambiara la linea ultima por

Selection.AutoFilter Field:=1, Criteria1:=range("h1").value

Pero me presenta error

Gracias al grupo

Preguntas similares