Adding to existing formulas for multiple rows in one blanket command

[dmoore702]

I've got 16 columns that have 20 rows that have different formulas (=Tournament!$E$14+Tournament!$E$15, =Tournament!$I$10+Tournament!$I$11), the numbers are coming from a different tab.
However, some of the columns I want to add a *2 multiple, others a *.5 addition to the existing formula. Is there any way to make blanket changes to all the rows of individual columns without heading into each individual cell??

 

[offthelip]

You haven't stated where the equations are, but this code will multiply the equations in A2 to A20 by 2, modify it to do what you want;

Sub test()
inarr = Range("A2:A20").Formula
  For i = 1 To UBound(inarr, 1)
   inarr(i, 1) = "=2*(" & Mid(inarr(i, 1), 2) & ")"
  Next i
  Range("A2:A20").Formula = inarr

End Sub

 

[dmoore702]

So the current equations are in columns 6-8 (there's 16 columns for individual golf tournaments). Four of the tournaments will be worth double points, so I want to take the existing formula and have it multiplied by 2, and two of the tournaments cut in half, so multiplied by 0.5. Still use that VBA code? Thanks for your help.
Dennis

 

[offthelip]

To change the equations in column 6 which is column F just change the two references "A2":A20" to "F2:F20" , i.e just change the references to change the column ,
to change the mulitplier just change the string: "=2*(" to "=0.5*("
i.e just change the constant 2 to what ever number you like.
use it as many times as you like just keep changing the references and the constant