Goal Seek

[Paulo]

hi,

I ma trying to do a button that run a goalseek function.

the thing is:

Range("D21").GoalSeek Goal:=x, ChangingCell:=Range("D14")

the valeu X gotta be the ("D21") Value, rounded by 0
exemple if ("D21") is "12.32" X = 12
any way, i cant manage to doit without creating a loop, because as soons as
D21 is 12, X=0

i was able to make it wokr with a nasty copy and past.value way, but would
like to learn some other way...

Thanks in advance...