Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Consolidating Data | Excel Worksheet Functions | |||
consolidating workbooks | Excel Worksheet Functions | |||
Consolidating??? | Excel Discussion (Misc queries) | |||
Help with Mr. Dave Peterson's Code for Consolidating Many Sheets to One | Excel Programming | |||
Consolidating module code | Excel Programming |