Go to Bottom

Question

Hello,

i need a macro that goes to the bottom of an excel document, based on the location of the lowest cell with entry data. i have one for GoToTop:

Application.OnKey "^+T", "GoToTop"

ActiveWindow.ScrollRow = 1

ActiveWindow.ScrollColumn = 1

but to go to the bottom it would need to do a quick search for the lowest row with entry data

thanks

Answer 1

For a displayed value, try this...

ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlRows, _

      SearchDirection:=xlPrevious, LookIn:=xlValues).Select

On the other hand, if you have formulas and some of those formulas are displaying the empty string and you want to go to the last cell with a formula even if that formula is displaying the empty string, then try this instead...

ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlRows, _

      SearchDirection:=xlPrevious, LookIn:=xlFormulas).Select

Your description makes it sound like you want the first code line.

Answer 2

Hello,

 

i need a macro that goes to the bottom of an excel document, based on the location of the lowest cell with entry data. i have one for GoToTop:

Application.OnKey "^+T", "GoToTop"

ActiveWindow.ScrollRow = 1

ActiveWindow.ScrollColumn = 1

but to go to the bottom it would need to do a quick search for the lowest row with entry data

 

thanks

Doesn't Excel have this built-in?  CTRL+HOME and CTRL+END.

Answer 3

ActiveSheet.UsedRange.End(xlDown).Select