alvaro
20 de Marzo del 2003

Hola:

estoy haciendo una plantilla en excel para resuelva unos sistemas de ecuaciones y quise automatizar el Solver mediante un Bot贸n de Comando usando el VB del Excel. Para eso cargu茅 solver.xls en Referencias para poder utilizar la biblioteca. El problema es que al pulsar el bot贸n para que ejecute Solver, sale un mensaje de error que dice algo como que no hay memoria para ejecutar el programa. El c贸digo es el siguiente:

Private Sub CommandButton1_Click()
Calcular
End Sub

Sub Calcular()

Worksheets("Hoja1").Activate
SolverReset
SolverOptions Precision:=0,0001
SolverOK SetCell:=Range("B87"), MaxMinVal:=3, ValueOf:="0", ByChange:="B89,B90,B91"
SolverAdd CellRef:=Range("B89"), Relation:=1, FormulaText:="G48"
SolverAdd CellRef:=Range("B89"), Relation:=3, FormulaText:="0"
SolverAdd CellRef:=Range("B90"), Relation:=3, FormulaText:="-E10"
SolverAdd CellRef:=Range("B91"), Relation:=1, FormulaText:="B90"
SolverAdd CellRef:=Range("B91"), Relation:=3, FormulaText:="-B90"
SolverSolve UserFinish:=True

End Sub

Por favor, necesito su ayuda. gracias.