Please can you assist in automating the goal seek function on the following spreadsheet – i am not familiar with Visual Basics and can’t manage to do this as per your tutorial on my own. I am completely lost.

I’ve uploaded the spreadsheet to my server, the link is:

http://www.reflectbrokers.com/FNA – INCOME NEEDS.xlsx

I will really appreciate it if you guys could work your magic (goal seek is shown on the page)

Thank you very much.

Kind Regards,

Ettienne le Roux

f(x) = (1 / root(2 * PI)) * exp((-1 / 2) * x^2) – (PI /root(3)) * exp((-PI /root(3)) * x) / (1 + exp((-PI /root(3)) * x))

I know that f(x) = 0 has two roots, say x1 and x2.

How can I use Excel (gol seek or macro) to find x1 and x2?

Thanks a lot,

Marco

(elemento82@gmail.com)

Private Sub Worksheet_Calculate()

CheckGoalSeek

End Sub

Private Sub CheckGoalSeek()

Static isWorking As Boolean

If Round(Range(“GoalSeekCell”).Value, 5) 0 And Not isWorking Then

isWorking = True

Dim X As String

X = Range(“B311”).Value

Range(“ByChangingCell”).Value = 0

Range(“GoalSeekCell”).GoalSeek Goal:=X, ChangingCell:=Range(“ByChangingCell”)

isWorking = False

Range(“G12:G310”).Select

Selection.Copy

Range(“B12”).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

End If

End Sub

BUT I get a runtime error 80010108…..

any ideas???

]]>re-read the narrative AND looked again at the file proper … simple named ranges

sorry about that

]]>