Text in Cell Based On Time

[Papi]

Is it possible to enter a specific text statement in a cell i.e. "Enter Date Here" and if nothing else is entered within say 10 seconds then the text disappears. What will entered in the cell is a date. What I am trying to do is that if somebody flags the cell and then does not enter a date that the words "Enter Date Here" disappear.

 

[machopicho]

Something like this?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
Break = 10
HourNow = Timer
Do While Timer < HourNow + Break
If Target = "Enter Date Here" Then
DoEvents
End If
If Target <> "Enter Date Here" Then Exit Sub
Loop
Target.ClearContents
End Sub

 

[Papi]

Hello machopicho,

Thanks for helping out. Would this go inside using Alt F11 and insert in "This Workbook". I tried that and put "Enter Date Here" in cell A1 of sheet1 but it did not do anything. What I have are several cells where a date could be entered and I run a small macro to flag the cell with "Enter Date Here". Another macro will be ran and will select from a calendar and paste a date from the calendar which should shutoff the timer. If no date is entered I would like to see the words "Enter Date Here" simply remove itself in a maximum of 10 seconds.

 

[machopicho]

You have to insert its in worksheet

 

[Papi]

I hope I am understanding this correctly. I press Alt + F11 and insert the code into "ThisWorkbook". I then run a macro which places the text "Enter Date Here" and then the cursor to a small section that is a makeshift calender. If I do not invoke the second macro which is to copy the date, return to "Enter Date Here" to paste the value of the date chosen then the words "Enter Date Here" will remove themselves in about 10 seconds. Is this correct?

Calender Test.xlt
	B	C	D	E	F	G	H	I	J
10			August2011
11			Sun	Mon	Tue	Wed	Thu	Fri	Sat
12				1	2	3	4	5	6
13			7	8	9	10	11	12	13
14			14	15	16	17	18	19	20
15	EnterDateHere		21	22	23	24	25	26	27
16			28	29	30	31
17
Data

 

[machopicho]

I hope I am understanding this correctly. I press Alt + F11 and insert the code into "ThisWorkbook".

Watch below:

I then run a macro which places the text "Enter Date Here" and then the cursor to a small section that is a makeshift calender.

Try macro in a blank sheet to understand it working and then adapt its as you need.