Convert Active CellS from function into value

[akuku]

Hi!

I have this little macro as below:

Sub CopyValue()
    ActiveCell.Value = ActiveCell.Value
    ActiveCell.NumberFormat = ActiveCell.NumberFormat
End Sub

It works for only one active cell. What if I want to select mutliple cells (e.g. A1, A13, A34, A130) and use a macro which converts functions already calculated in those cells into values?

Thanks for help!

 

[Luke M]

This would do.

Sub CopyToValues()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
    c.Formula = c.Value
Next c
Application.ScreenUpdating = True
End Sub

 

[akuku]

Thank you! That's very helpful. You have just decreased my time spending on doing that exercise by 25%

 

[NARAYANK991]

Hi ,

You can decrease your time a little more by using the bracket convention ; change the following statement :

c.Formula = c.Value

to :

[c] = [c]

Narayan