I thought my Solver would give me the end result by just running it once but I noticed that I need to run this code (without the for loop in it) at least 5 times to get the best results.
Is there a reason why I have to run this several times? My workaround was the for loop equating to clicking the command button 10 times
For i = 1 To 10
SolverOk SetCell:="$B$7", MaxMinVal:=2, ValueOf:="0", ByChange:="$B$16:$I$16"
SolverOptions MaxTime:=100, Iterations:=1000, Precision:=0.000001, AssumeLinear _
:=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
IntTolerance:=5, Scaling:=False, Convergence:=0.001, AssumeNonNeg:=False
SolverOk SetCell:="$B$7", MaxMinVal:=2, ValueOf:="0", ByChange:="$B$16:$I$16"
'SolverSolve
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
If i = 10 Then Exit Sub
Next
Is there a reason why I have to run this several times? My workaround was the for loop equating to clicking the command button 10 times
For i = 1 To 10
SolverOk SetCell:="$B$7", MaxMinVal:=2, ValueOf:="0", ByChange:="$B$16:$I$16"
SolverOptions MaxTime:=100, Iterations:=1000, Precision:=0.000001, AssumeLinear _
:=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
IntTolerance:=5, Scaling:=False, Convergence:=0.001, AssumeNonNeg:=False
SolverOk SetCell:="$B$7", MaxMinVal:=2, ValueOf:="0", ByChange:="$B$16:$I$16"
'SolverSolve
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
If i = 10 Then Exit Sub
Next