How to disable an automatic calculation for aspecic cell, in a specific day of the week.

[bahaloul]

Hi,
I'm breaking my head with the following problem


I have 6 cells,(A1, A2, A3, A4, A5, A6) that should be updated with a value of a specific cell "T5"
a single cell per day should be updated.


in Sunday: only A1 should be updated. (with the value of "T5")
in Monday: only A2 should be updated. (with the value of "T5")
etc...




Thanks for any solution.

 

[lhartono]

Try this. Don't forget to change the sheet name.

[COLOR=#0000cd]Private Sub Workbook_Activate()
    Sheets("Sheet1").Activate
    If VBA.Weekday(Date) < 7 Then
        Sheets("Sheet1").Range("A1:A6").ClearContents   [/COLOR][COLOR=#a9a9a9]'<--- remove this if you want to keep results from previous days.[/COLOR][COLOR=#0000cd]
[/COLOR][COLOR=#a9a9a9]        '1 (Sunday) to 7 (Saturday)[/COLOR][COLOR=#0000cd]
        Sheets("Sheet1").Range(("A" & VBA.Weekday(Date))).Value2 = Sheets("Sheet2").Range("T5").Value2
    End If
End Sub[/COLOR]

 

[bahaloul]

Thanks a lot !