Goal Seek in a loop

[Guest]

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?

 

[Guest]

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

 

[Guest]

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

 

[Guest]

Bill,

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

Dave