how not to go on Loop

[Paulo]

hi,

I am 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...

 

[Paulo]

I actualy was able to manage not looping the macro.
but I have a different ptoblem now...
my code is
Sub Goal ()
Dim total As Long
With Worksheets("Plan1")
total = .Cells("11", "F").Value
'MsgBox (total)
Range("F11").GoalSeek Goal:=total, ChangingCell:=Range("D5")
End With
End sub

the new problem is: if "F11" is smaller than 0.5 , it the long variable
rounds down. if its higher that .05 it rounds up. I always need to be rounded
down, even if my "F11" is 0.999999

i thank in advance for the help
if my