Hello All,
I'm trying to create a macro that will perform Goal Seek. I have the following code so far:When I run it, however, I receive the "Run-time error '1004': Application-defined or object-defined error." Any help would be greatly appreciated.
Public Sub Goal_Seek() Application.Worksheets("Sheet3").Range("Test1").GoalSeek _ Goal:=0, _ ChangingCell:=Worksheets("Sheet3").Range("Test2") End Sub
Thanks!
Joe
Are those both single-cell ranges? Does the result converge? Can you post a minimal workbook?
Entia non sunt multiplicanda sine necessitate
VBA Test.xlsm
Here is a sample workbook. The ranges are both just single cells. Thanks!
Test1 is a constant; it has no dependency on the changing cell.
However, cells C1 and D1 depend on Test1. I can perform Goal Seek normally in Excel (without using VBA), and Test1 becomes 16.66. So I don't think that's the issue.
The value in Test1, the GoalSeek cell (which is A1) is 1. That's a constant, not a formula; nothing you do in any other cell is going to change it.
Sure you posted the right workbook?
Or perhaps you meant to set the value of test2 (the cell that contains the formula) to a value of 0 by changing test1 (the input constant)?
Application.Worksheets("Sheet3").Range("Test2").GoalSeek _ Goal:=0, _ ChangingCell:=Worksheets("Sheet3").Range("Test1")
Originally Posted by shg
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
JoeSkittles 
Register To Reply
Bookmarks