Inverse Percentage

[gergo1001]

Hi All,

I'm trying to show the inverse percentage of a number, and I am struggling to figure out how to do it. Can you please give a it a look and let me know if you can help me. So basically what I'm trying to achieve is if its comes up as 99% I would like it to show as 1%. Here is the Macro which convert the numbers into percentage.

Sub Convert2019VariancePercentage()
'
' Convert2019VariancePercentage Macro
'


'
Range("R:R,U:U,X:X,AA:AA,AD:AD").Select
Range("AD1").Activate
ActiveWindow.SmallScroll ToRight:=8
Range("R:R,U:U,X:X,AA:AA,AD:AD,AG:AG,AJ:AJ,AM:AM").Select
Range("AM1").Activate
ActiveWindow.SmallScroll ToRight:=12
Range("R:R,U:U,X:X,AA:AA,AD:AD,AG:AG,AJ:AJ,AM:AM,AP:AP,AS:AS,AV:AV,AY:AY"). _
Select
Range("AY1").Activate
ActiveWindow.SmallScroll ToRight:=5
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 1
Selection.NumberFormat = "0.0%"
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 1
Range("P4:P5").Select
End Sub



Many Thanks

gergo1001

 

[James006]

Hello,

Why a macro ...???

What about a simple formula

=1 - yourPercentage

HTH

 

[Eric W]

Clearly you used the Macro Recorder to create that, and you ended up recording a lot of unnecessary steps. The only significant line is where you set the number format, so the entire macro could be replaced with:

Sub Convert2019VariancePercentage()
'
' Convert2019VariancePercentage Macro

     Range("AY1").NumberFormat = "0.0%"

End Sub

As far as creating the "inverse percentage", as described, all you need to do is subtract the percentage from 1, e.g.

=1-A1

However, depending on what you're doing, that could be mathematically suspect. What are you trying to achieve?