Ejecutar Solver en VBA

12/04/2007 - 16:30 por Eritis | Informe spam
Hola a todos, realizando una macro en VBA hago una llamada a Solver de la en
donde primero defino las opciones del solver y luego llamo a Solver, de la
siguiente forma:

SolvOptions MaxTime:=5, Iterations:00, Precision:=0.01, _
AssumeLinear:=False, StepThru:=False, Estimates:=1, _
Derivatives:=1, IntTolerance:=1, Scaling:=False, Convergence:=0.01, _
AssumeNonNeg:=True
SolvOk SetCell:="$D$1", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$6:$C$67"
SolvSolve userfinish:=True
SolvOptions MaxTime:00, Iterations:00, Precision:=0.01, _
AssumeLinear:=False, StepThru:=False, Estimates:=1, _
Derivatives:=1, IntTolerance:=1, Scaling:=False, Convergence:=0.01, _
AssumeNonNeg:=True

Al ejecutar el codigo, en ciertas ocasiones sale una ventana con el
siguiente error:

"Solver: Error Interno No Esperado, o memoria insuficiente"

Haciendo un paso a paso, el error aparece cuando defino las opciones del
Solver, y lo "soluciono" normalmente abriendo y cerrando el solver
manualmente y ejecutando de nuevo la macro.
Alguien podria decirme como resolverlo sin necesidad del paso manual?
 

Leer las respuestas

#1 Héctor Miguel
13/04/2007 - 05:50 | Informe spam
hola, 'anonimo/a' !

... una macro en VBA hago una llamada a Solver... defino las opciones... y luego llamo a Solver [...]
... en ciertas ocasiones sale una ventana con...: "Solver: Error Interno No Esperado, o memoria insuficiente"
Haciendo un paso a paso, el error aparece cuando defino las opciones del Solver
y lo "soluciono" normalmente abriendo y cerrando el solver manualmente y ejecutando de nuevo la macro.
Alguien podria decirme como resolverlo sin necesidad del paso manual?



supongo que el error aparece [probablemente] la primera vez que ejecutes el codigo -?-
-> para resolverlo [y SOLO por unica vez] prueba a usar la siguiente instruccion...
Application.Run "solver.xla!auto_open"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares