Use VBA to add to existing number in cell

[Hywel]

I am using a userform to select the data I need in certain cells. However, if there is existing information I want to add the following and not overwrite.

Range("C14").Select
ActiveCell.FormulaR1C1 = _
"=Sheet1!R[-2]C[6]+Sheet2!R[5]C[2]+Sheet3!R[58]C[24]"

Could anyone help,
Thanks
Hywel

[Dave O]

This type of code can lead to a problem: if you take the value of the
cell and add those three other cells, what's to prevent you from
accidentally doing it again, thereby skewing your data?

[JE McGimpsey]

One way:

With Range("C14")
.FormulaR1C1 = "=" & IIf(IsEmpty(.Value), "", .Value & "+") & _
"Sheet1!R[-2]C[6]+Sheet2!R[5]C[2]+Sheet3!R[58]C[24]"
End With





In article <[email protected]>,
Hywel <[email protected]> wrote:

> I am using a userform to select the data I need in certain cells.
> However, if there is existing information I want to add the following
> and not overwrite.
>
> Range("C14").Select
> ActiveCell.FormulaR1C1 = _
> "=Sheet1!R[-2]C[6]+Sheet2!R[5]C[2]+Sheet3!R[58]C[24]"
>
> Could anyone help,
> Thanks
> Hywel