How to add formula and value to cell VBA

[jormarinne]

Hola,

I have the following code,

[VBA]Dim c As Range
Dim d As Range
For Each c In Range("U" + row + ":BC" + row) '.End(xlToRight)
For Each d In Range("U2:BC2")
If d.Value >= eka And d.Value <= toka Then
c.Value = 14
End If
Next d
Next c
[/VBA]
In the range C there are formulas in every cell and now i want to add number 14 to the cell but i would not like to lose my formula from the cell, is that possible?

- Antti

[Bob Phillips]

Don't understand the double loops, but maybe

[vba]

Dim c As Range
Dim d As Range

For Each c In Range("U" + Row + ":BC" + Row) '.End(xlToRight)

For Each d In Range("U2:BC2")
If d.Value >= eka And d.Value <= toka Then

c.Formula = c.Formula & "+14"
End If
Next d
Next c[/vba]