Rounding macro

[linesy]

Hi all,

I have a worksheet that pulls in data from another source that has 7+ decimal places so when I summarize the data I have balancing issues with the rounding.

Does anyone have a macro that will take the data in cells D34:E49, G34:HE49, J34:K49, M34:N49, round and absolute the numbers to 1 decimale place?

Thanks so much in advance

 

[steve the fish]

Try this on a copy of your workbook:

Set x = Range("D34:E49,G34:H49,J34:K49,M34:N49")
For Each c In x.Areas
    c.Value = Evaluate("=IFERROR(IF(LEN(" & c.Address & ")>0,ROUND(" & c.Address & ",1),"""")," & c.Address & ")")
Next

 

[Joe4]

Try this:

Sub MyMacro()


    Dim myRange As Range
    Dim cell As Range
        
    Application.ScreenUpdating = False
            
    Set myRange = Range("D34:E49, G34:H39, J34:K49, M34:N49")
    
    For Each cell In myRange
        cell = Round(Abs(cell), 1)
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub

 

[linesy]

Thanks so much, worked great !!!

 

[linesy]

Thanks so much, worked great !!! I actually ended up using this one, thanks Steve