no preguntar si acepta solución en macro con solver

hola, !

Mostrar la cita

Tengo una macro con solver donde necesito que no se detenga a preguntarme si acepto la solucion propuesta.
La solucion que me ofrezca debe ser aceptada sin detenerse y continuar con los siguientes pasos de la macro.
Si alguien tiene alguna idea, agradezco sus comentarios.
El excel que estoy ejecutando es el 2003

seria bueno si comentas el codigo que estas usando (?????)
en via de mientras, ve "dond cabe" (en ese codigo) una instruccion del tipo como la siguiente:

SolvSolve UserFinish:=True

saludos,
hector.

El código es:
Sheets("u+d+t+c+ci").Select
SolverAceptar definirCelda:="$F$5", valorMáxMín:=2, valorDe:="0", _
celdasCambiantes:="$B$1:$B$2"
SolverResolver
SolvSolve UserFinish:=True
Sheets("u+d").Select
SolverAceptar definirCelda:="$F$5", valorMáxMín:=2, valorDe:="0", _
celdasCambiantes:="$B$1:$B$2"
SolverResolver
SolvSolve UserFinish:=True

Pero aún sigue preguntando por la aceptación del resultado!!!

Muchisimas gracias por ayudarme

"Héctor Miguel" wrote:

Mostrar la cita

hola, !

> Tengo una macro con solver donde necesito que no se detenga a preguntarme si acepto la solucion propuesta.
> La solucion que me ofrezca debe ser aceptada sin detenerse y continuar con los siguientes pasos de la macro.
> Si alguien tiene alguna idea, agradezco sus comentarios.
> El excel que estoy ejecutando es el 2003

seria bueno si comentas el codigo que estas usando (?????)
en via de mientras, ve "dond cabe" (en ese codigo) una instruccion del tipo como la siguiente:

SolvSolve UserFinish:=True

saludos,
hector.

hola, Oscar !

lo que sucede es que estas usando las funciones vba del "segundo juego" de idiomas (idioma local) p.e.
la instruccion EN INGLES que te habia sugerido esta "de mas" en el codigo que expones (ELIMINALA !!!)
=> SolvSolve UserFinish:=True

para el "segundo idioma" (espanol) solo necesitas complementar la funcion que utiliza la grabadora de macros
de: -> SolverResolver
a: -> SolverResolver resultadoDeseado:=True

la otra alternativa es que modifiques (todas) las llamadas a funciones Solver. de espanol a ingles
(por si quieres que tus macros guarden compatibilidad si llegan a ejecutarse en otro idioma ?)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
Mostrar la cita

El codigo es:
Sheets("u+d+t+c+ci").Select
SolverAceptar definirCelda:="$F$5", valorMáxMín:=2, valorDe:="0", _
celdasCambiantes:="$B$1:$B$2"
SolverResolver
SolvSolve UserFinish:=True
Sheets("u+d").Select
SolverAceptar definirCelda:="$F$5", valorMaxMín:=2, valorDe:="0", _
celdasCambiantes:="$B$1:$B$2"
SolverResolver
SolvSolve UserFinish:=True

Pero aun sigue preguntando por la aceptacion del resultado!!! ...

Tomé la siguiente opción:
Sheets("u+d+t+c+ci").Select
SolverAceptar definirCelda:="$F$5", valorMáxMín:=2, valorDe:="0", _
celdasCambiantes:="$B$1:$B$2"
SolverSolve UserFinish:=True
SolverFinish keepfinal:=1
Sheets("u+d").Select
SolverAceptar definirCelda:="$F$5", valorMáxMín:=2, valorDe:="0", _
celdasCambiantes:="$B$1:$B$2"
SolverSolve UserFinish:=True
SolverFinish keepfinal:=1

Y funcionó.

Lo que indicas es correcto, tenia una mezcla de idiomas.
Funciona perfectamente!!!!

Gracias por tu amable ayuda


"Héctor Miguel" wrote:

Mostrar la cita

hola, Oscar !

lo que sucede es que estas usando las funciones vba del "segundo juego" de idiomas (idioma local) p.e.
la instruccion EN INGLES que te habia sugerido esta "de mas" en el codigo que expones (ELIMINALA !!!)
=> SolvSolve UserFinish:=True

para el "segundo idioma" (espanol) solo necesitas complementar la funcion que utiliza la grabadora de macros
de: -> SolverResolver
a: -> SolverResolver resultadoDeseado:=True

la otra alternativa es que modifiques (todas) las llamadas a funciones Solver. de espanol a ingles
(por si quieres que tus macros guarden compatibilidad si llegan a ejecutarse en otro idioma ?)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
> El codigo es:
> Sheets("u+d+t+c+ci").Select
> SolverAceptar definirCelda:="$F$5", valorMáxMín:=2, valorDe:="0", _
> celdasCambiantes:="$B$1:$B$2"
> SolverResolver
> SolvSolve UserFinish:=True
> Sheets("u+d").Select
> SolverAceptar definirCelda:="$F$5", valorMaxMín:=2, valorDe:="0", _
> celdasCambiantes:="$B$1:$B$2"
> SolverResolver
> SolvSolve UserFinish:=True
>
> Pero aun sigue preguntando por la aceptacion del resultado!!! ...