Macro para automatizar Solver
Publicado por Laura (8 intervenciones) el 27/03/2019 10:08:37
Hola, mi objetivo con esta macro es automatizar Solver, para que me haga un solver por cada fila de una tabla. El problema es que cuando activo la macro, solo se resuelve el solver para la primera fila, y todas las demás no se cambian.
Otro problema es que quiero que no salga al final de cada resolución la ventana donde solver te dice si aceptas o no su solución, y tengo código al final para ello, pero tampoco funciona.
¿Cuál puede ser el error? Gracias.
Otro problema es que quiero que no salga al final de cada resolución la ventana donde solver te dice si aceptas o no su solución, y tengo código al final para ello, pero tampoco funciona.
¿Cuál puede ser el error? Gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub SolverMacro()
'Variable i para el bucle
Dim i As Integer
'Bucle
For i = 0 To 4' SolverMacro Macro
SolverReset
SolverOk SetCell:="$N$2", MaxMinVal:=3, ValueOf:=44, ByChange:="$M$2", Engine:= _
1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$N$2", MaxMinVal:=3, ValueOf:=44, ByChange:="$M$2", Engine:= _
1, EngineDesc:="GRG Nonlinear"
SolverSolve
'Para que no salga lo del Solver todas las veces
SolverSolve userFinish:=True
SolverFinish KeepFinal:=1
Next i
End Sub
Valora esta pregunta
0