All these solver problems are on the same worksheet. I am attempting to solve them sequentially and independent of each other. However, the 1st of 3 works.... the 2nd and 3rd do not...and I get no error.
Any help would be appreciated...
Any help would be appreciated...
Code:
Sub Calc_MultiServDollar()
Application.ScreenUpdating = False
With Worksheets("Pricer_MultiServiceDollar")
'Service Line 1
Application.Run "SolverReset"
Application.Run "SolverOK", "E9", _
3, _
Range("E8").Value, _
"C9"
Application.Run "SolverSolve", True
End With
Call Srv2
Call Srv3
Application.ScreenUpdating = True
End Sub
Code:
Sub Srv2()
Application.ScreenUpdating = False
With Worksheets("Pricer_MultiServiceDollar")
'Service Line 2
Application.Run "SolverReset"
Application.Run "SolverOK", "K9", _
3, _
Range("K8").Value, _
"I9"
Application.Run "SolverSolve", True
Application.ScreenUpdating = True
End With
End Sub
Code:
Sub Srv3()
Application.ScreenUpdating = False
With Worksheets("Pricer_MultiServiceDollar")
'Service Line 3
Application.Run "SolverReset"
Application.Run "SolverOK", "Q9", _
3, _
Range("Q8").Value, _
"O9"
Application.Run "SolverSolve", True
Application.ScreenUpdating = True
End With
End Sub