Clearing Contents of the Cell and updating formula

[rush2rajen]

Hi,
Please find the attached file.
There are 60 worksheets ( i am giving only 3 as an example )
I want to delete the column "C" " 10-Aug-2016" in every sheet.
In Column "D" "Growth / Degrowth" i want that everyday whenever i run the code the figure should change
for eg
on 10th Aug =C2-(B2/31*10)
on 11th Aug = C2-(B2/31*11)
on 12th Aug =C2-(B2/31*12) and so on.

I had written the code but its only deleting the cells but not calculating the growth/degrowth column.

Please help.

Thanks
Raj

 

[Marc L]

Hi !

Can't work with a bad logic (neither with a bad formula) :
column C must be cleared after formula !

According to your attachment :​

Sub Demo()
         Dim Ws As Worksheet
    For Each Ws In Worksheets
        With Range(Ws.[D2], Ws.Cells(4).End(xlDown))
            .Formula = "=C2-(B2/31*DAY($C$1))"
            .Formula = .Value
            .Offset(, -1).ClearContents
        End With
    Next
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[rush2rajen]

Thanks a lot.