Timer advance cell by cell

[smcelv]

Hi guys
Need advice on how to set up a function to move and colour cells after 30 minute intervals - for each working day of the week.

 

[sijpie]

Does it complain when the box is ticked (it should bypass CancelOnTime)?

 

[sijpie]

What happens if you rewrite CanelOnTime as:

Sub CancelOnTime() 
Application.OnTime EarliestTime:=dTime, Procedure:="ColorCell", Schedule:=False 
lRow = 0 
dTime = 0 
End Sub 

 

[smcelv]

I corrected what you told me and I dont get the error now but nothing seems to happen in the worksheet. Was wondering sijpie is there somewhere in the code that should declare that I want the program to colour cells from "CheckBoxLink" to T5?
I thought maybe "Change "1" and "A" to suit" had something to do with it?

Application.OnTime dTime, "ColorCell"
lRow = lRow + 1
'Change "1" and "A" to suit
Sheets(1).Cells(lRow, "A").Interior.Color = 65535

 

[sijpie]

I thought you had sorted out the action to be taken first, so you know it works.
So what your ColorCell does at the moment is set the colour for Ax to yellow, with x incrementing every 30 minutes.

So it changes the colour of Column A.

The two images you posted earlier have disappeared, so I ma not sure what yo are trying to achieve, I seem to recal you want to colour a row one cell at a time