Empty cell when data in other cell is removed

[Bandito1]

Hello,

With the code below the cell F is populated with the date of today when there is data entered in cell E.
I would like that when the data in Cell F is removed (empty cell) the date in cell F is also removed.

Tried to add

Else: Target.Offset(0, 0) = ""

below Next but then the data gets removed always and doesn't stay when there is data in cell E

Can someone help me with my request?

    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("E:E")) Is Nothing) Then _
            Target.Offset(0, 1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("E:E"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, 1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If

 

[rollis13]

No idea about the layout of your sheet but this should work, but, then what should happen to the .Dependents ?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg    As Range
    Dim xCell  As Range
    If (Target.Count = 1) Then
        Application.EnableEvents = False
        If (Not Intersect(Target, Me.Range("E:E")) Is Nothing) Then
            If Target = vbNullString Then
                Target.Offset(0, 1) = vbNullString
            Else
                Target.Offset(0, 1) = Date
            End If
        End If
        Set xRg = Intersect(Target.Dependents, Me.Range("E:E"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, 1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

 

[Bandito1]

Thank you very much, it works!

Indeed now you pointed it out; .depents part does nothing extra. Removed it

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.