VBA Meerdere Solvers combineren

[Sisa]

Ik ben bezig met het samenstellen van recepturen en dit autmatisch laten doorrekenen. Nu lukt het al aardig behalve dat het me niet lukt om de solver in verschillende tabbladen tegelijk te laten runnen en hier de antwoorden uit te lezen.

Ik probeer al heel de tijd het bestand toe te voegen, maar dat lijkt onmogelijk met explorer 7 dus bijdeze het script.

Sub Room()
'
' Room Macro
'

'
    SolverOk SetCell:="$L$9", MaxMinVal:=3, ValueOf:=0, ByChange:="$C$5:$C$6", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$L$9", MaxMinVal:=3, ValueOf:=0, ByChange:="$C$5:$C$6", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub
Sub Dik()
'
' Dik Macro
'

'
    SolverOk SetCell:="$L$9", MaxMinVal:=3, ValueOf:=0, ByChange:="$C$5:$C$6", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$L$9", MaxMinVal:=3, ValueOf:=0, ByChange:="$C$5:$C$6", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub
Sub Hoofd()
'
' Hoofd Macro
'
Sheets("Blad2").Activate
Call Room

Sheets("Blad3").Activate
Call Dik

'
End Sub

 

[Elsendoorn2134]

Sisa,

Ik snap je probleem niet, ik begrijp dat je een solver wil laten rekenen op meerdere tabbladen en ik zie ook dat je de oplossing
al hebt, sheet selecteren, laten rekenen, nieuw sheet selecteren etc.
Wat is nu je vraag eigenlijk? Volgens mij moet het zo kunnen werken.

Elsendoorn2134

 

[Sisa]

Eerst lukte het niet om naar de verschillende tabbalden te gaan maar nu wel. dus is niet meer nodig. ik had verkeerde instellingen kwam ik achter

 

[Elsendoorn2134]

Sisa,

Zou je dan de vraag als opgelost willen zetten, bedankt.

Elsendoorn2134