Filtros

Una vez establecido el filtro, quizás puedas usar algo parecido a esto:

Sub RecorrerCeldasNoFiltradas()
Dim rngFiltrado As Range, rngC As Range
Set rngFiltrado = Worksheets("Hoja1").Range("A2:A" & Worksheets("Hoja1").Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)

For Each rngC In rngFiltrado
'
'Lo que tengas que hacer con las celdas
'
Next rngC

Set rngC = Nothing
Set rngFiltrado = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"Llen" escribió en el mensaje news:0cc701c39d63$6aa3d1f0$

Hola a todos!!!! =)


Tengo una macro que empieza a filtrar elementos
automaticamente ,mi pregunta es como puedo moverme al
siguiente elemento que me arroge el filtro si tengo rangos
distintos?

por ejemplo mi primer elemento esta en A10 el siguiente en
A89, el siguiente A345, etc.

Saludos