Celdas Visibles

19/08/2008 - 08:29 por JAC | Informe spam
Hola Grupo. Espero me puedan ayudar.

Tengo un macro que activa el filtro automatico a un rango "X" y con un
criterio "Y". Mi pregunta es: Como hago para mi macro acceda a cada
una de las filas visibles por el filtro?

Gracias de antemano por su ayuda. Esto me esta volviendo loco. Saludos

Atte: Alejandro Carrillo
 

Leer las respuestas

#1 Juan M
19/08/2008 - 11:00 | Informe spam
Hola Alejandro,

Dentro del objeto range existe un método que se refiere a SpecialCells
dentro del cual puedes seleccionar las celdas visibles, celdas con
blancos,...

Puedes acceder a cada uno de ellos através de un bucle si lo que interesa es
recuperar los datos individualmente o bien seleccionar todo el rango y, por
ejemplo copiarlo a otro lado.

Para lo primero:
Sub test()
Dim celda As Range
For Each celda In Range("A1:A14").SpecialCells(xlCellTypeVisible)
' Lo que quieras hacer con los valores recuperados en la variable celda
Next celda
End Sub

Para lo segundo

Range("A1:A14").SpecialCells(xlCellTypeVisible).Copy
Destination:=Range("D25")

En los dos ejemplos el rango filtrado es A1:A14

Un saludo,
Juan

"JAC" escribió
Hola Grupo. Espero me puedan ayudar.

Tengo un macro que activa el filtro automatico a un rango "X" y con un
criterio "Y". Mi pregunta es: Como hago para mi macro acceda a cada
una de las filas visibles por el filtro?

Gracias de antemano por su ayuda. Esto me esta volviendo loco. Saludos

Atte: Alejandro Carrillo

Preguntas similares