VBA Code ... Run-skip-run ... Code
 

Excel2003 ... I have Macros (note: I record only, then cut/paste) where I
have a MsgBox (YES/NO) where ... YES = continue running Macro ... NO = Exit
Sub ... These work fine ...

However, in addition to above ... I would like simplified Code that will
allow for ... Run/Skip/Run ... in addition to Run/Exit (above).

ie: I have 1000 lines of Code & I want a YES/NO option to run lines 400-600
or skip these lines ... Run Macro =

Run lines 1-399 ...
YES/NO Msg Box ...
YES = Continue running lines 400-1000
NO = Skip lines 400-600 ... resume running @ line 601-1000

Note: I need capability to edit the YES/NO & what is Run/Skipped so I can
use these edited lines of Code in other Macros where I wish to ...
Run/Skip/Run ...

Gord Dibben has provided a lot of guidance (separate post & my sincere
Thanks) ... However, based on his latest response I am now posting this
question to the Programmers ... Thanks ... Kha

VBA Code ... Run-skip-run ... Code
 

The structure would look something like this:

Run lines 1-399
If YES/NO Msg Box = YES Then
lines 400-1000
End If
Run lines 601-1000

If you have a 1000 line macro you may want to invest some time learning more
about VBA than just recording. The recorded code can get the job done, but
almost never in the most efficient or flexible way.

"Ken" wrote in message
...
Excel2003 ... I have Macros (note: I record only, then cut/paste) where I
have a MsgBox (YES/NO) where ... YES = continue running Macro ... NO =
Exit
Sub ... These work fine ...

However, in addition to above ... I would like simplified Code that will
allow for ... Run/Skip/Run ... in addition to Run/Exit (above).

ie: I have 1000 lines of Code & I want a YES/NO option to run lines
400-600
or skip these lines ... Run Macro =

Run lines 1-399 ...
YES/NO Msg Box ...
YES = Continue running lines 400-1000
NO = Skip lines 400-600 ... resume running @ line 601-1000

Note: I need capability to edit the YES/NO & what is Run/Skipped so I can
use these edited lines of Code in other Macros where I wish to ...
Run/Skip/Run ...

Gord Dibben has provided a lot of guidance (separate post & my sincere
Thanks) ... However, based on his latest response I am now posting this
question to the Programmers ... Thanks ... Kha

VBA Code ... Run-skip-run ... Code
 

Rather than testing for a=7 (or vbNo), test for a =vbYes. If a does =
vbYes, the code between the IF and END IF statements will be executed,
otherwise they will be skipped and execution will pick-up after the End If.
Something like this (I replaced the 6/7 with vbYes/vbNo for programming
clarity).

a = MsgBox("Text" + Chr(13) + Chr(13) + "Text" + Chr(13) + Chr(13) + "Text",
vbYesNo, "ATTENTION!!!")

If a = vbYes Then
Execute lines 400-600
End If

Execute Lines 601-1000


"Ken" wrote in message
...
1000 lines is an over dramatization on my part ... My actual Code is less
than 100 lines ... The cut/paste MsgBox & Code instruction I presently
have
in my Recorded Macro for ... Continue/Exit ... is:

a = MsgBox("Text" + Chr(13) + Chr(13) + "Text" + Chr(13) + Chr(13) +
"Text",
vbYesNo, "ATTENTION!!!")
If a = 7 Then Exit Sub

However, rather than Exit the Sub at this point ... I want option to
continue running @ some later point in the Sub ...

What would explicit Code be to achieve this? ... Note, I need capability
to
edit for other Subs where I might want to implement a RUN-SKIP-RUN option
within the Sub.

Thanks ... Kha


"M. Authement" wrote:

The structure would look something like this:

Run lines 1-399
If YES/NO Msg Box = YES Then
lines 400-1000
End If
Run lines 601-1000

If you have a 1000 line macro you may want to invest some time learning
more
about VBA than just recording. The recorded code can get the job done,
but
almost never in the most efficient or flexible way.

"Ken" wrote in message
...
Excel2003 ... I have Macros (note: I record only, then cut/paste)
where I
have a MsgBox (YES/NO) where ... YES = continue running Macro ... NO =
Exit
Sub ... These work fine ...

However, in addition to above ... I would like simplified Code that
will
allow for ... Run/Skip/Run ... in addition to Run/Exit (above).

ie: I have 1000 lines of Code & I want a YES/NO option to run lines
400-600
or skip these lines ... Run Macro =

Run lines 1-399 ...
YES/NO Msg Box ...
YES = Continue running lines 400-1000
NO = Skip lines 400-600 ... resume running @ line 601-1000

Note: I need capability to edit the YES/NO & what is Run/Skipped so I
can
use these edited lines of Code in other Macros where I wish to ...
Run/Skip/Run ...

Gord Dibben has provided a lot of guidance (separate post & my sincere
Thanks) ... However, based on his latest response I am now posting this
question to the Programmers ... Thanks ... Kha