Solversolve doesn't work

Hi,

My name is Bo and I am using solver to solve my minimization problem in a loop in vba. I have set everything up and press F8 to go step by step. When I got the solversolve, it doesn't update the cell. And everytime after I ran the solversolve process, the formula calculation will be set to manual automatically and I need to change it back to automatic calculation everytime I went through solversolve. There are no errors popping up. It just doesn't have any effect on the spreadsheet. When I used the same setting and use the solver add-in by hand, it could update the cell. It just doesn't work in VBA. It will be appreciated if anyone could solve the problem. My code is :
Sheets("Temp").Select
Solverreset

SolverOptions MaxTime:=0, Iterations:=0, Precision:=0.000001, Convergence:= _
0.00001, StepThru:=False, Scaling:=True, AssumeNonNeg:=True, Derivatives:=2
SolverOptions PopulationSize:=0, RandomSeed:=0, MutationRate:=0.075, Multistart:= _
False, RequireBounds:=False, MaxSubproblems:=0, MaxIntegerSols:=0, IntTolerance _
:=1, SolveWithout:=True, MaxTimeNoImp:=30
SolverOk SetCell:="$AM$2", MaxMinVal:=2, ValueOf:=0, ByChange:="$R$17,$R$21", _
Engine:=1, EngineDesc:="GRG nonlinear"
SolverAdd CellRef:="$R$17", Relation:=1, FormulaText:="1"
SolverAdd CellRef:="$R$21", Relation:=1, FormulaText:="0.5"
SolverAdd CellRef:="$R$17", Relation:=3, FormulaText:="0.51"
SolverAdd CellRef:="$R$21", Relation:=3, FormulaText:="0"
solversolve userfinish:=True
Application.ScreenUpdating = True

Thank you!

BTW, even though I could solve it by hand, I need to do it for hundreds of loops and I cannot finish this without running a code. Thanks.

Is it possible to upload the file?

Alf

Sure, the attached file is my excel file. The work is in the sheet's name of "Temp" and the code is in Module one.I have got rid of other sheets and some code not involved in the solversolve so that it could be small enough to upload. Please let me know if you could find something wrong in it. Thanks!

Thank you Alf. I have used the code you used and it could run and give me the same error. Then I open solver add-in in excel and run it by hand, it could find the optimum answer and no error popping up. There is a picture of my solver setting. It will be great if you could help find the consistency between the program and the code. SolverSetting.jpg

Glad you solved it and thanks for feedback!

When setting up a solver model for the first time I would advice against using the "SolverSolve Userfinish:=True" command as Solver will then ignore any warnings about problems with the model but just present a "solution / result" right or wrong.

Alf

Got it. Thanks!