Hi all

I have a few hundred excel files which have percentage data in them. I
want to replace that percentage data into a decimal value rounded to
two decimal points.

For example:

15.345000021 (which appears as 15% in the cell) to 15.35

What I would like to do is to open each excel file, highlight all the
cells with percentage values, and apply a macro which will do this
transformation, instead of doing it manually column by column.

I would be very grateful if anyone could guide me to do this.

Thanks
Yousaf

One way:

Public Sub PercentsToDecimal()
Dim rCell As Range
For Each rCell In ActiveSheet.UsedRange.Cells
With rCell
If .NumberFormat Like "*%*" Then
.Value = Application.Round(.Value * 100, 2)
.NumberFormat = "0.00"
End If
End With
Next rCell
End Sub


In article .com,
"Zuzeppeddu" wrote:

Hi all

I have a few hundred excel files which have percentage data in them. I
want to replace that percentage data into a decimal value rounded to
two decimal points.

For example:

15.345000021 (which appears as 15% in the cell) to 15.35

What I would like to do is to open each excel file, highlight all the
cells with percentage values, and apply a macro which will do this
transformation, instead of doing it manually column by column.

I would be very grateful if anyone could guide me to do this.

Thanks
Yousaf

Thanks so much. It works!

On Mar 19, 2:36 pm, JE McGimpsey wrote:
One way:

Public Sub PercentsToDecimal()
Dim rCell As Range
For Each rCell In ActiveSheet.UsedRange.Cells
With rCell
If .NumberFormat Like "*%*" Then
.Value = Application.Round(.Value * 100, 2)
.NumberFormat = "0.00"
End If
End With
Next rCell
End Sub

In article .com,



"Zuzeppeddu" wrote:
Hi all

I have a few hundred excel files which have percentage data in them. I
want to replace that percentage data into a decimal value rounded to
two decimal points.

For example:

15.345000021 (which appears as 15% in the cell) to 15.35

What I would like to do is to open each excel file, highlight all the
cells with percentage values, and apply a macro which will do this
transformation, instead of doing it manually column by column.

I would be very grateful if anyone could guide me to do this.

Thanks
Yousaf- Hide quoted text -

- Show quoted text -