Excel Forum

Code: Select all

Sub Macro1_Original()
    SolverReset
    
    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
        
    SolverAdd CellRef:="$F$2", Relation:=1, FormulaText:="1"
    
    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
        
    SolverAdd CellRef:="$H$3:$I$3", Relation:=3, FormulaText:="0"
    
    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
        
    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
   
    SolverSolve
End Sub

Code: Select all

Sub Macro1_Modify_1()
    SolverReset

    SolverAdd CellRef:="$F$2", Relation:=1, FormulaText:="1"

    SolverAdd CellRef:="$H$3:$I$3", Relation:=3, FormulaText:="0"

    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"

    SolverSolve (True)
End Sub

Code: Select all

Sub Macro1_Original()
    
    SolverReset
        
    SolverAdd CellRef:="$F$2", Relation:=2, FormulaText:="1"
    
    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=1, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
        
    SolverSolve
    
End Sub