Goal Seek

alexshahidi · Mar 20th, 2002, 08:54 AM

I am trying to set up something like Goal Seek in VBA so
that I can run the following calculation (which has been
simplified):

A1 = X
A2 = A1*100
A3 = 500

I want to write VBA code that will calculate "X" for A1 to
equal 5 (since X*100=500). I cannot rewrite the formula in
A1 because A2 is actually a combination of hundreds of
formulas. Also, I can't use Goal Seek. I need something
that will run random numbers until it finds a match. Any
ideas? Thanks.

Mark W. · Mar 20th, 2002, 02:01 PM

Why have you concluded that you can't use Goal Seek? Won't this work...

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 20th, 2002, 08:54 AM	#1
alexshahidi New Member Join Date: Mar 2002 Posts: 1	I am trying to set up something like Goal Seek in VBA so that I can run the following calculation (which has been simplified): A1 = X A2 = A1100 A3 = 500 I want to write VBA code that will calculate "X" for A1 to equal 5 (since X100=500). I cannot rewrite the formula in A1 because A2 is actually a combination of hundreds of formulas. Also, I can't use Goal Seek. I need something that will run random numbers until it finds a match. Any ideas? Thanks.

Mar 20th, 2002, 02:01 PM	#2
Mark W. MrExcel MVP Join Date: Feb 2002 Location: Austin, Texas USA Posts: 11,654	Why have you concluded that you can't use Goal Seek? Won't this work... Range("A2").GoalSeek Goal:=Range("A3"), ChangingCell:=Range("A1")