Macro Subroutines

  • Thread starter Thread starter ADE2
  • Start date Start date
A

ADE2

Hi

I want to build a new macro to run a sequence of macros already built,
would like these subroutines to run after a delay of 4 seconds so as t
not overload my computer.

So when i hit the macro button on the toolbar i would like macro one t
run straight away,then macro two four seconds after pressing th
button,then macro three four seconds later(8 seconds after pressing th
toolbar button),etc.

Here are two of the macro subroutines that i want to build into the ne
macro:-

Sub DAILYSOLVER()
'
' DAILYSOLVER Macro
' Macro recorded 25/01/2004 by ADE
'

'
SolverReset
SolverLoad LoadArea:="$F$14:$F$17"
SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001
AssumeLinear _
:=False, StepThru:=False, Estimates:=1, Derivatives:=1
SearchOption:=1, _
IntTolerance:=5, Scaling:=False, Convergence:=0.0001
AssumeNonNeg:=False
SolverOk SetCell:="$F$21", MaxMinVal:=1, ValueOf:="0"
ByChange:="$B$21"
SolverSolve UserFinish:=True
End Sub


Sub WEEKLYSOLVER()
'
' WEEKLYSOLVER Macro
' Macro recorded 25/01/2004 by ADE
'

'
SolverReset
SolverLoad LoadArea:="$F$46:$F$49"
SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001
AssumeLinear _
:=False, StepThru:=False, Estimates:=1, Derivatives:=1
SearchOption:=1, _
IntTolerance:=5, Scaling:=False, Convergence:=0.0001
AssumeNonNeg:=False
SolverOk SetCell:="$F$54", MaxMinVal:=1, ValueOf:="0"
ByChange:="$B$54"
SolverSolve UserFinish:=True
End Sub

Thanks for any help you can give

Ad
 
Take a look at Wait in VBA Help.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top