Camillae

Sub solvermacro()
'
' solvermacro Macro
'

'
ActiveCell.FormulaR1C1 = "=3*R[-3]C+(2*R[-2]C)"
Range("E10").Select
ActiveCell.FormulaR1C1 = "=(2*R[-4]C)+(3*R[-3]C)"Range("E4").Select
ActiveCell.FormulaR1C1 = "=R[2]C+R[3]C"
Range("F9").Select
ActiveCell.FormulaR1C1 = "80"
Range("F10").Select
ActiveCell.FormulaR1C1 = "110"
Range("G10").SelectSolverOk SetCell:="$E$4", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$6:$E$7", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$9", Relation:=1, FormulaText:="$F$9"SolverAdd CellRef:="$E$10", Relation:=1, FormulaText:="$F$10"
SolverOk SetCell:="$E$4", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$6:$E$7", _
Engine:=1, EngineDesc:="GRG Nonlinear"SolverOk SetCell:="$E$4", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$6:$E$7", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub

Sub solvermacro()
'
' solvermacro Macro
'

'ActiveCell.FormulaR1C1 = "=3*R[-3]C+(2*R[-2]C)"
Range("E10").Select
ActiveCell.FormulaR1C1 = "=(2*R[-4]C)+(3*R[-3]C)"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=R[2]C+R[3]C"Range("F9").Select
ActiveCell.FormulaR1C1 = "80"
Range("F10").Select
ActiveCell.FormulaR1C1 = "110"
Range("G10").Select
SolverOk Cells(4, 5), MaxMinVal:=1, ValueOf:=0,ByChange:="$E$6:$E$7", _
Engine:=1, EngineDesc:="GRG Nonlinear"


SolverAdd Cells(9, 5), Relation:=1, FormulaText:="$F$9"
SolverAdd Cells(10, 5), Relation:=1,FormulaText:="$F$10"
SolverOk Cells(4, 5), MaxMinVal:=1, ValueOf:=0, ByChange:="$E$6:$E$7", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk Cells(4, 5), MaxMinVal:=1, ValueOf:=0,ByChange:="$E$6:$E$7", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub

Sub solvermacro()
'
' solvermacro Macro
'

Cells(10, 6) = 110

Dim vecta(1 To 10) As Integer...