Home |
Search |
Today's Posts |
#1
Posted to comp.apps.spreadsheets,microsoft.public.excel.programming
|
|||
|
|||
Help needed with Solver macro
I am trying to use following macro, but the Excel stop executing in
after 20 rows and gives me a message: "Unexpected internal error occured, or available memory is exhausted" without spelling mistakes obviously :) Can any1 help with this? Thank you Private Sub CommandButton1_Click() For i = 1 To 290 Application.ScreenUpdating = False SolverOk SetCell:=Range("$it$4").Offset(i, 0), MaxMinVal:=2, ValueOf:="0", ByChange:=Range("$hx$4:$hy$4").Offset(i, 0) SolverAdd CellRef:=Range("$hx$4").Offset(i, 0), Relation:=3, FormulaText:="0.0000001" SolverAdd CellRef:=Range("$hy$4").Offset(i, 0), Relation:=3, FormulaText:="0.0000001" SolverSolve UserFinish:=True SolverDelete CellRef:=Range("$hx$4").Offset(i, 0), Relation:=3, FormulaText:="0.0000001" SolverDelete CellRef:=Range("$hy$4").Offset(i, 0), Relation:=3, FormulaText:="0.0000001" Application.ScreenUpdating = True Range("it1") = i Next i End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Solver Macro | Excel Discussion (Misc queries) | |||
solver related some financial knowledge may be needed | Excel Discussion (Misc queries) | |||
solver macro | Excel Programming | |||
Solver Macro | Excel Programming | |||
Macro for Solver | Excel Programming |