solver ranges
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. |
solver ranges
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 |
solver ranges
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 -- HTH :) Dana DeLouis Windows XP & Office 2003 "blenno" wrote in message ... 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. |
All times are GMT +1. The time now is 09:29 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com