solver macro

[nikkki]

Hello,
I have a problem with the solver macro. When I run the macro I have an error: "verify that all the cells and constraints are valid". When I solve the problem manually with the same constraints it works perfect, but when I run the macro I have problem. So I guess that there is no problem with the constraints. I don't know what to do. Please help!

Niki
Here is the code:

Private Sub CommandButton1_Click()
solverReset
SolverOptions Precision:=0.001
SolverOptions AssumeLinear:=False
SolverOptions Estimates:=1
 SolverOptions IntTolerance:=0.00001
SolverOptions Convergence:=0.00000000001
    SolverOk SetCell:="$g$298", MaxMinVal:=3, ValueOf:=Range("g302"), ByChange:="$c$26:$c$35"
Dim i As Integer, s As String, m As Integer

m = 393

For i = 302 To m Step 1
s = VBA.Format(i, "0")
SolverAdd CellRef:="$f$ & s", _
    Relation:=1, _
    FormulaText:="$g$ & s"
Next i
    SolverSolve
End Sub

 

[Damon Ostrander]

Hi nikkki,

I'm not sure this is the only problem, but there is a problem with the s variable being enclosed in the string quotes. The SolverAdd call should look like this:

SolverAdd CellRef:="$f$" & s, _ 
    Relation:=1, _ 
    FormulaText:="$g$" & s

Damon

 

[nikkki]

Unfortunately Damon this was not the only problem. I stil have the same problem, the same error. If you have another idea please tell me.
Niki