Thread: Recorded Macro
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
sonu[_2_] sonu[_2_] is offline
external usenet poster
  
Posts: 31
Default 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&nbsp;</DIV
<DIV<FONT face=Arial size=2When I'm recording, I often gets things like the
following below.&nbsp; Is it only the last line that matters?&nbsp; If not, what
was the equivalent shorter way to write this?&nbsp; 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&nbsp;</DIV
<DIV<FONT face=Arial size=2Thanks!</FONT</DIV
<DIV<FONT face=Arial size=2Dean</FONT</DIV
<DIV<FONT face=Arial size=2</FONT&nbsp;</DIV
<DIV<FONT face=Arial size=2ActiveWindow.ScrollColumn =
147<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 143<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 142<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn
= 136<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
131<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 126<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 117<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn
= 112<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
103<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 93<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 84<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
75<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 70<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 61<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
56<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 50<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 45<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
43<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 38<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 35<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
33<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 28<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 21<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
17<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 12<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 8<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
3<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 5<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 8<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
14<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 17<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 22<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
26<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 29<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 36<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
40<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 43<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 49<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
52<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 57<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 59<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
63<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 66<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 68<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
71<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 73<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 77<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
78<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 80<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 82<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
80<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 78<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 77<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
75<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 73<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 71<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
70<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 68<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 66<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
64<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 63<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 61<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
59<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 57<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 56<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
54<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 50<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 49<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
47<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 45<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 43<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
40<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 38<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 35<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
29<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 26<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 22<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
21<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 19<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 17<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
15<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 14<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 12<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn =
10<BR&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollColumn = 7<BR&nbsp;&nbsp;&nbsp;
ActiveWindow.ScrollColumn = 3</FONT</DIV</BODY</HTML

------=_NextPart_000_000D_01C6E0B2.78F3C540--

Reply With QuoteReply With Quote