Increase range by %

[leatherface250]

Hello, new to Excel and have a question. I would like to be able to input a percentage in the top cell which automatically calculates the percentage increase to all the other selected cells below it. Is there a formula for this? For example, if I put 2% in the above cell, the rest of the column increases by 2% (1836 in first cell, and so on.) Any help greatly appreciated, thanks!

 

[Peter_SSs]

Welcome to the MrExcel board!

If you are happy to have the results in another column then you could do it like below.
If you want the original numbers over-written, then a vba solution would be required. Post back if you need/want that type of solution.

22 08 02.xlsm
	A	B
1	10%
2
3	500	550
4	2,300	2,530
5	40	44
Increase

Cell Formulas
Range	Formula
B3:B5	B3	=A3*(1+A$1)

 

[leatherface250]

I would like the original numbers overwritten, so VBA solution would be perfect. Thanks!

 

[Peter_SSs]

Does it really have to involve selecting the cells first? For one thing, Increasing "Quarter 1" by a percentage would be tricky.
Are the numbers that need to be increased in a particular range?
.. or is there a variable number of rows but it is all the numbers down to the first formula?
.. or some other way for the code to work out which cells to apply the process to?

 

[jolivanes]

Goes in the sheet module.
It is triggered by changing A1. Fill in a 2 for 2 percent, a 5 for five percent etc.
The range it works on is A3 to the cell above the last cell that has the sum formula

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
    If Target.Address = "$A$1" Then
        For i = 3 To Cells(Rows.Count, 1).End(xlUp).Offset(-1).Row
            Cells(i, 1).Value = Cells(i, 1).Value + (Cells(i, 1).Value / 100) * Cells(1, 1).Value
        Next i
    End If
End Sub