solver met aansturing vanuit vba

[Edwin1968]

Hallo

Ik wil mbv de solver en vba een macro opstellen de solver moet een evenwichtssituatie bepalen (zie bijgevoegde code). Aanvullend moet er nadat een evenwichtssituatie is ontstaan een cel met 1 worden opgehoogd (1 tot 20) en daarna weer met 1 starten. wanneer deze is opgehoogd moet de macro opnieuw de evenwichtssituatie doorlopen enz...Deze loop moet doorgaan totdat een nieuwe waarde niet meer veranderd t.o.v. de oude waarde

Ik hoop dat iemand mij kan helpen met de aanvulling van deze makro.

Alvast bedankt Edwin


Sub Solver()
'
' Solver
'
' Sneltoets: Ctrl+s
'
Range("F72").Select
ActiveCell.FormulaR1C1 = "0.001"
Range("F73").Select
ActiveCell.FormulaR1C1 = "100"
SolverOk SetCell:="$B$68", MaxMinVal:=1, ValueOf:=0, ByChange:="$F$72:$F$73", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$B$68", MaxMinVal:=1, ValueOf:=0, ByChange:="$F$72:$F$73", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub

 

[sylvester-ponte]

Edwin, welkom hier.

wil je aub een voorbeeld excel bestand plaatsen?

 

[Edwin1968]

excel sheet met probleemstelling

Beste Sylvester

In bijgevoegde sheet hoop ik duidelijk te hebben gemaakt wat het probleem is, de werkelijke analyses zijn veel uitgebreider maar qua principe komt het op het zelfde neer.

Alvast bedankt voor je reactie

mvg Edwin