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

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

StargateFanFromWork - 23 Feb 2007 18:14 GMT

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.

Reply to this Message

Bob Phillips - 23 Feb 2007 18:24 GMT

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

Signature

---
HTH

Bob

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

> Is there something that works on visible, filtered cells like
> "ActiveCell.Offset(1, 0).Select" works on visible, unfiltered ones?
[quoted text clipped - 7 lines]
>
> Thanks.

Reply to this Message

Dave Peterson - 23 Feb 2007 21:21 GMT

Another way:

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

> Is there something that works on visible, filtered cells like
> "ActiveCell.Offset(1, 0).Select" works on visible, unfiltered ones?
[quoted text clipped - 6 lines]
>
> Thanks.

Signature

Dave Peterson

Reply to this Message

JB - 23 Feb 2007 21:34 GMT

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

JB

> Is there something that works on visible, filtered cells like
> "ActiveCell.Offset(1, 0).Select" works on visible, unfiltered ones?
[quoted text clipped - 6 lines]
>
> Thanks.

Reply to this Message