Recorrer celdas no filtradas

Hola:

En el objeto AutoFilter (de la hoja actual) tienes una propiedad range,
entonces seria algo parecido a esto:

Set RangoFiltrado ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)

NOTA: Te devuelve tambien la fila de cabecera.

Saludos

"diegoar" escribió en...

Buenas, necesito me ayuden en que genero un autofiltro en una hoja,
pero despues debo recorrer esas celdas (no filtradas, las que quedan
visibles luego del filtro) y no se como acceder a ellas..
He visto por ahi definir un 'set' y despues hacer un For each rng In
RangoFiltrado , para recorrerlas, pero como accedo a esas celdas.
Espero haber sido claro, y espero me puedan ayudar

Saludos.

Luis gracias por tu respuesta, pero como hago para recorrer la lista de
celdas filtradas.
como accedo a ellas??

saludos y disculpa mi ignorancia.

Tal como pones en tu primer mensaje, con un bucle For Each:

Set RangoFiltrado ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)

''' Te recorrera todas las celdas filtradas
For Each rCelda In RangoFiltrado.Cells
MsgBox rCelda.Address & " = " & rCelda.Value
Next rCelda

''' Tambien podrias recorrer las filas.
For Each rRow In RangoFiltrador.Rows
MsgBox rRow.Row & ". Primera Celda = " & rRow.Cells(1).Value
Next rRow

NOTA: todos las variables son AS Range

Saludos

"diegoar" escribió ...

Luis gracias por tu respuesta, pero como hago para recorrer la lista de
celdas filtradas.
como accedo a ellas??

saludos y disculpa mi ignorancia.

gracias luis probare!! saludos y mil gracias