stop VBA in solver when maximum iterations reached

[LOZ]

hi
I would like to add to the VBA code in a way that stops running Solver
after the max iterations has been reached. I would like to do so in a way
that there is no dialogue box for the user.

i.e. I want NO user interaction whatsoever as the solver code is part of a
loop and I want it to move on to the next iteration even if the maximum
iteration was reached.

 

[ozgrid.com]

If lCount=50 Then Exit Sub.

 

[Lozzarghh]

Hi, here is the code. When the iterations (within solver) reach 10000, I want to stop, and keep the results. i.e. a dialog box pops up and asks the user if the want to stop, or continue. I want to automate this step so that the user doesn't have any interaction.


'solve
SolverReset
SolverOk SetCell:="$T$9", MaxMinVal:=2, ValueOf:="0", ByChange:="$T$4:$T$7"

'Settings
SolverOptions MaxTime:=10000, Iterations:=10000, Precision:=0.0000001, _
AssumeLinear:=False, StepThru:=False, Estimates:=1, Derivatives:=1, _
SearchOption:=1, IntTolerance:=0.001, Scaling:=False, Convergence:=0.000000001, _
AssumeNonNeg:=False
SolverOk SetCell:="$T$9", MaxMinVal:=2, ValueOf:="0", ByChange:="$T$4:$T$7"

'Results = Application.Run("Solver.xla!SolverSolve", True)

SolverSolve UserFinish:=True

 

[Lozzarghh]

also, I have tried things as suggested under this link http://www.excelforum.com/excel-programming/379230-solver-2nd-function-of-solversolve.html

and the dialog box when the maximum iterations are reached still always appears.