Help with ROUND

[Paul]

Hi NG,
I would really appriciate some help with this code with a formula,
the calculation works, but I need the result to be rounded
e.g. 34.4 will result in 34
and 34.5 will result in 35.
Can anyone suggest how to modify this code to round the result?
TIA
Paul

Sub TotcalcCpy()
Application.ScreenUpdating = False
Sheets("IMPUT").Select
Range("J2").Select
Set frng = Sheets("IMPUT").Range("J2:J" &
Range("A65536").End(xlUp).Row)
With frng
..Formula = "=IF(F2>0,F2*H2/100,D2*I2)"
..Formula = .Value 'changes the formula to value
End With
Sheets("IMPUT").Select
Range("A1").Select

Application.ScreenUpdating = True
End Sub

 

[Paul]

By the way, I forgot to mention I'm using Excel 2003 on Windows XP.

TIA
Paul

 

[Gary Keramidas]

if you want to round both results, try this

ROUND(IF(F2>0,F2*H2/100,D2*I2),0)

 

[Paul]

Gary,
Thanks very much, that worked far simpler than I expected.
I was playing around with application.worksheetfunction.round
and was getting no where.
Thanks again.

Cheers Paul