Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Recorded Macro
This is a dumb question I know.
When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line! Thanks! Dean ActiveWindow.ScrollColumn = 147 ActiveWindow.ScrollColumn = 143 ActiveWindow.ScrollColumn = 142 ActiveWindow.ScrollColumn = 136 ActiveWindow.ScrollColumn = 131 ActiveWindow.ScrollColumn = 126 ActiveWindow.ScrollColumn = 117 ActiveWindow.ScrollColumn = 112 ActiveWindow.ScrollColumn = 103 ActiveWindow.ScrollColumn = 93 ActiveWindow.ScrollColumn = 84 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 33 ActiveWindow.ScrollColumn = 28 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 36 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 52 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 82 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 64 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 54 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 47 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 3 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Recorded Macro
what are you trying to do. the code that you have only scrolls columns.
Is there a reason why you want to scroll thru these columns like this. Dean wrote: This is a dumb question I know. When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line! Thanks! Dean ActiveWindow.ScrollColumn = 147 ActiveWindow.ScrollColumn = 143 ActiveWindow.ScrollColumn = 142 ActiveWindow.ScrollColumn = 136 ActiveWindow.ScrollColumn = 131 ActiveWindow.ScrollColumn = 126 ActiveWindow.ScrollColumn = 117 ActiveWindow.ScrollColumn = 112 ActiveWindow.ScrollColumn = 103 ActiveWindow.ScrollColumn = 93 ActiveWindow.ScrollColumn = 84 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 33 ActiveWindow.ScrollColumn = 28 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 36 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 52 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 82 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 64 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 54 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 47 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 3 ------=_NextPart_000_000D_01C6E0B2.78F3C540 Content-Type: text/html; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Google-AttachSize: 5993 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" <HTML<HEAD <META http-equiv=Content-Type content="text/html; charset=iso-8859-1" <META content="MSHTML 6.00.2900.2963" name=GENERATOR <STYLE</STYLE </HEAD <BODY bgColor=#ffffff <DIV<FONT face=Arial size=2This is a dumb question I know.</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line!</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2Thanks!</FONT</DIV <DIV<FONT face=Arial size=2Dean</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2ActiveWindow.ScrollColumn = 147<BR ActiveWindow.ScrollColumn = 143<BR ActiveWindow.ScrollColumn = 142<BR ActiveWindow.ScrollColumn = 136<BR ActiveWindow.ScrollColumn = 131<BR ActiveWindow.ScrollColumn = 126<BR ActiveWindow.ScrollColumn = 117<BR ActiveWindow.ScrollColumn = 112<BR ActiveWindow.ScrollColumn = 103<BR ActiveWindow.ScrollColumn = 93<BR ActiveWindow.ScrollColumn = 84<BR ActiveWindow.ScrollColumn = 75<BR ActiveWindow.ScrollColumn = 70<BR ActiveWindow.ScrollColumn = 61<BR ActiveWindow.ScrollColumn = 56<BR ActiveWindow.ScrollColumn = 50<BR ActiveWindow.ScrollColumn = 45<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 38<BR ActiveWindow.ScrollColumn = 35<BR ActiveWindow.ScrollColumn = 33<BR ActiveWindow.ScrollColumn = 28<BR ActiveWindow.ScrollColumn = 21<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 12<BR ActiveWindow.ScrollColumn = 8<BR ActiveWindow.ScrollColumn = 3<BR ActiveWindow.ScrollColumn = 5<BR ActiveWindow.ScrollColumn = 8<BR ActiveWindow.ScrollColumn = 14<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 22<BR ActiveWindow.ScrollColumn = 26<BR ActiveWindow.ScrollColumn = 29<BR ActiveWindow.ScrollColumn = 36<BR ActiveWindow.ScrollColumn = 40<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 49<BR ActiveWindow.ScrollColumn = 52<BR ActiveWindow.ScrollColumn = 57<BR ActiveWindow.ScrollColumn = 59<BR ActiveWindow.ScrollColumn = 63<BR ActiveWindow.ScrollColumn = 66<BR ActiveWindow.ScrollColumn = 68<BR ActiveWindow.ScrollColumn = 71<BR ActiveWindow.ScrollColumn = 73<BR ActiveWindow.ScrollColumn = 77<BR ActiveWindow.ScrollColumn = 78<BR ActiveWindow.ScrollColumn = 80<BR ActiveWindow.ScrollColumn = 82<BR ActiveWindow.ScrollColumn = 80<BR ActiveWindow.ScrollColumn = 78<BR ActiveWindow.ScrollColumn = 77<BR ActiveWindow.ScrollColumn = 75<BR ActiveWindow.ScrollColumn = 73<BR ActiveWindow.ScrollColumn = 71<BR ActiveWindow.ScrollColumn = 70<BR ActiveWindow.ScrollColumn = 68<BR ActiveWindow.ScrollColumn = 66<BR ActiveWindow.ScrollColumn = 64<BR ActiveWindow.ScrollColumn = 63<BR ActiveWindow.ScrollColumn = 61<BR ActiveWindow.ScrollColumn = 59<BR ActiveWindow.ScrollColumn = 57<BR ActiveWindow.ScrollColumn = 56<BR ActiveWindow.ScrollColumn = 54<BR ActiveWindow.ScrollColumn = 50<BR ActiveWindow.ScrollColumn = 49<BR ActiveWindow.ScrollColumn = 47<BR ActiveWindow.ScrollColumn = 45<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 40<BR ActiveWindow.ScrollColumn = 38<BR ActiveWindow.ScrollColumn = 35<BR ActiveWindow.ScrollColumn = 29<BR ActiveWindow.ScrollColumn = 26<BR ActiveWindow.ScrollColumn = 22<BR ActiveWindow.ScrollColumn = 21<BR ActiveWindow.ScrollColumn = 19<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 15<BR ActiveWindow.ScrollColumn = 14<BR ActiveWindow.ScrollColumn = 12<BR ActiveWindow.ScrollColumn = 10<BR ActiveWindow.ScrollColumn = 7<BR ActiveWindow.ScrollColumn = 3</FONT</DIV</BODY</HTML ------=_NextPart_000_000D_01C6E0B2.78F3C540-- |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Recorded Macro
what are you trying to do. the code that you have only scrolls columns.
Is there a reason why you want to scroll thru these columns like this. Dean wrote: This is a dumb question I know. When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line! Thanks! Dean ActiveWindow.ScrollColumn = 147 ActiveWindow.ScrollColumn = 143 ActiveWindow.ScrollColumn = 142 ActiveWindow.ScrollColumn = 136 ActiveWindow.ScrollColumn = 131 ActiveWindow.ScrollColumn = 126 ActiveWindow.ScrollColumn = 117 ActiveWindow.ScrollColumn = 112 ActiveWindow.ScrollColumn = 103 ActiveWindow.ScrollColumn = 93 ActiveWindow.ScrollColumn = 84 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 33 ActiveWindow.ScrollColumn = 28 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 36 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 52 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 82 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 64 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 54 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 47 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 3 ------=_NextPart_000_000D_01C6E0B2.78F3C540 Content-Type: text/html; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Google-AttachSize: 5993 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" <HTML<HEAD <META http-equiv=Content-Type content="text/html; charset=iso-8859-1" <META content="MSHTML 6.00.2900.2963" name=GENERATOR <STYLE</STYLE </HEAD <BODY bgColor=#ffffff <DIV<FONT face=Arial size=2This is a dumb question I know.</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line!</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2Thanks!</FONT</DIV <DIV<FONT face=Arial size=2Dean</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2ActiveWindow.ScrollColumn = 147<BR ActiveWindow.ScrollColumn = 143<BR ActiveWindow.ScrollColumn = 142<BR ActiveWindow.ScrollColumn = 136<BR ActiveWindow.ScrollColumn = 131<BR ActiveWindow.ScrollColumn = 126<BR ActiveWindow.ScrollColumn = 117<BR ActiveWindow.ScrollColumn = 112<BR ActiveWindow.ScrollColumn = 103<BR ActiveWindow.ScrollColumn = 93<BR ActiveWindow.ScrollColumn = 84<BR ActiveWindow.ScrollColumn = 75<BR ActiveWindow.ScrollColumn = 70<BR ActiveWindow.ScrollColumn = 61<BR ActiveWindow.ScrollColumn = 56<BR ActiveWindow.ScrollColumn = 50<BR ActiveWindow.ScrollColumn = 45<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 38<BR ActiveWindow.ScrollColumn = 35<BR ActiveWindow.ScrollColumn = 33<BR ActiveWindow.ScrollColumn = 28<BR ActiveWindow.ScrollColumn = 21<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 12<BR ActiveWindow.ScrollColumn = 8<BR ActiveWindow.ScrollColumn = 3<BR ActiveWindow.ScrollColumn = 5<BR ActiveWindow.ScrollColumn = 8<BR ActiveWindow.ScrollColumn = 14<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 22<BR ActiveWindow.ScrollColumn = 26<BR ActiveWindow.ScrollColumn = 29<BR ActiveWindow.ScrollColumn = 36<BR ActiveWindow.ScrollColumn = 40<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 49<BR ActiveWindow.ScrollColumn = 52<BR ActiveWindow.ScrollColumn = 57<BR ActiveWindow.ScrollColumn = 59<BR ActiveWindow.ScrollColumn = 63<BR ActiveWindow.ScrollColumn = 66<BR ActiveWindow.ScrollColumn = 68<BR ActiveWindow.ScrollColumn = 71<BR ActiveWindow.ScrollColumn = 73<BR ActiveWindow.ScrollColumn = 77<BR ActiveWindow.ScrollColumn = 78<BR ActiveWindow.ScrollColumn = 80<BR ActiveWindow.ScrollColumn = 82<BR ActiveWindow.ScrollColumn = 80<BR ActiveWindow.ScrollColumn = 78<BR ActiveWindow.ScrollColumn = 77<BR ActiveWindow.ScrollColumn = 75<BR ActiveWindow.ScrollColumn = 73<BR ActiveWindow.ScrollColumn = 71<BR ActiveWindow.ScrollColumn = 70<BR ActiveWindow.ScrollColumn = 68<BR ActiveWindow.ScrollColumn = 66<BR ActiveWindow.ScrollColumn = 64<BR ActiveWindow.ScrollColumn = 63<BR ActiveWindow.ScrollColumn = 61<BR ActiveWindow.ScrollColumn = 59<BR ActiveWindow.ScrollColumn = 57<BR ActiveWindow.ScrollColumn = 56<BR ActiveWindow.ScrollColumn = 54<BR ActiveWindow.ScrollColumn = 50<BR ActiveWindow.ScrollColumn = 49<BR ActiveWindow.ScrollColumn = 47<BR ActiveWindow.ScrollColumn = 45<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 40<BR ActiveWindow.ScrollColumn = 38<BR ActiveWindow.ScrollColumn = 35<BR ActiveWindow.ScrollColumn = 29<BR ActiveWindow.ScrollColumn = 26<BR ActiveWindow.ScrollColumn = 22<BR ActiveWindow.ScrollColumn = 21<BR ActiveWindow.ScrollColumn = 19<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 15<BR ActiveWindow.ScrollColumn = 14<BR ActiveWindow.ScrollColumn = 12<BR ActiveWindow.ScrollColumn = 10<BR ActiveWindow.ScrollColumn = 7<BR ActiveWindow.ScrollColumn = 3</FONT</DIV</BODY</HTML ------=_NextPart_000_000D_01C6E0B2.78F3C540-- |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Recorded Macro
I don't know what I was doing - perhaps looking for the right column to stop
at. It was some time ago. Is it clear that all this accomplishes nothing and that the last line is all that I need, assuming that it represents my ending location? Thanks! Dean "sonu" wrote in message oups.com... what are you trying to do. the code that you have only scrolls columns. Is there a reason why you want to scroll thru these columns like this. Dean wrote: This is a dumb question I know. When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line! Thanks! Dean ActiveWindow.ScrollColumn = 147 ActiveWindow.ScrollColumn = 143 ActiveWindow.ScrollColumn = 142 ActiveWindow.ScrollColumn = 136 ActiveWindow.ScrollColumn = 131 ActiveWindow.ScrollColumn = 126 ActiveWindow.ScrollColumn = 117 ActiveWindow.ScrollColumn = 112 ActiveWindow.ScrollColumn = 103 ActiveWindow.ScrollColumn = 93 ActiveWindow.ScrollColumn = 84 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 33 ActiveWindow.ScrollColumn = 28 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 36 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 52 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 82 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 64 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 54 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 47 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 3 ------=_NextPart_000_000D_01C6E0B2.78F3C540 Content-Type: text/html; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Google-AttachSize: 5993 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" <HTML<HEAD <META http-equiv=Content-Type content="text/html; charset=iso-8859-1" <META content="MSHTML 6.00.2900.2963" name=GENERATOR <STYLE</STYLE </HEAD <BODY bgColor=#ffffff <DIV<FONT face=Arial size=2This is a dumb question I know.</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line!</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2Thanks!</FONT</DIV <DIV<FONT face=Arial size=2Dean</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2ActiveWindow.ScrollColumn = 147<BR ActiveWindow.ScrollColumn = 143<BR ActiveWindow.ScrollColumn = 142<BR ActiveWindow.ScrollColumn = 136<BR ActiveWindow.ScrollColumn = 131<BR ActiveWindow.ScrollColumn = 126<BR ActiveWindow.ScrollColumn = 117<BR ActiveWindow.ScrollColumn = 112<BR ActiveWindow.ScrollColumn = 103<BR ActiveWindow.ScrollColumn = 93<BR ActiveWindow.ScrollColumn = 84<BR ActiveWindow.ScrollColumn = 75<BR ActiveWindow.ScrollColumn = 70<BR ActiveWindow.ScrollColumn = 61<BR ActiveWindow.ScrollColumn = 56<BR ActiveWindow.ScrollColumn = 50<BR ActiveWindow.ScrollColumn = 45<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 38<BR ActiveWindow.ScrollColumn = 35<BR ActiveWindow.ScrollColumn = 33<BR ActiveWindow.ScrollColumn = 28<BR ActiveWindow.ScrollColumn = 21<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 12<BR ActiveWindow.ScrollColumn = 8<BR ActiveWindow.ScrollColumn = 3<BR ActiveWindow.ScrollColumn = 5<BR ActiveWindow.ScrollColumn = 8<BR ActiveWindow.ScrollColumn = 14<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 22<BR ActiveWindow.ScrollColumn = 26<BR ActiveWindow.ScrollColumn = 29<BR ActiveWindow.ScrollColumn = 36<BR ActiveWindow.ScrollColumn = 40<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 49<BR ActiveWindow.ScrollColumn = 52<BR ActiveWindow.ScrollColumn = 57<BR ActiveWindow.ScrollColumn = 59<BR ActiveWindow.ScrollColumn = 63<BR ActiveWindow.ScrollColumn = 66<BR ActiveWindow.ScrollColumn = 68<BR ActiveWindow.ScrollColumn = 71<BR ActiveWindow.ScrollColumn = 73<BR ActiveWindow.ScrollColumn = 77<BR ActiveWindow.ScrollColumn = 78<BR ActiveWindow.ScrollColumn = 80<BR ActiveWindow.ScrollColumn = 82<BR ActiveWindow.ScrollColumn = 80<BR ActiveWindow.ScrollColumn = 78<BR ActiveWindow.ScrollColumn = 77<BR ActiveWindow.ScrollColumn = 75<BR ActiveWindow.ScrollColumn = 73<BR ActiveWindow.ScrollColumn = 71<BR ActiveWindow.ScrollColumn = 70<BR ActiveWindow.ScrollColumn = 68<BR ActiveWindow.ScrollColumn = 66<BR ActiveWindow.ScrollColumn = 64<BR ActiveWindow.ScrollColumn = 63<BR ActiveWindow.ScrollColumn = 61<BR ActiveWindow.ScrollColumn = 59<BR ActiveWindow.ScrollColumn = 57<BR ActiveWindow.ScrollColumn = 56<BR ActiveWindow.ScrollColumn = 54<BR ActiveWindow.ScrollColumn = 50<BR ActiveWindow.ScrollColumn = 49<BR ActiveWindow.ScrollColumn = 47<BR ActiveWindow.ScrollColumn = 45<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 40<BR ActiveWindow.ScrollColumn = 38<BR ActiveWindow.ScrollColumn = 35<BR ActiveWindow.ScrollColumn = 29<BR ActiveWindow.ScrollColumn = 26<BR ActiveWindow.ScrollColumn = 22<BR ActiveWindow.ScrollColumn = 21<BR ActiveWindow.ScrollColumn = 19<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 15<BR ActiveWindow.ScrollColumn = 14<BR ActiveWindow.ScrollColumn = 12<BR ActiveWindow.ScrollColumn = 10<BR ActiveWindow.ScrollColumn = 7<BR ActiveWindow.ScrollColumn = 3</FONT</DIV</BODY</HTML ------=_NextPart_000_000D_01C6E0B2.78F3C540-- |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Recorded Macro
That's the problem with recording a macro. Just delete these redundant
lines of code after recording. I believe your macro will still work. regards, julian Dean wrote: I don't know what I was doing - perhaps looking for the right column to stop at. It was some time ago. Is it clear that all this accomplishes nothing and that the last line is all that I need, assuming that it represents my ending location? Thanks! Dean "sonu" wrote in message oups.com... what are you trying to do. the code that you have only scrolls columns. Is there a reason why you want to scroll thru these columns like this. Dean wrote: This is a dumb question I know. When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line! Thanks! Dean ActiveWindow.ScrollColumn = 147 ActiveWindow.ScrollColumn = 143 ActiveWindow.ScrollColumn = 142 ActiveWindow.ScrollColumn = 136 ActiveWindow.ScrollColumn = 131 ActiveWindow.ScrollColumn = 126 ActiveWindow.ScrollColumn = 117 ActiveWindow.ScrollColumn = 112 ActiveWindow.ScrollColumn = 103 ActiveWindow.ScrollColumn = 93 ActiveWindow.ScrollColumn = 84 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 33 ActiveWindow.ScrollColumn = 28 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 36 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 52 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 82 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 64 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 54 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 47 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 3 ------=_NextPart_000_000D_01C6E0B2.78F3C540 Content-Type: text/html; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Google-AttachSize: 5993 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" <HTML<HEAD <META http-equiv=Content-Type content="text/html; charset=iso-8859-1" <META content="MSHTML 6.00.2900.2963" name=GENERATOR <STYLE</STYLE </HEAD <BODY bgColor=#ffffff <DIV<FONT face=Arial size=2This is a dumb question I know.</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line!</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2Thanks!</FONT</DIV <DIV<FONT face=Arial size=2Dean</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2ActiveWindow.ScrollColumn = 147<BR ActiveWindow.ScrollColumn = 143<BR ActiveWindow.ScrollColumn = 142<BR ActiveWindow.ScrollColumn = 136<BR ActiveWindow.ScrollColumn = 131<BR ActiveWindow.ScrollColumn = 126<BR ActiveWindow.ScrollColumn = 117<BR ActiveWindow.ScrollColumn = 112<BR ActiveWindow.ScrollColumn = 103<BR ActiveWindow.ScrollColumn = 93<BR ActiveWindow.ScrollColumn = 84<BR ActiveWindow.ScrollColumn = 75<BR ActiveWindow.ScrollColumn = 70<BR ActiveWindow.ScrollColumn = 61<BR ActiveWindow.ScrollColumn = 56<BR ActiveWindow.ScrollColumn = 50<BR ActiveWindow.ScrollColumn = 45<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 38<BR ActiveWindow.ScrollColumn = 35<BR ActiveWindow.ScrollColumn = 33<BR ActiveWindow.ScrollColumn = 28<BR ActiveWindow.ScrollColumn = 21<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 12<BR ActiveWindow.ScrollColumn = 8<BR ActiveWindow.ScrollColumn = 3<BR ActiveWindow.ScrollColumn = 5<BR ActiveWindow.ScrollColumn = 8<BR ActiveWindow.ScrollColumn = 14<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 22<BR ActiveWindow.ScrollColumn = 26<BR ActiveWindow.ScrollColumn = 29<BR ActiveWindow.ScrollColumn = 36<BR ActiveWindow.ScrollColumn = 40<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 49<BR ActiveWindow.ScrollColumn = 52<BR ActiveWindow.ScrollColumn = 57<BR ActiveWindow.ScrollColumn = 59<BR ActiveWindow.ScrollColumn = 63<BR ActiveWindow.ScrollColumn = 66<BR ActiveWindow.ScrollColumn = 68<BR ActiveWindow.ScrollColumn = 71<BR ActiveWindow.ScrollColumn = 73<BR ActiveWindow.ScrollColumn = 77<BR ActiveWindow.ScrollColumn = 78<BR ActiveWindow.ScrollColumn = 80<BR ActiveWindow.ScrollColumn = 82<BR ActiveWindow.ScrollColumn = 80<BR ActiveWindow.ScrollColumn = 78<BR ActiveWindow.ScrollColumn = 77<BR ActiveWindow.ScrollColumn = 75<BR ActiveWindow.ScrollColumn = 73<BR ActiveWindow.ScrollColumn = 71<BR ActiveWindow.ScrollColumn = 70<BR ActiveWindow.ScrollColumn = 68<BR ActiveWindow.ScrollColumn = 66<BR ActiveWindow.ScrollColumn = 64<BR ActiveWindow.ScrollColumn = 63<BR ActiveWindow.ScrollColumn = 61<BR ActiveWindow.ScrollColumn = 59<BR ActiveWindow.ScrollColumn = 57<BR ActiveWindow.ScrollColumn = 56<BR ActiveWindow.ScrollColumn = 54<BR ActiveWindow.ScrollColumn = 50<BR ActiveWindow.ScrollColumn = 49<BR ActiveWindow.ScrollColumn = 47<BR ActiveWindow.ScrollColumn = 45<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 40<BR ActiveWindow.ScrollColumn = 38<BR ActiveWindow.ScrollColumn = 35<BR ActiveWindow.ScrollColumn = 29<BR ActiveWindow.ScrollColumn = 26<BR ActiveWindow.ScrollColumn = 22<BR ActiveWindow.ScrollColumn = 21<BR ActiveWindow.ScrollColumn = 19<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 15<BR ActiveWindow.ScrollColumn = 14<BR ActiveWindow.ScrollColumn = 12<BR ActiveWindow.ScrollColumn = 10<BR ActiveWindow.ScrollColumn = 7<BR ActiveWindow.ScrollColumn = 3</FONT</DIV</BODY</HTML ------=_NextPart_000_000D_01C6E0B2.78F3C540-- |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Recorded Macro
I ASSUME YOU MEAN THAT I SHOULD KEEP THE LAST ONE, i.e., that the last one
accomplishes the same thing as all of them - is that right? Thx wrote in message ups.com... That's the problem with recording a macro. Just delete these redundant lines of code after recording. I believe your macro will still work. regards, julian Dean wrote: I don't know what I was doing - perhaps looking for the right column to stop at. It was some time ago. Is it clear that all this accomplishes nothing and that the last line is all that I need, assuming that it represents my ending location? Thanks! Dean "sonu" wrote in message oups.com... what are you trying to do. the code that you have only scrolls columns. Is there a reason why you want to scroll thru these columns like this. Dean wrote: This is a dumb question I know. When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line! Thanks! Dean ActiveWindow.ScrollColumn = 147 ActiveWindow.ScrollColumn = 143 ActiveWindow.ScrollColumn = 142 ActiveWindow.ScrollColumn = 136 ActiveWindow.ScrollColumn = 131 ActiveWindow.ScrollColumn = 126 ActiveWindow.ScrollColumn = 117 ActiveWindow.ScrollColumn = 112 ActiveWindow.ScrollColumn = 103 ActiveWindow.ScrollColumn = 93 ActiveWindow.ScrollColumn = 84 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 33 ActiveWindow.ScrollColumn = 28 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 36 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 52 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 82 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 78 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 70 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 64 ActiveWindow.ScrollColumn = 63 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 57 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 54 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 47 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 3 ------=_NextPart_000_000D_01C6E0B2.78F3C540 Content-Type: text/html; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Google-AttachSize: 5993 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" <HTML<HEAD <META http-equiv=Content-Type content="text/html; charset=iso-8859-1" <META content="MSHTML 6.00.2900.2963" name=GENERATOR <STYLE</STYLE </HEAD <BODY bgColor=#ffffff <DIV<FONT face=Arial size=2This is a dumb question I know.</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2When I'm recording, I often gets things like the following below. Is it only the last line that matters? If not, what was the equivalent shorter way to write this? I'm embarrassed to let someone see 50 lines of code that could be done with one line!</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2Thanks!</FONT</DIV <DIV<FONT face=Arial size=2Dean</FONT</DIV <DIV<FONT face=Arial size=2</FONT </DIV <DIV<FONT face=Arial size=2ActiveWindow.ScrollColumn = 147<BR ActiveWindow.ScrollColumn = 143<BR ActiveWindow.ScrollColumn = 142<BR ActiveWindow.ScrollColumn = 136<BR ActiveWindow.ScrollColumn = 131<BR ActiveWindow.ScrollColumn = 126<BR ActiveWindow.ScrollColumn = 117<BR ActiveWindow.ScrollColumn = 112<BR ActiveWindow.ScrollColumn = 103<BR ActiveWindow.ScrollColumn = 93<BR ActiveWindow.ScrollColumn = 84<BR ActiveWindow.ScrollColumn = 75<BR ActiveWindow.ScrollColumn = 70<BR ActiveWindow.ScrollColumn = 61<BR ActiveWindow.ScrollColumn = 56<BR ActiveWindow.ScrollColumn = 50<BR ActiveWindow.ScrollColumn = 45<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 38<BR ActiveWindow.ScrollColumn = 35<BR ActiveWindow.ScrollColumn = 33<BR ActiveWindow.ScrollColumn = 28<BR ActiveWindow.ScrollColumn = 21<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 12<BR ActiveWindow.ScrollColumn = 8<BR ActiveWindow.ScrollColumn = 3<BR ActiveWindow.ScrollColumn = 5<BR ActiveWindow.ScrollColumn = 8<BR ActiveWindow.ScrollColumn = 14<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 22<BR ActiveWindow.ScrollColumn = 26<BR ActiveWindow.ScrollColumn = 29<BR ActiveWindow.ScrollColumn = 36<BR ActiveWindow.ScrollColumn = 40<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 49<BR ActiveWindow.ScrollColumn = 52<BR ActiveWindow.ScrollColumn = 57<BR ActiveWindow.ScrollColumn = 59<BR ActiveWindow.ScrollColumn = 63<BR ActiveWindow.ScrollColumn = 66<BR ActiveWindow.ScrollColumn = 68<BR ActiveWindow.ScrollColumn = 71<BR ActiveWindow.ScrollColumn = 73<BR ActiveWindow.ScrollColumn = 77<BR ActiveWindow.ScrollColumn = 78<BR ActiveWindow.ScrollColumn = 80<BR ActiveWindow.ScrollColumn = 82<BR ActiveWindow.ScrollColumn = 80<BR ActiveWindow.ScrollColumn = 78<BR ActiveWindow.ScrollColumn = 77<BR ActiveWindow.ScrollColumn = 75<BR ActiveWindow.ScrollColumn = 73<BR ActiveWindow.ScrollColumn = 71<BR ActiveWindow.ScrollColumn = 70<BR ActiveWindow.ScrollColumn = 68<BR ActiveWindow.ScrollColumn = 66<BR ActiveWindow.ScrollColumn = 64<BR ActiveWindow.ScrollColumn = 63<BR ActiveWindow.ScrollColumn = 61<BR ActiveWindow.ScrollColumn = 59<BR ActiveWindow.ScrollColumn = 57<BR ActiveWindow.ScrollColumn = 56<BR ActiveWindow.ScrollColumn = 54<BR ActiveWindow.ScrollColumn = 50<BR ActiveWindow.ScrollColumn = 49<BR ActiveWindow.ScrollColumn = 47<BR ActiveWindow.ScrollColumn = 45<BR ActiveWindow.ScrollColumn = 43<BR ActiveWindow.ScrollColumn = 40<BR ActiveWindow.ScrollColumn = 38<BR ActiveWindow.ScrollColumn = 35<BR ActiveWindow.ScrollColumn = 29<BR ActiveWindow.ScrollColumn = 26<BR ActiveWindow.ScrollColumn = 22<BR ActiveWindow.ScrollColumn = 21<BR ActiveWindow.ScrollColumn = 19<BR ActiveWindow.ScrollColumn = 17<BR ActiveWindow.ScrollColumn = 15<BR ActiveWindow.ScrollColumn = 14<BR ActiveWindow.ScrollColumn = 12<BR ActiveWindow.ScrollColumn = 10<BR ActiveWindow.ScrollColumn = 7<BR ActiveWindow.ScrollColumn = 3</FONT</DIV</BODY</HTML ------=_NextPart_000_000D_01C6E0B2.78F3C540-- |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Recorded Macro | New Users to Excel | |||
Creating a macro which presses a button containing a recorded macro | Excel Programming | |||
Recorded macro won't run | Excel Programming | |||
Recorded macro won't run | Excel Programming |