VBA script for running Solver in loop

**confusedguy** · 10-31-2011, 02:51 AM

I am running a VBA script for running solver in loop. The code looks as follows:

For i = 0 To 200
        SolverOk SetCell:=Range("$FF308").Offset(i, 0), MaxMinVal:=2, ValueOf:="0", ByChange:=Range("$BA$308:$BF$308").Offset(i, 0)
        SolverSolve
Next i

The problem is that each time the solver finishes solving, it invokes a dialog box which asks me if I would like to keep the solution or restore to original values. This means I have to press enter each time the solver solves. I have to use the solver in a loop for 2000 times, which means I have to press enter 2000 times. Is there any way I can automate this pressing Enter part?
~Thanks in advance.

**foxguy** · 10-31-2011, 02:58 AM

Application.DisplayAlerts = false

Don't forget to turn it back on when done

**confusedguy** · 10-31-2011, 03:07 AM

Hi Foxguy,
I tried adding your code before the loop, in the loop before solver solve and after solver solve, but it did not help.
Am I missing something?

**foxguy** · 10-31-2011, 03:19 AM

I don't know. It's always worked for me, to tell Excel to always use the Default Answer.
I'll have to test it to see what's going on. I'll let you know what I find.

**foxguy** · 10-31-2011, 03:46 AM

For i = 1 to ??
    SolverOK SetCell:="$Q$6", MaxMinVal:=3, ValueOf:="49", ByChange:=s

    solversolve userFinish:=True
    SolverFinish keepFinal:=1
Next i

**confusedguy** · 10-31-2011, 03:54 AM

Thanks a lot! This code works fine. I did try using SolverFinish keepFinal:=1 earlier, but I had not written userFinish:=True. Now it is working perfectly!