Need a rounding Macro

[dustinp43]

Hello, I have a bunch of cells that have numbers that aren't rounded, and I need to round them all to zero, but I still need to show the work, so I need to go into each cell and manually add in the round function.

For example,

If the cell was previously 400*(1.0204/.9709)...I am manually going into each cell and changing the cell text to =round(400*(1.0204/.9709),0). I tried to record a macro doing this, but the macro is taking the text in the cell and applying it generally, so it doesn't work because not all of the cells have the same values.


' Keyboard Shortcut: Ctrl+e
'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=ROUND(400*(1.0204/0.9709),0)"
ActiveCell.Select
End Sub


Basically I want a macro that will put the cursor in the front of the formula and add the "Round(" and then go to the end of the formula and add ",0)"

Is this possible?

Thanks for your help guys

 

[anglais428]

Select your range first then run:

Sub Round()

Dim c As Range

For Each c In Selection
c.Formula = "=round(" & Right(c.Formula, Len(c.Formula) - 1) & ",0)"

Next c

End Sub