SteveFrancis
New Member
- Joined
- Apr 23, 2011
- Messages
- 2
Can anyone help? I keep receiving a Compile Error: Sub or Function not defined when I try to run a macro that runs solver. The
Sub RunSolverLibContent()
'
' RunSolverLibContent Macro
'
'
SolverOk SetCell:="$F$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$F$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$F$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$F$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$G$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$G$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$G$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$G$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$H$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$H$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$H$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$H$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$I$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$I$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$I$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$I$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$J$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$J$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$J$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$J$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
Sheets("Forecasted Drivers").Select
Range("A34").Select
End Sub
Sub RunSolverLibContent()
'
' RunSolverLibContent Macro
'
'
SolverOk SetCell:="$F$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$F$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$F$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$F$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$G$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$G$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$G$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$G$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$H$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$H$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$H$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$H$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$I$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$I$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$I$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$I$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
SolverOk SetCell:="$J$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$J$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$J$32", MaxMinVal:=3, ValueOf:=0, ByChange:="$J$35", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
Sheets("Forecasted Drivers").Select
Range("A34").Select
End Sub