yes, maybe its the worksheet itself. I checked the help from what you
posted, and added this and then it worked:
Sub RoundReplace()
For Each c In Worksheets("Allocation Parameters").Range("c2:c74")
c.Value = Application.Round((c.Value), 0)
Next c
End Sub
Is there a way I can prompt for the Range & Worksheet so I can make it a
generic macro? If you can point me to what I can search for it might already
be posted.
Thank you for your help!
"Don Guillett" wrote:
Sub roundreplace()'for one
Range("c4:c5").Value = Application.Round(Range("c4:c5").Value, 2)
End Sub
Sub roundreplacemultiple()
For i = 3 To 5 'colums c:e
lr = Cells(Rows.Count, i).End(xlUp).Row
Range(Cells(4, i), Cells(lr, i)).Value = _
Application.Round(Range(Cells(4, i), _
Cells(lr, i)).Value, 2)
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Abbey Normal" wrote in message
...
Is there a way to both round and replace a column of numbers?
I have a user who has multiple columns, that contained formulas,
so I inserted and copied them to get just the values.
Turns out, the values are decimals, and that he was rounding.
So now, I have to insert a column to round and then insert/copy/paste
special to copy just the values. I have to do this for each column, of
which
there are 10.
Is there a better way to do this?
Thanks,