ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   VBA or Macro solution to convert Percentages to decimals (https://www.excelbanter.com/excel-programming/385570-vba-macro-solution-convert-percentages-decimals.html)

Zuzeppeddu

VBA or Macro solution to convert Percentages to decimals
 
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


JE McGimpsey

VBA or Macro solution to convert Percentages to decimals
 
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


Zuzeppeddu

VBA or Macro solution to convert Percentages to decimals
 
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 -





All times are GMT +1. The time now is 05:25 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com