Solver in macros

[Traima]

How is it possible to create a macro that uses Solver to calculate a target
cell, by changig the value of an inputbox?


So far I have recorded the solver code like this:

SolverOK SetCell:="$H$25", MaxMinVal:=3, ValueOf:=Nettverk, ByChange:="$C$16"

Nettverk is defined as the value of the inputbox. What am I missing to
complete this?

[Dana DeLouis]

Just for feedback, your code worked ok for me using a simple model.

Your code worked ok for me

Sub Demo()
Dim Nettverk
Nettverk = InputBox("Value")
SolverOK SetCell:="H25", MaxMinVal:=3, ValueOf:=Nettverk,
ByChange:="C16"
SolverSolve True
End Sub

This worked ok also:

Sub Demo2()
SolverOK SetCell:="H25", MaxMinVal:=3, ValueOf:=InputBox("Value"),
ByChange:="C16"
SolverSolve True
End Sub


--
Dana DeLouis
Win XP & Office 2003


"Traima" <[email protected]> wrote in message
news:[email protected]...
> How is it possible to create a macro that uses Solver to calculate a
> target
> cell, by changig the value of an inputbox?
>
>
> So far I have recorded the solver code like this:
>
> SolverOK SetCell:="$H$25", MaxMinVal:=3, ValueOf:=Nettverk,
> ByChange:="$C$16"
>
> Nettverk is defined as the value of the inputbox. What am I missing to
> complete this?