Oplosser met reeks

[Cashem]

voorbeeld:
http://www.brahoo.nl/voorbeeld.xlsx (bijlage hier werkt niet)

Ik heb een reeks waardes waar ik de oplosser voor wil gebruiken. De winst (doelfunctie) is afhankelijk van 2 variabelen (bezoeken en fakturen) met elk een voorwaarde dat ze hoger dan 1 moeten zijn.

Mijn originele bestand is een stuk groter en het is dan ook heel veel werk om voor elke rij de solver toe te passen. Ik ben nu zelf al flink gaan zoeken om dit in visual basic te schrijven. Ik kan eerlijk zeggen dat ik een newb ben, maar heb het toch geprobeerd.

Het bleek echter te lastig, ik vond deze thread:
http://www.helpmij.nl/forum/showthread.php/283976-solver-voor-een-reeks-van-cellen-(kolommen)

Maar ook met hulp van dat kwam ik er niet uit.

Misschien kan iemand me helpen?

Alvast bedankt.

 

[Cashem]

Zelf opgelost:

Sub MacroSolve()
Worksheets("ADMsolver").Activate
RowCount = 7
Do While Not IsEmpty(Worksheets("ADMsolver").Range("AM" & RowCount))
    SolverReset
    SolverOptions precision:=0.001
    SolverOk SetCell:=Range("AM" & RowCount), _
        MaxMinVal:=3, _
        ValueOf:="0,11", _
        ByChange:=Range("P" & RowCount & ":R" & RowCount)
    SolverAdd CellRef:=Range("P" & RowCount), _
        Relation:=3, _
        FormulaText:=1
    SolverAdd CellRef:=Range("R" & RowCount), _
        Relation:=3, _
        FormulaText:=1
    SolverSolve userFinish:=True
    SolverFinish keepFinal:=1
    RowCount = RowCount + 1
Loop
MsgBox "Finito"

End Sub

 

[Cashem]

Ik heb nog nog een vraag over de 3 oplossingsmethoden, ik zit sterk te twijfelen tussen welke het meeste geschikt is voor mijn berekening. Iemand advies? In het originele bestand staan meerdere formules die met elkaar samenwerken en op elkaar reageren.