Celdas Visibles

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

Excelente, no tenía este problema, pero creo que puedo hacer uso de tu
comentario para implementar algo nuevo.

Saludos.

"Juan M" escribió en el mensaje de noticias
news:

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

Mil gracias por tu ayuda Juan.

Saludos