cerrar ventana de solver

25/12/2007 - 09:23 por jorge | Informe spam
Hola

He hecho un solver que posteriormente he asignado a una macro. El problema
es que a pesar de que cuando hago la macro incluyo el "aceptar" en el solver,
cuando la ejecuto me queda la ventana del sover esperando el "aceptar".
Adjunto le código en VB:

Podría alguien por favor ayudarme?
Jorge

Sub Macro4()

SolverSolve UserFinish:=True
'
Application.Run ("Solver.xla!Auto_Open")
SolverRestablecer
SolverAceptar definirCelda:="$H$22", valorMáxMín:=1, valorDe:="0", _
celdasCambiantes:="$D$11:$D$34,$D$40"
SolverAgregar referenciaCelda:="$D$11:$D$34", relación:=1, Formula:="$D$40"
SolverAgregar referenciaCelda:="$D$35", relación:=1, Formula:= _
"'[Biomasa v1_toplay.xls]Información general'!$E$14"
SolverAgregar referenciaCelda:="$D$11:$D$34", relación:=3, Formula:="0"

SolverResolver
SolverFinish KeepFinal:=1

End Sub
 

Leer las respuestas

#1 Héctor Miguel
25/12/2007 - 10:02 | Informe spam
hola, jorge !

He hecho un solver que posteriormente he asignado a una macro.
El problema es que a pesar de que cuando hago la macro incluyo el "aceptar" en el solver
cuando la ejecuto me queda la ventana del sover esperando el "aceptar".
Adjunto le codigo en VB:
Podria alguien por favor ayudarme?



- por que tienes una "mezcla" de llamadas al solver en ingles y en espanol ??????
(primero usas SolverSolve y mas adalenta usas SolverResolver ????)

- en que version de excel desarrollaste el codigo y en cual version te esta fallando ?
(incluye el idioma de excel en ambos equipos)

saludos,
hector.

__ el codigo expuesto __
Sub Macro4()
SolverSolve UserFinish:=True
Application.Run ("Solver.xla!Auto_Open")
SolverRestablecer
SolverAceptar definirCelda:="$H$22", valorMà¡xMà­n:=1, valorDe:="0", _
celdasCambiantes:="$D$11:$D$34,$D$40"
SolverAgregar referenciaCelda:="$D$11:$D$34", relación:=1, Formula:="$D$40"
SolverAgregar referenciaCelda:="$D$35", relación:=1, Formula:= _
"'[Biomasa v1_toplay.xls]Información general'!$E$14"
SolverAgregar referenciaCelda:="$D$11:$D$34", relación:=3, Formula:="0"
SolverResolver
SolverFinish KeepFinal:=1
End Sub

Preguntas similares