A
Alison Joubert
Hi
This is the first time I've ever queried a discussion group and I am
VERY new to any kind of programming (not since the days of Fortran), so
pardon if my terminology is inaccurate.
I have created a VBA for applications macro which (successfully) runs
Solver several times on a worksheet.
Everywhere I've looked says inserting
SolverSolve userFinish:=True
means the dialogue at the end of the run won't be displayed, but in my
case it still does!! Any ideas why?
Also, if you don't display this dialogue how will you know if the Solve
was successful?
Any hints appreciated
Alison
ps: the code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 29/09/2006 by ajoubert
'
SolverOk SetCell:="$E$37", MaxMinVal:=2, ValueOf:="0", ByChange:= _
"$D$20:$D$24"
SolverSolve
SolverSolve userFinish:=True
SolverOk SetCell:="$H$37", MaxMinVal:=2, ValueOf:="0", ByChange:= _
"$G$20:$G$24"
SolverSolve
SolverSolve userFinish:=True
SolverOk SetCell:="$K$37", MaxMinVal:=2, ValueOf:="0", ByChange:= _
"$J$20:$J$24"
SolverSolve
SolverSolve userFinish:=True
etc
etc
End Sub
This is the first time I've ever queried a discussion group and I am
VERY new to any kind of programming (not since the days of Fortran), so
pardon if my terminology is inaccurate.
I have created a VBA for applications macro which (successfully) runs
Solver several times on a worksheet.
Everywhere I've looked says inserting
SolverSolve userFinish:=True
means the dialogue at the end of the run won't be displayed, but in my
case it still does!! Any ideas why?
Also, if you don't display this dialogue how will you know if the Solve
was successful?
Any hints appreciated
Alison
ps: the code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 29/09/2006 by ajoubert
'
SolverOk SetCell:="$E$37", MaxMinVal:=2, ValueOf:="0", ByChange:= _
"$D$20:$D$24"
SolverSolve
SolverSolve userFinish:=True
SolverOk SetCell:="$H$37", MaxMinVal:=2, ValueOf:="0", ByChange:= _
"$G$20:$G$24"
SolverSolve
SolverSolve userFinish:=True
SolverOk SetCell:="$K$37", MaxMinVal:=2, ValueOf:="0", ByChange:= _
"$J$20:$J$24"
SolverSolve
SolverSolve userFinish:=True
etc
etc
End Sub