Run Macro /w Solver - Keeps Returning Same Solution???

[betapeg]

The code is supposed to run Solver and copy the results onto another sheet. Clearly, the parameters for each iteration in Solver is different so why is Solver giving me the same solution for each iteration? I know for a fact the answer is different bc I have run this before and it didn't do this. It is also mathematically impossible. Is there something in the code I am doing wrong?

    Sheets("Variance Optimization").Select
    Range("L1").Select
    Sheets("Variance Optimization").Select
    SolverOk SetCell:="$O$15", MaxMinVal:=3, ValueOf:=0, ByChange:="$O$2:$O$11", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$O$12", Relation:=2, FormulaText:="1"
    SolverAdd CellRef:="$O$2:$O$11", Relation:=3, FormulaText:="3%"
    SolverSolve True
    Sheets("EF Data").Select
    Range("B1:B13").Select
    Selection.Copy
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D1").Select
    Application.CutCopyMode = False
    Sheets("Variance Optimization").Select
    
    Sheets("Variance Optimization").Select
    Range("L1").Select
    SolverOk SetCell:="$O$15", MaxMinVal:=3, ValueOf:=0.05, ByChange:="$O$2:$O$11" _
        , Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$O$12", Relation:=2, FormulaText:="1"
    SolverAdd CellRef:="$O$2:$O$11", Relation:=3, FormulaText:="3%"
    SolverSolve True
    Sheets("EF Data").Select
    Range("B1:B13").Select
    Selection.Copy
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E1").Select
    Application.CutCopyMode = False
    Sheets("Variance Optimization").Select
    Range("L1").Select
    
    Sheets("Variance Optimization").Select
    Range("L1").Select
    SolverOk SetCell:="$O$15", MaxMinVal:=3, ValueOf:=0.1, ByChange:="$O$2:$O$11" _
        , Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$O$12", Relation:=2, FormulaText:="1"
    SolverAdd CellRef:="$O$2:$O$11", Relation:=3, FormulaText:="3%"
    SolverSolve True
    Sheets("EF Data").Select
    Range("B1:B13").Select
    Selection.Copy
    Range("F1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E1").Select
    Application.CutCopyMode = False
    Sheets("Variance Optimization").Select
    Range("L1").Select
    
    Sheets("Variance Optimization").Select
    Range("L1").Select
    SolverOk SetCell:="$O$15", MaxMinVal:=3, ValueOf:=0.15, ByChange:="$O$2:$O$11" _
        , Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$O$12", Relation:=2, FormulaText:="1"
    SolverAdd CellRef:="$O$2:$O$11", Relation:=3, FormulaText:="3%"
    SolverSolve True
    Sheets("EF Data").Select
    Range("B1:B13").Select
    Selection.Copy
    Range("G1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E1").Select
    Application.CutCopyMode = False
    Sheets("Variance Optimization").Select
    Range("L1").Select
    
    Sheets("Variance Optimization").Select
    Range("L1").Select
    SolverOk SetCell:="$O$15", MaxMinVal:=3, ValueOf:=0.2, ByChange:="$O$2:$O$11" _
        , Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$O$12", Relation:=2, FormulaText:="1"
    SolverAdd CellRef:="$O$2:$O$11", Relation:=3, FormulaText:="3%"
    SolverSolve True
    Sheets("EF Data").Select
    Range("B1:B13").Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E1").Select
    Application.CutCopyMode = False
    Sheets("Variance Optimization").Select
    Range("L1").Select

 

[wigi]

Hi

Please have a look at SolverReset. For example, read carefully Jon Peltier's page here:
Using Solver in Excel VBA

 

[shg]

Try this:

Sub x()
    Dim rCopy       As Range
    Dim rPaste      As Range
    Dim i           As Long

    Set rCopy = Worksheets("EF Data").Range("B1:B13")
    Set rPaste = Worksheets("EF Data").Range("D1:D13")
    Sheets("Variance Optimization").Select
    SolverReset

    For i = 0 To 20 Step 5
        SolverReset
        SolverOk SetCell:="O15", _
                 MaxMinVal:=3, _
                 ValueOf:=CDbl(i) / 10, _
                 ByChange:="O2:O11", _
                 EngineDesc:="GRG Nonlinear"
        SolverAdd CellRef:="O12", Relation:=2, FormulaText:="1"
        SolverAdd CellRef:="O2:O11", Relation:=3, FormulaText:="3%"
        SolverSolve UserFinish:=True

        rCopy.Copy
        rPaste.PasteSpecial Paste:=xlPasteValues
        Set rppaste = rPaste.Offset(, 1)
    Next i
End Sub

 

[shg]

Typos:

Sub x()
    Dim rCopy       As Range
    Dim rPaste      As Range
    Dim i           As Long

    Set rCopy = Worksheets("EF Data").Range("B1:B13")
    Set rPaste = Worksheets("EF Data").Range("D1:D13")
    Sheets("Variance Optimization").Select

    For i = 0 To 20 Step 5
        SolverReset
        SolverOk SetCell:="O15", _
                 MaxMinVal:=3, _
                 ValueOf:=CDbl(i) / 10#, _
                 ByChange:="O2:O11", _
                 EngineDesc:="GRG Nonlinear"
        SolverAdd CellRef:="O12", Relation:=2, FormulaText:="1"
        SolverAdd CellRef:="O2:O11", Relation:=3, FormulaText:="3%"
        SolverSolve UserFinish:=True

        rCopy.Copy
        rPaste.PasteSpecial Paste:=xlPasteValues
        Set rPaste = rPaste.Offset(, 1)
    Next i
End Sub

 

[betapeg]

Awww shucks. That's it. I went into Solver and saw that it needs a reset. Thanks guys!