Show "On Screen" bottom right corner of ActiveCell range

[keith05281967]

All,

The below code selects the active range of a worksheet. It then scrolls to the single cell that represents the bottom rigtht corner of the range. This is almost, but not quite, what I want.

I want to see "on screen" the bottom right corner of the "selected range" not just a single cell.

I know the code is currently doing exactly what I told it to do, but only because I don't know how to tell it what to do.


Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.Goto ActiveCell.SpecialCells(xlLastCell), Scroll:=True

thanks in advance
Keith

 

[RoryA]

Where do you want the bottom right cell positioned? Middle of the screen? Bottom right? Elsewhere?

 

[JackDanIce]

Try:

Sub JokersToTheLeftOfMe ()
Application.Goto Range("A1").SpecialCells(xlLastCell), scroll:=True
With ActiveWindow
   .SmallScroll toright:=-10
   .SmallScroll down:=-20
End With
End Sub

You can fine tune by changing the values in red only

 

[keith05281967]

Hi JackDanIce,

That works. It still unselects the selected range but I can see what I need to see.

thanks a bundle!
(stuck in the middle with you)
Keith

 

[JackDanIce]

Glad it works. Just add in line in red:

Sub IncestousTurtles()

Application.ScreenUpdating = False

Application.Goto Range("A1").SpecialCells(xlLastCell), scroll:=True
With ActiveWindow
   .SmallScroll toright:=-10
   .SmallScroll down:=-20
End With
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Select
Application.ScreenUpdating = True
End Sub

 

[keith05281967]

Perfect! That is exactly what i wanted to accomplish.

Well Done.
Keith