VBA auto date / remove

[cbrf23]

I'm trying to write a macro in vba that will automatically add the date when I enter data in a certain column.

I got that part working.

Then i found, that if i deleted the entry, the date stayed.

So, I tried modifying the code to empty the date cell if I deleted the entry.... but now it doesnt work at all.

Could anyone tell me what I've done wrong here/how to fix it?

Here is what I tried:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dd As Range, ee As Range
Set dd = Intersect(Target, Range("d:d"))
Set ee = Intersect(Target, Range("e:e"))
On Error GoTo ERRHANDLER
If (dd) Is Nothing Then
    Target.Offset(0, -3) = ""
    Else
    If Not (dd) Is Nothing Then
    Target.Offset(0, -3) = Date
    End If
End If
If (ee) Is Nothing Then
    Target.Offset(0, -3) = ""
    Else
    If Not (ee) Is Nothing Then
    Target.Offset(0, 1) = Date
    End If
End If
Exit Sub

ERRHANDLER:
Exit Sub
End Sub

 

[Sektor]

Can't figure out conditions to clear/set date.

 

[cbrf23]

Hi Sektor,

what i had that was working was:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERRHANDLER
 
If Not Intersect(Target, Range("D:D")) Is Nothing Then
    Target.Offset(0, -3) = Date
End If
 
If Not Intersect(Target, Range("E:E")) Is Nothing Then
    Target.Offset(0, -3) = Date
End If
 
Exit Sub

ERRHANDLER:
Exit Sub
 
End Sub

What I find is, that when I delete an entry from column D (or E), or even if column D is blank and i hit the delete key it adds the date. Which I dont want.

Basically what I want is this: I enter data in column D and a date stamp is created 3 columns over in column A (this works as written above). But I also want to add a line that says if column D is empty, then column A also needs to be empty.

Does that make sense?

 

[Sektor]

May be this?

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If (Not Intersect(Target, Range("D:D")) Is Nothing) Or _
       (Not Intersect(Target, Range("E:E")) Is Nothing) Then
            With Target.Offset(0, -3)
                If IsEmpty(Target) Then
                    .Value = Date
                Else
                    .ClearContents
                End If
            End With
    End If
     
End Sub

 

[cbrf23]

Sektor, thank you for the help!

I tried the code you posted, but it wasnt working for me. But a little tweaking, and everything is working great!

Here is what I ended up with:

    If (Not Intersect(Target, Range("D:D")) Is Nothing) Then
            If (Not IsEmpty(Target)) Then
                    Target.Offset(0, -3) = Date
                Else
                    With Target.Offset(0, -3)
                    .ClearContents
                    End With
            End If
    End If

Thanks again!