using a For-Next in a module and a Form
Hello,
I need same ideas because I do not know how to implement the "Start,
Continue, StartAllOver and Exit" buttons in the following Macro:
This is one module
sub checkCells()
dim errorFound as Boolean
for I = 1 to 500
....
....
errorFound = FindErrors()
if errorFound = True then
frmCheckCells.lblErrorMessage.Caption = "Error found for i = "& i
***PAUSE and WAIT for RESPONSE ***
end if
....
....
next I
end sub
And one form ( frmCheckCells ) with the following tools
4 buttons:
btnStartCheckingProcess, btnContinueCheckingProcess,
btnCancelCheckingProcess and btnStartAllOverCheckingProcess
And one Label (that will change for different kinds of error messages):
lblErrorMessage
What commands can I use to run this Macro correctly?
I would like to run it and then pause it when an error is found, prompt for
what kind of error message (in the form), then wait for the user to select
the desire button.
Also I want to implement this macro without using the "MsgBox commands"
prompts.
Thanks
Coco
|