I want TOMORROW date in a cell below today's date only when a value is place
in a cell next to today's Date
If there is no value next to the cell that has today's date then
there will be NO tomorrows Date
Lets start with A12 and today is Saturday 7/12/03 In B12 There is NO Value
Then there is no date in A13
now it is Sunday 7/13/03 and there is still NO Value In B12 Then there is
still no date in A13
Now it is Monday 7/14/03 and there is now a Value In B12 Now the date Will be
entered into A13
and so on

Don Guillett wrote:

Taking you literally that you want TOMORROWS date in each cell
right click on sheet tabview codeinsert thissave
now whenever you have a date, tomorrows date will be put one cell down.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If IsDate(Target) Then Target.Offset(1) = Date + 1
Application.EnableEvents = True
End Sub

--
Don Guillett
SalesAid Software
Granite Shoals, TX

"~Alan Rosenberg Miami" wrote in message
...
I am looking for a sheet code that puts tomorrow's date in the cell
bellow today's date
after a value is imputed in the row of today's date

today is A1 7/12/03 and cell D1 is empty when i put a value in D1 i
want tomorrows date in A2
now lets say today is 7/13/03 and D2 is empty and it stays empty then no
date will go into A3
now lets say today is 7/14/03 and D2 is empty when i put a value in D2 i
want tomorrow's date in A3
now lets say today is 7/15/03 and D3 is empty when i put a value in D3 i
want tomorrow's date in A4