help - too many decimal places...

[RTE]

Formula result, then copy>paste special/values returned 3.40660841070453

I need to change cell data to 3.40.

Format > decimals (2) does not change data to what I need.

Any ideas on how to reduce the data to only 2 decimal places?

Thanks.

 

[diannesdesigns]

Said another way...

I was hoping to display only the rounded value of the cells - not simply the formatted appearance of 2 decimal places.

Make sense what I'm after?

 

[mjrofra]

Hi,

maybe you can use "presicion as displayed":

http://office.microsoft.com/en-au/excel-help/set-rounding-precision-HA010218870.aspx

or something like this with the selected data:

Sub test()
    With Selection
        .Value = Evaluate("index(round(" & .Address & ",2),)")
        .NumberFormat = "#.00"
    End With
End Sub

 

[repairman615]

This vba line will take the number in A1 (54.6546546465) and round it off to two decimal places and insert that rounded value back into A1 (54.6500000000), leaving no hidden numbers in the thousandths, tenthousandths and beyond.

Range("a1").Value = Application.WorksheetFunction.round(Range("a1").Value, 2)