Cells(c.Row, c.Column).Value = "="

[white_flag]

Hello I have the following code:

Option Explicit

Public Sub test()

Dim my_range As Range
Dim c As Variant


Set my_range = ActiveSheet.Range("D295:I314")

For Each c In my_range


        Cells(c.Row, c.Column).Value = Cells(c.Row, c.Column).Value & "*(1+$L$294/100)"


Next c



End Sub

This will add (1+$L$294/100) to an range of cells

but I like to be like this "= cell*(1+$L$294/100)"
and like this is: "cell*(1+$L$294/100)" without equal signIf I put the code like this I received error :

        Cells(c.Row, c.Column).Value = "=" & Cells(c.Row, c.Column).Value & "*(1+$L$294/100)"

 

[Comfy]

Try:

 Cells(c.Row, c.Column).Formula = "=" & Cells(c.Row, c.Column).Value & "*(1+$L$294/100)"

 

[white_flag]

thx mate

 

[Ruddles]

Isn't:-

Cells(c.Row, c.Column).Formula =

the same as:-

c.Formula =

?

 

[white_flag]

Yes ..correct