Automatic iteration

[Sinexus]

I have a sheet in Excel that contains an equation which requires me to use the 'Goal seek' function everytime it needs solving. Is there a way to automate this so that the iteration process takes place automatically everytime a value associated with the equation is changed?

 

[kjv1611]

I would think you could do it in VBA. Something like:

(choose the right event to trigger it, first):

Sub WhateverEvent ()
  Dim x as Long 'x = Row
  Dim y as Long 'y = Column
  Dim strFormula as String
  Set strFormula = "=Goal Seek Formula Here"
  Cell(x,y).Formula = strFormula
End Sub

This code may not be exactly what you need, it's more or less the idea. I'm not sure off the top of my head as to what event you would use for it.