How to put the selected cell onscreen, but not upper left

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

davegb - 03 Mar 2008 18:16 GMT

I want to put the currently selected cell onscreen but not at the top
left. I want a cell in Col E selected, but I want the user to see cols
A-E. I can manipulate XL to select A9, then scroll there, then select
E9, but it seems there must be a better, more direct way. Right now I
have:

Application.Goto Reference:=ActiveCell, Scroll:=True

which puts the selected cell (E9) in the upper left of the display.

Thanks for the help.

Reply to this Message

Gary''s Student - 03 Mar 2008 18:51 GMT

Try this:

Sub marine()
Range("E9").Select
Application.Goto Reference:=ActiveCell, Scroll:=True
ActiveWindow.ScrollColumn = 1
End Sub

Signature

Gary''s Student - gsnu2007e

> I want to put the currently selected cell onscreen but not at the top
> left. I want a cell in Col E selected, but I want the user to see cols
[quoted text clipped - 7 lines]
>
> Thanks for the help.

Reply to this Message

davegb - 03 Mar 2008 18:57 GMT

On Mar 3, 11:51 am, Gary''s Student
<GarysStud...@discussions.microsoft.com> wrote:

> Try this:
>
[quoted text clipped - 20 lines]
>
> - Show quoted text -

Bingo! Thanks for the prompt reply.

Reply to this Message

Ron de Bruin - 03 Mar 2008 18:59 GMT

If I understand you correct ?

Sub test()
Application.Goto Reference:=Cells(ActiveCell.Row, 1), Scroll:=True
Cells(ActiveCell.Row, 5).Select
End Sub

Signature

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

>I want to put the currently selected cell onscreen but not at the top
> left. I want a cell in Col E selected, but I want the user to see cols
[quoted text clipped - 7 lines]
>
> Thanks for the help.

Reply to this Message

davegb - 03 Mar 2008 21:09 GMT

> If I understand you correct ?
>
[quoted text clipped - 20 lines]
>
> - Show quoted text -

Thanks, Ron!

Reply to this Message

Rate this thread: