Feb 26, 2012
I have a worksheet with checkboxes in each cell in A11:A110 as well as O11:O110. When a checked, the current time appears in the corresponding cell, using this code for example, A11 :
View 1 Replies
Private Sub CheckBox1_Click()
*** ActiveCell.FormulaR1C1 = "=NOW()"
*** Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
******* False, Transpose:=False
*** Application.CutCopyMode = False
This system is used to track time elapsed. Example, the first event of the day begins, so I click the checkbox in A11 and the time appears in A11. When the event ends, I click the checkbox in O11 and the time appears in O11.
Now what I would like to modify is the following:
After clicking A11, if 30 minutes have elapsed and I still have not checked the end time in O11, I would like the whole row to highlight in red, a pop up message box should advise me that 30 minutes have elapsed. I could click OK and remove the message box. The whole row remains in red highlight until I finally check the checkbox in O11.
Obviously I'd copy the code for each row.
I assume the code goes with the checkbox's code for A11? Also, is it possible for a cell to flash? (highlighted white, then red, then white, red, etc...)