Enter the percentage in cell A1, how to automatic update the data in columns C,H,M,R,W,AB,

[Sakurayuki]

Enter the percentage in cell A1, how to automatic update the data in columns C,H,M,R,W,AB,AG,AL at once

VBA CODE
Example: C2 data is 1.7, C2 wants to change to 1.87 (C2+C2*$A$1) (1.7+1.7*10%=1.87) C3:C34 Other analogy
Example: H2 data is 2.92, H2 wants to change to 3.212 (H2+H2*$A$1) (2.92+2.92*10%=3.212) H3:H34 Other analogy

Any help would be appreciated! Thanks

[jindon]

To sheet1 code module

Please Login or Register  to view this content.

[Sakurayuki]

Excellent solution. Thank you Mr jindon , Thank you very much for the solution.

[Sakurayuki]

jindon Guru , How to put the following code

.Value = Evaluate("if(isnumber(" & .Address & ")," & .Address & _
"+" & .Address & "*a1,if(" & .Address & "<>""""," & .Address & ",""""))")


Modify it like this , maybe C2 is .address

C2 =IF($A$1>0,ROUND(C2/(1-$A$1),2),ROUND(C2-C2*ABS($A$1),2))
C3 =IF($A$1>0,ROUND(C3/(1-$A$1),2),ROUND(C3-C3*ABS($A$1),2))
..
.



H2 =IF($A$1>0,ROUND(H2/(1-$A$1),2),ROUND(H2-H2*ABS($A$1),2))

[jindon]

Try change to

Please Login or Register  to view this content.

and see if this works as you expected...

[Sakurayuki]

Fantastic exactly what I was looking for. Very much appreciated it.