VBA Code to Multiple Specific Cells by Cell Value

[rbellavance22]

Hello,

I have a worksheet with various dollar amounts in multiple cells.

I would like to come up with a VBA Code to increase specific cells (B14, C14, D14, B15, C15, D15) by a percentage that is set by a cell value (cell A1).

Any help would be greatly appreciated!

 

[rbellavance22]

Great, thank you for your help.

One last thing: if I wanted to add two additional cells, C45 and D81, how would I do that?

How about

Sub IncreaseByPercentage()
  With Range("B14:D15")
    .Value = Evaluate("if({1},ceiling(A1*" & .Address & ",0.05))")
  End With
End Sub

 

[Fluff]

Why have you just duplicated post#9? Please do not duplicate your posts in future.

 

[rbellavance22]

It was an accident. Won't happen again.

Why have you just duplicated post#9? Please do not duplicate your posts in future.

 

[Fluff]

Thanks, did you see post#10?

 

[rbellavance22]

Yes, that is perfect. Thank you again.

Thanks, did you see post#10?

 

[Fluff]

My pleasure

 

[rbellavance22]

I ran into a situation where I need to decrease the cell values based on the value of A1. Is there a simple solution for that?

 

[Fluff]

Change Ceiling to Floor

 

[Peter_SSs]

I ran into a situation where I need to decrease the cell values based on the value of A1. Is there a simple solution for that?

Sample data & expected results?