Goal Seek

[Guest]

Is there a way to perform the same function as Goal Seek, but base the inputs
off of cells in a worksheet rather than actually having to click through the
menu and enter link to the cells each time?

Also, is there a way to have Goal Seek output the required figure to meet
your objective output without actually changing the input cell?

 

[csw78]

Don't know if this is what you're looking for. Basically, it performs
goal seek everytime the worksheet calculates. You can choose to invoke
goal seek with macro or click of a button. There are plenty of ways to
perform goal seek.

Private Sub worksheet_calculate()

_On_Error_GoTo_TheEnd
Application.EnableEvents_=_False_

Range("A1").GoalSeek Goal:=Range("A2"), ChangingCell:=Range("A3")

_TheEnd:
Application.EnableEvents_=_True_
End Sub

Make sure you have those underlines, or excel might loops forever.
If you don't understand. Please ask again. Good Luck.