Thread: Recorded Macro
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Dean[_8_] Dean[_8_] is offline
external usenet poster
  
Posts: 407
Default 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&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