solver ranges

[blenno]

I would like to use solver for equations in certain locations in a sheet. To
do this I would like to pass the activerow to the solver arguments. I was
able to do something similar in GoalSeek but it doesn't work in Solver.
Here's my code

activerow = ActiveCell.Row

SolverOk SetCell:=Cells(activerow, 14), MaxMinVal:=3, ValueOf:="0",
ByChange:=Cells(activerow, 12)

I'm not sure I understand why this doesn't work but hopefully there's a
simple solution

Any help is appreciated.

 

[merjet]

Try this:
SolverOk SetCell:=Cells(ActiveCell.Row, 14).Address, MaxMinVal:=3,
ValueOf:="0", ByChange:=Cells(ActiveCell.Row, 12).Address

Also, is SOLVER checked at Tools | References?

Hth,
Merjet

 

[Dana DeLouis]

Hi. Double check...
http://support.microsoft.com/kb/213689/en-us

One option...

Sub Demo()
Dim R As Long 'Row

'If you wish...
SolverOptions Precision:=0.000000001
SolverOptions Convergence:=0.000000001

R = ActiveCell.Row
SolverOk Cells(R, 14), 3, 0, Cells(R, 12)
SolverSolve True '<-- Run Solver
End Sub