Goal Seek in a loop
 

I have used the following to run a simple goalseek on one line.

Range("AE3").Select
Range("AE3").GoalSeek Goal:=0, ChangingCell:=Range("AA3")

Is it possible to get this doen in a loop acting on every entry in column AE?

Brother wrote:
I have used the following to run a simple goalseek on one line.

Range("AE3").Select
Range("AE3").GoalSeek Goal:=0, ChangingCell:=Range("AA3")

Is it possible to get this doen in a loop acting on every entry in column AE?


How about something of the form:

x=3
y$ = "AE" + FORMAT(x,"#")
while range(y$) 0
Do your stuff here
x = x+1
wend

Bill

Brother wrote:
I have used the following to run a simple goalseek on one line.

Range("AE3").Select
Range("AE3").GoalSeek Goal:=0, ChangingCell:=Range("AA3")

Is it possible to get this doen in a loop acting on every entry in column AE?


How about something of the form:

x=3
y$ = "AE" + FORMAT(x,"#")
while range(y$) 0
Do your stuff here
x = x+1
y$ = "AE" + FORMAT(x,"#")
wend

Bill

Goal Seek in a loop
 

Bill,

How would you change the macro if the data is in rows instead of columns?

Dave

"Bill Martin -- (Remove NOSPAM from addre" wrote:

Brother wrote:
I have used the following to run a simple goalseek on one line.

Range("AE3").Select
Range("AE3").GoalSeek Goal:=0, ChangingCell:=Range("AA3")

Is it possible to get this doen in a loop acting on every entry in column AE?


How about something of the form:

x=3
y$ = "AE" + FORMAT(x,"#")
while range(y$) 0
Do your stuff here
x = x+1
y$ = "AE" + FORMAT(x,"#")
wend

Bill