Argument not optional (Error 449)

[PANKAJUTEKAR]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call RoundUp
End Sub

Sub RoundUp()
Dim i As Range
For Each i In Columns("D").SpecialCells(xlCellTypeConstants)
i.Value = WorksheetFunction.RoundUp(i.Value)
Next i
End Sub

I am trying to round off the cell value, but this code give me an error -
Argument not optional (Error 449)

What is this, any idea?

=============


Fine fine , i got it.

I have not put the second argument.

Thank You.

 

[Hermanito]

the RoundUp function needs an extra parameter... you need to specify to round up to how many digits...

Try this:

i.Value = WorksheetFunction.RoundUp(i.Value,1)

That comma might need to be a semicolon, depending on your settings...

 

[PANKAJUTEKAR]

Hey Hi,

Ya, i did that.
Can u plss tell me, how to start this from range n8, instead of Col N

 

[Hermanito]

Column N? You were using column D...

Starting from N8, and then? For what range do you want to do this?

 

[PANKAJUTEKAR]

Ya.. I was practicing on col D it is actually started from N8.

 

[Hermanito]

N8, okay, and then? Down, up, left, right? How far?

 

[PANKAJUTEKAR]

Hi,
Off course down.
B'coz i used col N.

 

[PANKAJUTEKAR]

hey any one pls suggest for this query

 

[RoryA]

Bumping for a reply after a whole 9 minutes is a really good way to put people off answering your questions at all...

 

[Hermanito]

especially when he doesn't answer followup questions himself...

After dragging it out, it's finally clear he needs a range in column N, starting from N8, but we still don't know how far down...

My daily time quota to be here is all used up by now... too bad