Scroll to active cell.

[omairhe]

Hello,

I want to scroll row to the bottom of the screen where the active cell resides.

ActiveWindow.ScrollRow = Selection.Row

This line will scroll to the active cell but will bring it to the top of the screen, whereas I want it to be at the bottom of the screen.

Will appreciate.

 

[Fluff]

How about

Application.Goto ActiveCell

 

[omairhe]

How about

Application.Goto ActiveCell

Excellent, but this will scroll both the column and the row. although it does fulfil my requirment but I was trying to omit the column scroll.
I really want the column not to scroll..

 

[Fluff]

The column should only scroll if the activecell is off the screen.

 

[omairhe]

The column should only scroll if the activecell is off the screen.

Thank you Fluff for your keen interest to this problem. The Freezepanes are activated outside the active cell on the right side of the screen, so I don't want to lose the active column. I could get around this but I was hoping if it could be done with more simpler way..

 

[Fluff]

Sorry, not sure what your saying, but the active column is the column that contains the active cell and that won't change.

 

[omairhe]

Sorry, not sure what your saying, but the active column is the column that contains the active cell and that won't change.

You can see from the image below that the column Q is in selfsame position even though the cell E9 is selected from the mouse click. The Freezepanes are applied at cell F2. However If I run the code

Application.Goto ActiveCell

This will lose column Q and bring column G instead.

Before running your code:

after running your code:

I hope it is clear what the problem is..

 

[Fluff]

You could use something like this

ActiveWindow.ScrollRow = Selection.Row - 37

But it will depend on screen size, row height, zoom setting etc.

 

[Fluff]

Another option

   Dim Cl As Range
   Set Cl = ActiveCell
   Application.Goto ActiveCell.EntireRow
   Cl.Select

 

[omairhe]

Another option

   Dim Cl As Range
   Set Cl = ActiveCell
   Application.Goto ActiveCell.EntireRow
   Cl.Select

I will try this. However I also did found something from my older post where I extract this line. Could it be manipulate to achieve what is required?

               lastVisibleRow = .Row + .Rows.Count - 1