I am using the goalseek as follows

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("E5")

Sometimes I don't get a result. Manual running of the goal seek would give
me: May not have found a solution.
Whereas in VBA I don't get such a warning and the result is dumped in my
oupput cell. Is there some kind of flag or anything which could tell me if
the goal seek has found a solution or not...?


--
- Mangesh
------------------------------------------
Office 2003 & Windows XP

Check if the goal is met.

--
Regards,
Tom Ogilvy

"Mangesh Yadav" wrote in message
...
I am using the goalseek as follows

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("E5")

Sometimes I don't get a result. Manual running of the goal seek would give
me: May not have found a solution.
Whereas in VBA I don't get such a warning and the result is dumped in my
oupput cell. Is there some kind of flag or anything which could tell me if
the goal seek has found a solution or not...?


--
- Mangesh
------------------------------------------
Office 2003 & Windows XP

Hi Tom,

Thanks.
So thats the only way.

Mangesh




"Tom Ogilvy" wrote in message
...
Check if the goal is met.

--
Regards,
Tom Ogilvy

"Mangesh Yadav" wrote in message
...
I am using the goalseek as follows

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("E5")

Sometimes I don't get a result. Manual running of the goal seek would
give
me: May not have found a solution.
Whereas in VBA I don't get such a warning and the result is dumped in my
oupput cell. Is there some kind of flag or anything which could tell me
if
the goal seek has found a solution or not...?


--
- Mangesh
------------------------------------------
Office 2003 & Windows XP

It isn't the only way. You could consult the help on goalseek and see:

"Returns True if the goal seek is successful."

Dim bRes as Boolean
bRes = Range("H5").GoalSeek( Goal:=0, ChangingCell:=Range("E5"))

Trusting the help - I haven't tested it.


--
Regards,
Tom Ogilvy


"Mangesh Yadav" wrote in message
...
Hi Tom,

Thanks.
So thats the only way.

Mangesh




"Tom Ogilvy" wrote in message
...
Check if the goal is met.

--
Regards,
Tom Ogilvy

"Mangesh Yadav" wrote in message
...
I am using the goalseek as follows

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("E5")

Sometimes I don't get a result. Manual running of the goal seek would
give
me: May not have found a solution.
Whereas in VBA I don't get such a warning and the result is dumped in
my
oupput cell. Is there some kind of flag or anything which could tell
me
if
the goal seek has found a solution or not...?


--
- Mangesh
------------------------------------------
Office 2003 & Windows XP

Hi Tom,

Thank you very much. Will give it a try, and if it does not work, will come
back.

Mangesh



"Tom Ogilvy" wrote in message
...
It isn't the only way. You could consult the help on goalseek and see:

"Returns True if the goal seek is successful."

Dim bRes as Boolean
bRes = Range("H5").GoalSeek( Goal:=0, ChangingCell:=Range("E5"))

Trusting the help - I haven't tested it.


--
Regards,
Tom Ogilvy


"Mangesh Yadav" wrote in message
...
Hi Tom,

Thanks.
So thats the only way.

Mangesh




"Tom Ogilvy" wrote in message
...
Check if the goal is met.

--
Regards,
Tom Ogilvy

"Mangesh Yadav" wrote in message
...
I am using the goalseek as follows

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("E5")

Sometimes I don't get a result. Manual running of the goal seek
would
give
me: May not have found a solution.
Whereas in VBA I don't get such a warning and the result is dumped
in
my
oupput cell. Is there some kind of flag or anything which could tell
me
if
the goal seek has found a solution or not...?


--
- Mangesh
------------------------------------------
Office 2003 & Windows XP

Hi Tom / Dana,

It works, and works well. Thanks to both of you.

Mangesh




"Tom Ogilvy" wrote in message
...
It isn't the only way. You could consult the help on goalseek and see:

"Returns True if the goal seek is successful."

Dim bRes as Boolean
bRes = Range("H5").GoalSeek( Goal:=0, ChangingCell:=Range("E5"))

Trusting the help - I haven't tested it.


--
Regards,
Tom Ogilvy


"Mangesh Yadav" wrote in message
...
Hi Tom,

Thanks.
So thats the only way.

Mangesh




"Tom Ogilvy" wrote in message
...
Check if the goal is met.

--
Regards,
Tom Ogilvy

"Mangesh Yadav" wrote in message
...
I am using the goalseek as follows

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("E5")

Sometimes I don't get a result. Manual running of the goal seek
would
give
me: May not have found a solution.
Whereas in VBA I don't get such a warning and the result is dumped
in
my
oupput cell. Is there some kind of flag or anything which could tell
me
if
the goal seek has found a solution or not...?


--
- Mangesh
------------------------------------------
Office 2003 & Windows XP

Hi Tom,

Actually had checked the help before, but hadn't bothered to go through the
first part where it said: Returns True if the goal seek is successful. Just
checked the example and didn't find anything like a flag for success. Guess
the example always doesn't show everything. Anyway, thanks again.

Mangesh




"Tom Ogilvy" wrote in message
...
It isn't the only way. You could consult the help on goalseek and see:

"Returns True if the goal seek is successful."

Dim bRes as Boolean
bRes = Range("H5").GoalSeek( Goal:=0, ChangingCell:=Range("E5"))

Trusting the help - I haven't tested it.


--
Regards,
Tom Ogilvy


"Mangesh Yadav" wrote in message
...
Hi Tom,

Thanks.
So thats the only way.

Mangesh




"Tom Ogilvy" wrote in message
...
Check if the goal is met.

--
Regards,
Tom Ogilvy

"Mangesh Yadav" wrote in message
...
I am using the goalseek as follows

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("E5")

Sometimes I don't get a result. Manual running of the goal seek
would
give
me: May not have found a solution.
Whereas in VBA I don't get such a warning and the result is dumped
in
my
oupput cell. Is there some kind of flag or anything which could tell
me
if
the goal seek has found a solution or not...?


--
- Mangesh
------------------------------------------
Office 2003 & Windows XP

Here's another option:

Dim Ok As Boolean
Ok = Range("B1").GoalSeek(Goal:=0, ChangingCell:=Range("A1"))

I've never seen that message though. Maybe your function is highly
oscillatory. If so, perhaps as a general idea you can begin with a
different starting value.
You will want to limit the number of loops here though.

Do While Not Ok
[A1] = [A1] + 100 * Rnd - 50
Ok = Range("B1").GoalSeek(Goal:=0, ChangingCell:=Range("A1"))
Loop

Again, just a general idea to try.
Note that a True result (ie Found a solution) is returned if the answer is
close. Looks like "Close" is around 10^-4.

HTH
--
Dana DeLouis
Win XP & Office 2003


"Mangesh Yadav" wrote in message
...
Hi Tom,

Thanks.
So thats the only way.

Mangesh




"Tom Ogilvy" wrote in message
...
Check if the goal is met.

--
Regards,
Tom Ogilvy

"Mangesh Yadav" wrote in message
...
I am using the goalseek as follows

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("E5")

Sometimes I don't get a result. Manual running of the goal seek would
give
me: May not have found a solution.
Whereas in VBA I don't get such a warning and the result is dumped in
my
oupput cell. Is there some kind of flag or anything which could tell me
if
the goal seek has found a solution or not...?


--
- Mangesh
------------------------------------------
Office 2003 & Windows XP

Here's an example of a Polynomial that has no zero solution. The program
tries 100 times and gives up.

Sub Demo()
Dim Ok As Boolean
Dim Counter As Long

[A1].Clear
[B1].Formula = "=5*A1^2-2*A1+5"

Do While Not Ok And Counter < 100
[A1] = [A1] + 1000 * Rnd - 500
Ok = Range("B1").GoalSeek(Goal:=0, ChangingCell:=Range("A1"))
Counter = Counter + 1
Loop

If Counter = 100 Then
MsgBox ("No solution found in 100 attempts")
End If
End Sub


Another option may be to limit your starting values to a specific range.
Maybe something like:

For j = -10 To 10 Step 0.1
[A1] = j
ok = Range("B1").GoalSeek(Goal:=0, ChangingCell:=Range("A1"))
If ok Then Exit For
Next j

--
Dana DeLouis
Win XP & Office 2003


"Dana DeLouis" wrote in message
...
Here's another option:

Dim Ok As Boolean
Ok = Range("B1").GoalSeek(Goal:=0, ChangingCell:=Range("A1"))

I've never seen that message though. Maybe your function is highly
oscillatory. If so, perhaps as a general idea you can begin with a
different starting value.
You will want to limit the number of loops here though.

Do While Not Ok
[A1] = [A1] + 100 * Rnd - 50
Ok = Range("B1").GoalSeek(Goal:=0, ChangingCell:=Range("A1"))
Loop

Again, just a general idea to try.
Note that a True result (ie Found a solution) is returned if the answer
is close. Looks like "Close" is around 10^-4.

HTH
--
Dana DeLouis
Win XP & Office 2003


"Mangesh Yadav" wrote in message
...
Hi Tom,

Thanks.
So thats the only way.

Mangesh




"Tom Ogilvy" wrote in message
...
Check if the goal is met.

--
Regards,
Tom Ogilvy

"Mangesh Yadav" wrote in message
...
I am using the goalseek as follows

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("E5")

Sometimes I don't get a result. Manual running of the goal seek would
give
me: May not have found a solution.
Whereas in VBA I don't get such a warning and the result is dumped in
my
oupput cell. Is there some kind of flag or anything which could tell
me
if
the goal seek has found a solution or not...?


--
- Mangesh
------------------------------------------
Office 2003 & Windows XP

Hi Dana

Thank you very much. Will give it a try, and if it does not work, will come
back.
Yes, my function does not always have a solution. It is based on the
different values that I supply to it. It is bound to fail for a few.

Mangesh



"Dana DeLouis" wrote in message
...
Here's another option:

Dim Ok As Boolean
Ok = Range("B1").GoalSeek(Goal:=0, ChangingCell:=Range("A1"))

I've never seen that message though. Maybe your function is highly
oscillatory. If so, perhaps as a general idea you can begin with a
different starting value.
You will want to limit the number of loops here though.

Do While Not Ok
[A1] = [A1] + 100 * Rnd - 50
Ok = Range("B1").GoalSeek(Goal:=0, ChangingCell:=Range("A1"))
Loop

Again, just a general idea to try.
Note that a True result (ie Found a solution) is returned if the answer
is
close. Looks like "Close" is around 10^-4.

HTH
--
Dana DeLouis
Win XP & Office 2003


"Mangesh Yadav" wrote in message
...
Hi Tom,

Thanks.
So thats the only way.

Mangesh




"Tom Ogilvy" wrote in message
...
Check if the goal is met.

--
Regards,
Tom Ogilvy

"Mangesh Yadav" wrote in message
...
I am using the goalseek as follows

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("E5")

Sometimes I don't get a result. Manual running of the goal seek would
give
me: May not have found a solution.
Whereas in VBA I don't get such a warning and the result is dumped in
my
oupput cell. Is there some kind of flag or anything which could tell
me
if
the goal seek has found a solution or not...?


--
- Mangesh
------------------------------------------
Office 2003 & Windows XP