vba date XL2000

[~Alan Rosenberg Miami]

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

 

[~Alan Rosenberg Miami]

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

 

[~Alan Rosenberg Miami]

Tom Thank you
I finally got someone to understand now I need a little tweak
The start date is A9 and the input column is C9

I need to skip 2 rows so the next date input will be A12 with the value input
C12

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then ' How do you get this line to
skip 2 rows
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Cells(Target.Offset(1, 0).Row, 1).Value = Date + 1 ' How do you get this
line to skip 2 rows
End If
End If
Application.EnableEvents = True
End Sub

 

[Tom Ogilvy]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
If Target.row mod 3 = 0 and Target.row > 8 then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Cells(Target.Offset(3, 0).Row, 1).Value = Date + 1
End If
End if
End If
Application.EnableEvents = True
End Sub

or

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
If not(isempty(Cells(Target.row,1))) and Target.row > 8 then
if isdate(cells(target.row,1)) then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Cells(Target.Offset(3, 0).Row, 1).Value = Date + 1
End If
End If
End if
End If
Application.EnableEvents = True
End Sub


--
Regards,
Tom Ogilvy


Tom Thank you
I finally got someone to understand now I need a little tweak
The start date is A9 and the input column is C9
I need to skip 2 rows so the next date input will be A12 with the value
input C12
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then ' How do you get this line
to skip 2 rows
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Cells(Target.Offset(1, 0).Row, 1).Value = Date + 1 ' How do you get
this line to skip 2 rows
End If
End If
Application.EnableEvents = True
End Sub



Tom Ogilvy wrote:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Cells(Target.Offset(1, 0).Row, 1).Value = Date + 1
End If
End If
Application.EnableEvents = True
End Sub
Right click on the sheet tab and select view code.
paste in the above.
Regards,
Tom Ogilvy

 

[~Alan Rosenberg Miami]

Thank you thank you thank you
Mr Ogilvy your my XL hero

This one did it
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
If Target.row mod 3 = 0 and Target.row > 8 then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Cells(Target.Offset(3, 0).Row, 1).Value = Date + 1
End If
End if
End If
Application.EnableEvents = True
End Sub