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.

Try this instead:

ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1


Hope this helps,
theDude

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.

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

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?
>
>

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.

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