Convert to million

[sujittalukde]

I am in urgent need of a macro which will convert a range of numbers into million in the manner as we do in formula =round((A1/1000000),2)

Changing number format as 0,, causes Total problem ie due to rounding off the number on the face does not match with total.

User will select a range and then run the macro The code will convert each cell in the range to million Suppose the number in a cell is 1000000, the code will convert it to 1.00 (upto two digits)

 

[Jon von der Heyden]

Hi

Paste this into a module:

Sub t()

For Each c In Selection
    c.Value = Application.WorksheetFunction.Round(c / 1000000, 2)
Next c

End Sub

 

[sujittalukde]

THanks Jon for the promt reply, it is working fully.

 

[Jon von der Heyden]

GREAT, reassured by the fact that I occassionally provide a working solution.