Solve / Goal seek problem

[brites]

SOS!!!!
URGENT MATTER!!!!

Hi folks,
here`s the deal:
I have to do a simple goal seek to find an answer (5%) for cell (lets say) Y8, only by changing the "price" cell O8. Ok, so far no problem...
the tricky part is that I have to do the same thing from cell Y9 to Y212 (changing its correspondent cell in Column O), for 13 different sheets.
Is that anyway I can replicate the goal seek/solve function automatically?
Or I will have to do it one by one???

Thx in advance,
Brites.

 

[RalphA]

If you need to have the corresponding cells in column Y contain 5% of the value in the cells in column O, then:
In cell Y8, enter: =O8*5%
and copy down to Y212. Done!

 

[brites]

C'mon u kidding right?

Thx anyway....

 

[MarkVMcCullagh]

What you are saying is you have essentially several hundred goal seeks to do?

 

[RalphA]

Brites wrote:
" have to do a simple goal seek to find an answer (5%) for cell (lets say) Y8, only by changing the "price" cell O8. Ok, so far no problem... "

As I understand it, you have any number of prices in the range O8:O212, and you want to have 5% of the coresponding prices in Y8:Y212.

If that is the problem, then, my solution, above, is correct. Just enter=O8*5% in cell Y8, and copy down. But, pehaps I am not understanding what is needed?

 

[brites]

Yep, thats right... several hundreds...
i tried to make it via macro but i couldnt get it done...

any ideas?

 

[brites]

OK! Finaly I GOT IT DONE:

Dim sv As Double
Dim n As Integer

Sub Macro2()
sv = Cells(4, 155)
For n = 8 To 271
Range("EY" & n).GoalSeek Goal:=sv, ChangingCell:=Range("EO" & n)
Next
End Sub