"ActiveCell.Offset(1, 0).Select" for filtered cells?

[StargateFanFromWork]

Is there something that works on visible, filtered cells like
"ActiveCell.Offset(1, 0).Select" works on visible, unfiltered ones?

What I mean is the have cursor movement happening to what is visible yet
that works when the cells are not filtered?

Here's hoping. I thought everything was working right and tight till I saw
that these types of things aren't working on my filtered sheet? <g>

Thanks.

 

[Bob Phillips]

Range("A1:A10").Specialcells(xlCellTypeVisible)

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Dave Peterson]

Another way:

do
activecell.offset(1,0).select
if activecell.entirerow.hidden = true then
'keep looking
else
exit do
end if
loop

 

[JB]

Sub parcoursItemsVisibles()
For Each c In Range("A2",
[A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
MsgBox c.Value & " " & c.Address
Next c
End Sub

JB