Automatically insert date and remove it

[keithbc]

Hi

When entering a random 7 digit number in column K, i want the date to appear in column N, when this number is deleted i want the date to be deleted aswell
Any help would be appreciated.

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
    Application.EnableEvents = False
    Select Case Target.Value
        Case "": Target.Offset(, 3).ClearContents
        Case Else: Target.Offset(, 3).Value = Date
    End Select
    Application.EnableEvents = True
End If
End Sub

 

[njimack]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 11 Then
    If Len(Target) > 0 Then
        Cells(Target.Row, 14) = Date
    Else: Cells(Target.Row, 14).ClearContents
    End If
End If
Application.EnableEvents = True
End Sub

 

[kidwispa]

Hi

When entering a random 7 digit number in column K, i want the date to appear in column N, when this number is deleted i want the date to be deleted aswell
Any help would be appreciated.

You could use the following formula in N1 and copy down....

=IF(LEN(K1)=7,TODAY(),"")

Remember to ensure the formatting of column N is set to date

 

[keithbc]

Thanks VOG, works perfectly
Thanks for the other replys, they also worked.