Consolidating Code
 

How can I consolidate the following code so that it improves execution time?
I recorded "scrolling" in my macro, and I'd like to consolidate every
discreet line/column scroll command.

ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1

....so that it resembles something like this:
"ActiveWindow.ScrollColumn = 4:1"
"ActiveWindow.ScrollRow = 5:1"

Thanks you.

Consolidating Code
 

only the last command in each set counts

scrollcolumn automatically puts what ever column number you put as the
leftmost column, it is not a series of scrolls added together
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1

accomplishes the same exact thing as

activewindow.scrollcolumn = 1



"Excel User" wrote:

How can I consolidate the following code so that it improves execution time?
I recorded "scrolling" in my macro, and I'd like to consolidate every
discreet line/column scroll command.

ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1

...so that it resembles something like this:
"ActiveWindow.ScrollColumn = 4:1"
"ActiveWindow.ScrollRow = 5:1"

Thanks you.

Consolidating Code
 

Seeing as how all that code does it put you back at your original view,
why do you need the code at all?

Consolidating Code
 

Thanks - and good question: The page is a switchboard, and I want to keep it
"clean" and have the page reset with a selected cell out of view every time
it's unhidden.

"Chip" wrote:

Seeing as how all that code does it put you back at your original view,
why do you need the code at all?

Consolidating Code
 

Thanks--I greatly appreciate your help.
Regards.
EU

"ben" wrote:

only the last command in each set counts

scrollcolumn automatically puts what ever column number you put as the
leftmost column, it is not a series of scrolls added together
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1

accomplishes the same exact thing as

activewindow.scrollcolumn = 1



"Excel User" wrote:

How can I consolidate the following code so that it improves execution time?
I recorded "scrolling" in my macro, and I'd like to consolidate every
discreet line/column scroll command.

ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1

...so that it resembles something like this:
"ActiveWindow.ScrollColumn = 4:1"
"ActiveWindow.ScrollRow = 5:1"

Thanks you.

Consolidating Code
 

I am not sure I understand your comment, so do you want the view to
reset on the selected cell? If so, use this:

Range("J1").Select
ActiveWindow.ScrollColumn = ActiveCell.Column
ActiveWindow.ScrollRow = ActiveCell.Row
With J1 being the Cell you want selected/viewed