Modify an existing Cell formula using VBA
 

If I have a formula in cell A1 that contains the following: "=C1" ...and I
want to KEEP that formula ("=C1") but also ADD to the end if it the
following: "*10" so that it becomes: "=C1*10" using VBA, is that possible?

My users need to select ranges of cells and then multiply them *10 but the
formulas can't be erased while doing this. Right now I have a simple "For
Each MyCell in Selection, MyCell = MyCell*10 but this of course overwrites
the formulas if they are present, so it only works for the cells without
formulas.

Thank You for any advise!!

Modify an existing Cell formula using VBA
 

For Each myCell In Selection
If myCell.HasFormula Then
myCell.Formula = mycell.formula & "*10"
End If
Next myCell

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Matt" wrote in message
...
If I have a formula in cell A1 that contains the following: "=C1" ...and I
want to KEEP that formula ("=C1") but also ADD to the end if it the
following: "*10" so that it becomes: "=C1*10" using VBA, is that possible?

My users need to select ranges of cells and then multiply them *10 but the
formulas can't be erased while doing this. Right now I have a simple "For
Each MyCell in Selection, MyCell = MyCell*10 but this of course overwrites
the formulas if they are present, so it only works for the cells without
formulas.

Thank You for any advise!!

Modify an existing Cell formula using VBA
 

Hey, thank you!

"Bob Phillips" wrote in message
...
For Each myCell In Selection
If myCell.HasFormula Then
myCell.Formula = mycell.formula & "*10"
End If
Next myCell

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"Matt" wrote in message
...
If I have a formula in cell A1 that contains the following: "=C1" ...and
I want to KEEP that formula ("=C1") but also ADD to the end if it the
following: "*10" so that it becomes: "=C1*10" using VBA, is that
possible?

My users need to select ranges of cells and then multiply them *10 but
the formulas can't be erased while doing this. Right now I have a simple
"For Each MyCell in Selection, MyCell = MyCell*10 but this of course
overwrites the formulas if they are present, so it only works for the
cells without formulas.

Thank You for any advise!!