Determining VBA Code for Goal Seek

Can someone please tell me what the VBA would be for the following question:

You need to plot the series of x,y points that solve the equation
exp(x+y)=(x^2)/y - y^2
For the range of x values shown below. Set up the Excel worksheet to solve this problem using Goal Seek for each row. Write a VBA macro program that uses a FOR/NEXT loop that can be associated with the command button to solve the entire problem. You can use the extra columns if desired.

NOTE: THe problem also has screen shot of excel looking like this:


[SOLVE FOR Y] <------Button
A B C D
4 x y
5 1
6 2
7 3
8 4
9 5
10 6


I appreciate the help!
Brandon

Originally Posted by TMShucks

Are you just going to hand in whatever solution you're given and take the credit?

I hope there's an exam ;-)

correct...so you want to help me out?

Set a cell say A1 =exp(A2+B2)
Set a ell say B1 = (A2^2)/B2 -B2^2
Set a cell say D1 = A1 - B1
You want to set this cell =0 in your goal seek function.
Say x = 1 is in cell A5 and the corresponding y is in Cell B5 and you want to calculate to x = 5

sub ()
Dim a as Integer
For a = 0 To 4
    Range("A5").Offset(a, 0).Select
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Range("B2").Value = 1
    Range("D1").Select
    Range("D1").GoalSeek Goal:=0, ChangingCell:=Range("B2")
    Range("B2").Select
    Range("B2").Copy Range("B5").Offset(a, 0)
Next a
End Sub

So I use Cell A2 and B2 to do separate each scenario. There is a way to do it without this workaround but this is the same way as I have in my code. As for the first part of your request. Just add a command button to where ever you like on your page and then right click it and assign a macro (ie. what ever you name this one) and voila