Ejecución de macro para solver desde un botón

Tengo una macro para solver pero necesito que al ejecutarla mediante un botón que ya lo tengo en la hoja de cálculo, no se me muestre la pantalla "parámetros de solver" ni la de "resultados de solver".
El código que tengo es el siguiente:
Sub Dia1()
' Celda objetivo y celdas cambiantes
Solverok setcell:=Range("C10"), maxminval:=1, _
bychange:=Range("AK3:BE3")
' RESTRICCIONES
'Disponibilidad de recursos
SolverAdd CellRef:=Range("X27:X40"), Relation:=1, _
FormulaText:="$Z$27:$Z$40"
' Escasez Cero
SolverAdd CellRef:=Range("X42:X62"), Relation:=3, _
FormulaText:="$Z$42:$Z$62"
' Capacidadd de almacen
SolverAdd CellRef:=Range("X64:X84"), Relation:=1, _
FormulaText:="$Z$64:$Z$84"
' Muestra el cuadro de diálogo de Solver
SolverSolve UserFinish:=True
' Para finalizar el procedimiento
SolverFinish KeepFinal:=1
Application. SendKeys "%H"
Application. SendKeys "v"
End Sub
Agradecería si me pudiesen facilitar las modificaciones que debo hacer al código anterior para que no se muestren las pantallas antes mencionadas al ejecutar solver.
Respuesta
1
Las 2 últimas líneas reproducen el llamado al menú herramientas (%H) opción Solver (v).
Quitándolas no se abrirá ese menú.
El problema está en que necesito dejar esas dos líneas para poder llamar a solver desde un botón en una hoja de cálculo, lo que quiero es modificar para que desde el botón se lance solver pero no se muestren las pantallas intermedias.
En este mismo foro encontré unas líneas que deberían hacer lo que quiero más cuando las coloco en el código no se produce ningún resultado de solver, coloco las lineas enseguida:
Application.ScreenUpdating = False
Application.SendKeys "%H"
Application.SendKeys "v"
Application.SendKeys "%s", True
Application.SendKeys "{TAB}"
Application.SendKeys "{ENTER}"
Application.ScreenUpdating = True
Quisiera saber cómo puedo solucionar este problema de llamar a solver y que no se muestren las pantallas más que si se muestre el resultado.
Además se presenta un problema adicional, pues tengo dos rutinas en una misma hoja de cálculo, las dos referentes a solver llamadop desde dos botones diferentes, el problema se presenta cuando ejecuto el segundo botón que hace llamado a la segunda rutina pues se cargan las r4estricciones de la primera y segunbda rutina al mismo tiempo, con lo cual quiero saber cómo puedo hacer para hacer llamado a solver desde diferentes botones con diferentes datos en una misma hoja de calaculo y que no se carguen restricciones que no sean las indicadas en el código.
Para que me puedan ayudar adjunto el código para ver si debo cambiar algún nombre a alguna variable o algo parecido.
Sub Dia1()
' Celda objetivo y celdas cambiantes
Solverok setcell:=Range("C10"), maxminval:=1, _
bychange:=Range("AK3:BE3")
' RESTRICCIONES
'Disponibilidad de recursos
SolverAdd CellRef:=Range("X27:X40"), Relation:=1, _
FormulaText:="$Z$27:$Z$40"
' Escasez Cero
SolverAdd CellRef:=Range("X42:X62"), Relation:=3, _
FormulaText:="$Z$42:$Z$62"
' Capacidadd de almacen
SolverAdd CellRef:=Range("X64:X84"), Relation:=1, _
FormulaText:="$Z$64:$Z$84"
' Muestra el cuadro de diálogo de Solver
SolverSolve UserFinish:=True
' Para finalizar el procedimiento
SolverFinish KeepFinal:=1
Application.SendKeys "%H"
Application.SendKeys "v"
End Sub
Sub Dia2()
' Celda objetivo y celdas cambiantes
Solverok setcell:=Range("D10"), maxminval:=1, _
bychange:=Range("AK4:BE4")
' RESTRICCIONES
'Disponibilidad de recursos
SolverAdd CellRef:=Range("X88:X101"), Relation:=1, _
FormulaText:="$Z$88:$Z$101"
' Escasez Cero
SolverAdd CellRef:=Range("X103:X123"), Relation:=3, _
FormulaText:="$Z$103:$Z$123"
' Capacidadd de almacen
SolverAdd CellRef:=Range("X125:X145"), Relation:=1, _
FormulaText:="$Z$125:$Z$145"
' Muestra el cuadro de diálogo de Solver
SolverSolve UserFinish:=True
' Para finalizar el procedimiento
SolverFinish KeepFinal:=1
Application.SendKeys "%H"
Application.SendKeys "v"
End Sub
NParece que no nos estamos entendiendo:
Tu primer consulta:
'...no se me muestre la pantalla "parámetros de solver" ni la de "resultados de solver".
Rta: quitar las 2 últimas líneas. Los parámetros para el solver ya están dados en la rutina por lo que quitando esas 2 líneas no se te muestran las pantallas.
Pero ahora tu consulta es:
'.... necesito dejar esas dos líneas para poder llamar a solver desde un botón en una hoja de cálculo, ...
¿Entonces?
Te explico 1 poco más lo que hace la rutina Dia1 (y Dia2):
1-Se establecen los parámetros (SolverAdd)
2- Se ejecuta Solver  (SolverSolve UserFinish:=True )
Con esta línea es como si presionaras el botón Resolver y con True no se te mostrará la ventana de resultados.
Por eso quito las 2 que siguen porque la vuelven a mostrar.
La rutina Dia2 lo ejecutará nuevamente pero con los nuevos parámetros
Si luego necesitas llamarlo nuevamente utilizá solo esta línea (se calculará con los parámetros últimos)
SolverLoad  loadarea:= "tu rango"
o simplemente con:
SolverSolve UserFinish:=True
Sdos
Elsa
SolverSolve Userfinish:=True

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecución de solver desde un botón

Mucho te agradecería si pudieras resolver una pequeña función que no consigo que me funcione, se trata de insertar un botón en una hoja que, a través de una macro, ejecute la función solver.
1 respuesta

Macros excel

Lo siento, soy nuevo en esto de la macros. Me gustaría saber si puedo automatizar la validación de una solución de Solver de manera automática con alguna función desde una Macro. Es decir, desde una macro llamo al Solver de Excel y éste me da una...
1 respuesta

No se envía la invitación para reuniones en Outlook desde vba

Tengo otro inconveniente y es el ultimo para terminar mi proyecto, tengo un archivo que envía tareas a Outlook y también las envía a contactos (gracias a tu apoyo), además puedo programar mis citas, lo que quiero incluír y no he podido es enviar...
1 respuesta

Macro para seleccionar varias celdas y enviar por correo electrónico .

Para: Dante Amor. Buenas noches por favor su valiosa ayuda. Requiero una macro para seleccionar un rango de celdas y posterior a esto enviar a un correo electronico; esto lo necesito para enviar boletas de pago del personal y así no imprimir y gastar...
2 respuestas

Problemas al automatizar un proceso solver

Quiero que mediante un botón en la hoja de excel se realize una optimización de un campo. Si utilizo la opción que aparece en herramientas-solver y sigo los paso realiza la optimización. Pero si lo que quiero es pulsando el botón me realice la...
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Autofiltro: no se ejecuta en la macro

Genero una macro en Excel que rastrea una tabla Excel y filtra una columna concreta: 1)Autofiltro personalizado (para seleccionar sólo datos entre una fecha y otra), acepta las opciones del autofiltro (columna F) 2) Voy a otra columna (columna K) y...
2 respuestas

Álgebra y programación lineal

Estopy estudiando ingeniería industrial y debo realizar un trabajo de programación lineal por el método simplex y gráfico que contenga 2 variables y 5 restricciones. En lo posible si te encuentras conectado te agradezco que me ayudes es urgente
2 respuestas

Ocultar filas con Valores en Cero

Cree una Macro simple en excel, para que en un rango de por ejemplo F5 a F14000, busque los valores en cero en la columna, y oculte directamente la fila completa. Esto lo hice con un hidden. Row El problema es que la ejecución de la Macro es muy...
1 respuesta

Pasar información de una hoja de excel a otra

No c como pasar datos de una hoja de excel a otra Por medio de una macro utilizando visual basic Haciendo comparaciones
1 respuesta