Solver Reset in Excel 2007

[TransMogrifier]

Hi All

I have written a code in VBA for which the solver has to reset for the counter (in this case 10) mentioned. However in Excel 2007 when I try running the code it gets stuck on Solver Reset. The code worked without any issues on 2003.......any possible solutions......all the tool packs have been enabled.........

 

[Kavy]

Trans,

In the thread from the link below, they mentioning the changing of an extension from 2003 to 2007. I may of got this wrong but I believe it went from xla, to xlam for referencing purposes in VBA.

Its near the bottom of the link:

http://social.msdn.microsoft.com/forums/en-US/isvvba/thread/635e734b-e3e4-4558-8d63-78f2b1bfdc36/

 

[TransMogrifier]

Hi Kavy,

I tried using xlam ....... however it got stuck again.......... to get a better idea here is the code ;

Public Sub SolverOptimization()
Dim i As Integer
Sheets("roughcalc").Activate
For i = 1 To 9
Application.Run "solver.xlam!solverreset"
Application.Run "solver.xlam!SolverOk", SetCell:="a134", MaxMinVal:=2, ByChange:="c134:g134"
Application.Run "solver.xlam!SolverAdd", CellRef:="h134", Relation:=2, FormulaText:="1.0000000000001"
Application.Run "solver.xlam!SolverAdd", CellRef:="b134", Relation:=2, FormulaText:=0.0037 * i + Range("b145").Value
'SolverOk SetCell:="a134", MaxMinVal:=2, ValueOf:="0", ByChange:="c134:g134"
Application.Run "solver.xlam!SolverSolve", userfinish:=True
Range("A134:H134").Select
Selection.Copy
Range("A145").Offset(i, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
Sheets("roughcalc").Visible = False
Sheets("optimization").Activate
Call SolverValues
End Sub


Thanks