Using macro to input static date

Hi,

I found a piece of code on the internet that input the date into one column upon changing a another; however, I wanted to alter the code so that it would only input the date upon something being entered into the target column and not just any change (at the moment it puts the date in even if I clear all the information). I was also wondering whether it was possible to have the date disappear if the information is deleted.

Here is the current code. I'd appreciate all the help I can get:

Private Sub Worksheet_Change(ByVal Target As Range)
Set t = Target
Set a = Range("D:D")
If Intersect(t, a) Is Nothing Then Exit Sub
Application.EnableEvents = False
t.Offset(0, 9).Value = Date
Application.EnableEvents = True
End Sub

As per forum rules, your code should be inside code html for ease of reading.

http://www.excelforum.com/forum-rule...rum-rules.html

Try this code

Private Sub Worksheet_Change(ByVal Target As Range)
Set t = Target
Set a = Range("D:D")
If Intersect(t, a) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If t.Value = "" Then
        t.Offset(0, 9).ClearContents
    Else
        t.Offset(0, 9).Value = Date
Application.EnableEvents = True
End If

End Sub

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
Set t = Target
Set a = Range("D:D")
If Intersect(t, a) Is Nothing Then Exit Sub
Application.EnableEvents = False
    If t.Value = "" Then
        t.Offset(0, 9).ClearContents
    Else
        t.Offset(0, 9).Value = Date
    End If
Application.EnableEvents = True

End Sub

Regards

Thanks TM Shucks, it works perfectly.

You're welcome ... but the credit should go to ChemistB, it's his code. I just moved a line.

Thanks for the rep.

If this has answered your question, please mark your thread as Solved.

Regards

Oops, my bad. Thanks for the fix TM.

@ChemistB: no problem, easily done. TMS