Solver
Hola;
Quisiera saber, si hay posibilidad de colocar el valor de una celda, en el valor de la celda objetivo de Solver(o con el valor de:-en Buscar Objetivo-), y no tener que tipiarlo. Esto es útil en macros.En Quattro, que es lo poco que conozco, se puede hacer, automatizando la macro, sin tener que entrar ningún valor. Gracias
Quisiera saber, si hay posibilidad de colocar el valor de una celda, en el valor de la celda objetivo de Solver(o con el valor de:-en Buscar Objetivo-), y no tener que tipiarlo. Esto es útil en macros.En Quattro, que es lo poco que conozco, se puede hacer, automatizando la macro, sin tener que entrar ningún valor. Gracias
Respuesta de fejoal
1
Si claro, es posible.
También necesitarás una macro que reproduzca el proceso, en MS Excel usando Visual Basic for Applications (VBA)
Activa el editor de Visual Basic (presiona Alt+F11), inserta un nuevo módulo ("Insertar", "´Modulo") y pega el siguiente código:
Sub BuscaOb()
'Ingresa aquí la celdas :
CeldaObj = "A4" 'donde está el resultado deseado
CeldaForm = "C10" ' donde está la fórmula que deberá dar el resultado
CeldaCambia = "C8" ' donde está el valor a modificar
'=========================
Set Goalcell = Range(CeldaObj)
Set Formcell = Range(CeldaForm)
Set Changecell = Range(CeldaCambia)
Formcell.GoalSeek Goal:=Goalcell, ChangingCell:=Changecell
End Sub
---
Como no sé cuales son tus celdas involucradas, dejé como variables dentro del código sus respectivas direcciones. Cámbialas por las tuyas propias.
Cierra el Editor y graba tu archivo.
Luego basta ejecutar la macro
BuscaOb() para que, cambiando la celda C8 (CeldaCambia), la fórmula en C10 (CeldaForm) dé el mismo resultado que haya en la celda A4 (CeldaObj)
Esto debería resolver tu pregunta. Si así fuera, agradeceré un comentario y que la finalices.
Si no, pregúntame de nuevo.
Un abrazo!
Fernando
"Me lo explicaron y lo olvidé,
lo leí y lo entendí,
lo hice y lo aprendí".
(Considera que la valoración que figura predeterminada
es 3/5. Tal vez quieras cambiarla...)
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.
También necesitarás una macro que reproduzca el proceso, en MS Excel usando Visual Basic for Applications (VBA)
Activa el editor de Visual Basic (presiona Alt+F11), inserta un nuevo módulo ("Insertar", "´Modulo") y pega el siguiente código:
Sub BuscaOb()
'Ingresa aquí la celdas :
CeldaObj = "A4" 'donde está el resultado deseado
CeldaForm = "C10" ' donde está la fórmula que deberá dar el resultado
CeldaCambia = "C8" ' donde está el valor a modificar
'=========================
Set Goalcell = Range(CeldaObj)
Set Formcell = Range(CeldaForm)
Set Changecell = Range(CeldaCambia)
Formcell.GoalSeek Goal:=Goalcell, ChangingCell:=Changecell
End Sub
---
Como no sé cuales son tus celdas involucradas, dejé como variables dentro del código sus respectivas direcciones. Cámbialas por las tuyas propias.
Cierra el Editor y graba tu archivo.
Luego basta ejecutar la macro
BuscaOb() para que, cambiando la celda C8 (CeldaCambia), la fórmula en C10 (CeldaForm) dé el mismo resultado que haya en la celda A4 (CeldaObj)
Esto debería resolver tu pregunta. Si así fuera, agradeceré un comentario y que la finalices.
Si no, pregúntame de nuevo.
Un abrazo!
Fernando
"Me lo explicaron y lo olvidé,
lo leí y lo entendí,
lo hice y lo aprendí".
(Considera que la valoración que figura predeterminada
es 3/5. Tal vez quieras cambiarla...)
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.
