Macro Solver (de nuevo)
Publicado por Franco Grandi (30 intervenciones) el 07/09/2007 16:07:18
HOla, sigo con el mismo problema que hace un par de meses plantee.
Tengo una macro que ejecuta un Solver, encuentra la solucion satisfactoriamente, pero me muestra el Famosos carte que dice "solver ha hallado una solicion, desea acepytarla o volver a los valores iniciales"? Lo que yo quiero es que directamente las acepte sin preguntar.
El comando Display alerts = False no funciona, ya lo probe.
Alguien me dijo que probara con:
SolverSolve UserFinish:=False
Tampoco me resulto.
Quisiera saber si alguien puede ayudarme con esto.
Copio abajo el codigo de la macro.
Gracias
Sub Resolver1()
'
' Resolver1 Macro
' Macro grabada el 01/08/2007 por Windows Angelical
'
' Acceso directo: CTRL+q
'
Application.ScreenUpdating = False
SolverRestablecer
SolverAceptar definirCelda:="$G$33", valorMáxMín:=3, valorDe:="0", _
celdasCambiantes:="$B$49,$B$71,$B$105,$B$151,$B$210,$B$376"
SolverAgregar referenciaCelda:="$G$57", relación:=2, Formula:="$G$79"
SolverAgregar referenciaCelda:="$G$79", relación:=2, Formula:="$G$113"
SolverAgregar referenciaCelda:="$G$113", relación:=2, Formula:="$G$159"
SolverAgregar referenciaCelda:="$G$159", relación:=2, Formula:="$G$218"
SolverAgregar referenciaCelda:="$G$218", relación:=2, Formula:="$G$384"
SolverAceptar definirCelda:="$G$33", valorMáxMín:=3, valorDe:="0", _
celdasCambiantes:="$B$49,$B$71,$B$105,$B$151,$B$210,$B$376"
SolverResolver
Application.ScreenUpdating = True
End Sub
Tengo una macro que ejecuta un Solver, encuentra la solucion satisfactoriamente, pero me muestra el Famosos carte que dice "solver ha hallado una solicion, desea acepytarla o volver a los valores iniciales"? Lo que yo quiero es que directamente las acepte sin preguntar.
El comando Display alerts = False no funciona, ya lo probe.
Alguien me dijo que probara con:
SolverSolve UserFinish:=False
Tampoco me resulto.
Quisiera saber si alguien puede ayudarme con esto.
Copio abajo el codigo de la macro.
Gracias
Sub Resolver1()
'
' Resolver1 Macro
' Macro grabada el 01/08/2007 por Windows Angelical
'
' Acceso directo: CTRL+q
'
Application.ScreenUpdating = False
SolverRestablecer
SolverAceptar definirCelda:="$G$33", valorMáxMín:=3, valorDe:="0", _
celdasCambiantes:="$B$49,$B$71,$B$105,$B$151,$B$210,$B$376"
SolverAgregar referenciaCelda:="$G$57", relación:=2, Formula:="$G$79"
SolverAgregar referenciaCelda:="$G$79", relación:=2, Formula:="$G$113"
SolverAgregar referenciaCelda:="$G$113", relación:=2, Formula:="$G$159"
SolverAgregar referenciaCelda:="$G$159", relación:=2, Formula:="$G$218"
SolverAgregar referenciaCelda:="$G$218", relación:=2, Formula:="$G$384"
SolverAceptar definirCelda:="$G$33", valorMáxMín:=3, valorDe:="0", _
celdasCambiantes:="$B$49,$B$71,$B$105,$B$151,$B$210,$B$376"
SolverResolver
Application.ScreenUpdating = True
End Sub
Valora esta pregunta
0