por hansabel » 28 Mar 2006 16:19
Bueno la hoja tiene todas las formulas, y si entras al editor de VB (ALT+F11), podes ver el codigo.
el goalseek hace lo siguiente
Calcula los valores necesarios para alcanzar un objetivo específico. Si el objetivo es una cantidad devuelta por una fórmula, calculará un valor que, cuando se aplique a la fórmula, causará que ésta devuelva el número deseado. Devuelve True si se encuentra el objetivo que se busca.
expresión.GoalSeek(Goal, ChangingCell)
expresión requerida. Expresión que devuelve un objeto Range. Debe ser una sola celda.
Goal Variant requerida. El valor que desea que se devuelva en esta celda.
ChangingCell Range requerido. Especifica la celda que debe cambiarse para obtener el valor objetivo.
Ejemplo
En este ejemplo se supone que Sheet1 tiene una celda denominada "Polynomial" que contiene la fórmula =(X^3)+(3*X^2)+6 y otra celda denominada "X" que está vacía. El ejemplo busca un valor para X a fin de que "Polynomial" contenga el valor 15.
Worksheets("Sheet1").Range("Polynomial").GoalSeek _
Goal:=15, _
ChangingCell:=Worksheets("Sheet1").Range("X")