Date stamp clears if data removed

[Sir Rossdale the Gallant]

Hello,

So I'm using this VBA code to date stamp when data is entered into a cell, but is it possible to keep the cell empty if I remove that data?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
Range("G" & Target.Row & ":G" & (Target.Row + Target.Rows.Count) - 1).Value = Date
End If
Application.EnableEvents = True
End Sub

Thanks in advance!

 

[Michael M]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
Range("G" & Target.Row & ":G" & (Target.Row + Target.Rows.Count) - 1).Value = Date
End If
If Range("A" & Target.Row).Value = "" Then Range("G" & Target.Row) = ""
Application.EnableEvents = True
End Sub

 

[Sir Rossdale the Gallant]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
Range("G" & Target.Row & ":G" & (Target.Row + Target.Rows.Count) - 1).Value = Date
End If
If Range("A" & Target.Row).Value = "" Then Range("G" & Target.Row) = ""
Application.EnableEvents = True
End Sub

Thank you for the response!

I just tried this and it will work if I delete the value in A one-by-one, but if I mass select, it will only clear the contents in that first row and not the others

 

[Joe4]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    Dim cell As Range
    
    Set rng = Intersect(Target, Range("A:A"))
    
    If rng Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    
    For Each cell In rng
        If cell <> "" Then cell.Offset(0, 6).Value = Date
    Next cell

    Application.EnableEvents = True
    
End Sub