Hi,

Is there any way to get the cursor to go to the first row of a filtered list
when Autofilter is used?

Thanks,

John

Dim rng as Range, rng1 as range
set rng = Activesheet.Autofilter.Range.Columns(1).Cells
set rng = rng.offset(1,0).Resize(rng.rows.count - 1)
on error resume next
set rng1 = rng.SpecialCells(xlVisible)
On error goto 0
if not rng1 is Nothing then
rng1(1).Select
end if

--
Regards,
Tom Ogilvy


"John" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Hi,
>
> Is there any way to get the cursor to go to the first row of a filtered
> list when Autofilter is used?
>
> Thanks,
>
> John
>

Thanks Tom. Where would I put this code to have it run when I use the
AutoFilter drop down list on the worksheet?

John

"Tom Ogilvy" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Dim rng as Range, rng1 as range
> set rng = Activesheet.Autofilter.Range.Columns(1).Cells
> set rng = rng.offset(1,0).Resize(rng.rows.count - 1)
> on error resume next
> set rng1 = rng.SpecialCells(xlVisible)
> On error goto 0
> if not rng1 is Nothing then
> rng1(1).Select
> end if
>
> --
> Regards,
> Tom Ogilvy
>
>
> "John" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> Hi,
>>
>> Is there any way to get the cursor to go to the first row of a filtered
>> list when Autofilter is used?
>>
>> Thanks,
>>
>> John
>>
>
>

I combined your suggestion with this:
http://www.excelforum.com/archive/in.../t-503428.html

And it works fine. Thank you.


"Tom Ogilvy" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Dim rng as Range, rng1 as range
> set rng = Activesheet.Autofilter.Range.Columns(1).Cells
> set rng = rng.offset(1,0).Resize(rng.rows.count - 1)
> on error resume next
> set rng1 = rng.SpecialCells(xlVisible)
> On error goto 0
> if not rng1 is Nothing then
> rng1(1).Select
> end if
>
> --
> Regards,
> Tom Ogilvy
>
>
> "John" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> Hi,
>>
>> Is there any way to get the cursor to go to the first row of a filtered
>> list when Autofilter is used?
>>
>> Thanks,
>>
>> John
>>
>
>