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(F20,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

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

TIA
Paul

if you want to round both results, try this

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

--


Gary


"Paul" wrote in message
oups.com...
By the way, I forgot to mention I'm using Excel 2003 on Windows XP.

TIA
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


Gary Keramidas wrote:
if you want to round both results, try this

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

--


Gary