Replace Substitute

[woodymcglathery]

Good morning,

Here is a portion of a macro I am working on. It would move the decimal point, for example (14.3 to .143), in order to format the number to %. It works fine however, until the whole number is 100. It will then ultimately change it to 10%. I know that if I were to edit the code below to "=REPLACE(SUBSTITUTE(E2,""."",""""),2,0,""."")+0" then it will enable the number to actually show 100%. Yet, we both know what that does to all numbers below 100. I am struggling with wording the If/Then or whatever other code I should insert. Hopefully I am making sense in what I need help for.

Range("D2").Select
ActiveCell.Value = "=REPLACE(SUBSTITUTE(E2,""."",""""),1,0,""."")+0"
Selection.Style = "Percent"
Selection.NumberFormat = "0.0%"

 

[Joe4]

Why not just divide the values by 100 and then apply your formatting?

 

[woodymcglathery]

Thank you so much!

 

[Joe4]

You are welcome!
Glad I was able to help.