Solver vraagstuk

[Koos Voos]

Hoi,

Een van de parameters in Solver is: Equal to Max, Min, Value of.
Alleen de value of, wil ik zelf ergens in een cel kunnen invoeren, dat ie dus met/naar dat getal gaat rekenen ipv een vast getal. (Ik heb de solver in VBA geprogrammeerd staan)

Weet iemand of dit kan en zo ja, hoe ???

Bij voorbaat dank
Koos Voos

 

[Wigi]

Wat is jouw VBA-code nu?

 

[Koos Voos]

SolverReset
    SolverOk SetCell:="$K$5", MaxMinVal:=3, ValueOf:="29", ByChange:= _
        "$G$5,$G$6"
    SolverSolve userfinish:=True

 

[Wigi]

Bvb.

SolverReset
    SolverOk SetCell:="$K$5", MaxMinVal:=3, ValueOf:=[B]Sheets("naamvanhetblad").Range("adresvandecel").Value[/B], ByChange:= _
        "$G$5,$G$6"
    SolverSolve userfinish:=True

Wigi

 

[Koos Voos]

Wigi,

Code aangepast en het werkt uiteraard...:thumb::thumb:

Wederom mij hartelijke dank.

Koos Voos

 

[Wigi]

You're welcome.

Graag nog de vraag op opgelost zetten aub.

 

[Koos Voos]

De status is inmiddels veranderd.

Op een of andere manier ging het een paar keer mis ?????

Bedankt.