RoundUp not working in VBA

  • Thread starter Thread starter lecoughlin
  • Start date Start date
L

lecoughlin

Can anyone provide insight into why the following is not working?

x = Application.WorksheetFunction.RoundUp((cost * follow_up), 0)

cost = 1
follow_up = 0.5

but x is coming out as 0 instead of 1

Thanks.
 
I just did this and got 1

Sub rr()
cost = 1
follow_up = 0.5
x = Application.WorksheetFunction.RoundUp((cost * follow_up), 0)
MsgBox x
End Sub
 
It worked for me. However I did put some msgbox to check the values of cost
and follow_up before doing the calculation. I suggest the same, and double
checking the numbers you are feeding into the roundup

I did it like this

Private Sub Test_Click()

Dim Cost As Double
Dim Follow_up As Double
Dim x As Double

Cost = 1

MsgBox Cost

Follow_up = 0.5

MsgBox Follow_up

x = Application.WorksheetFunction.RoundUp((Cost * Follow_up), 0)

MsgBox x


End Sub
 
It's working here when cost and follow_up are defined before X.

You may want to add a debug.print

Debug.print Cost, Follow_UP

before the X =

to see what you really have.
 
Figured out the problem -- follow_up was dimmed as an integer so it
was = 0 instead of 0.5

Thanks!
 
I see you have resolved your problem, but I thought I might mention that
although VB does not have a ROUNDUP function equivalent without going to the
worksheet functions, there is a simple math procedure to do the same thing
you are looking for (round up to an integer)...

If Variable is always non-negative: x = -Int(-Variable)

If negative values are permitted: x = -Sgn(R) * Int(-Abs(R))
 
Back
Top