If you don't mind using a macro, put this in the sheet code. Right click the sheet tab, click view code & paste it there
Private Sub Worksheet_Change(ByVal Target As Range)
' If a date is in J2 & K2 is blank, nothing happens
' If the values in J2 & K2 are not dates, nothing happens
' If a date is in J2 & K2, J2 value changes to Completed
' if J2 contents is deleted, K2 clears
' If K2 contents is deleted, J2 clears
' Cell formatting is returned to General when cleared
If Intersect(Target, Range("J2:k2")) Is Nothing Then Exit Sub
If IsDate(Range("J2")) = True And IsDate(Range("K2")) = True Then
Application.EnableEvents = False
Range("J2").Value = "Completed"
ElseIf IsEmpty(Range("K2")) And Range("J2").Value = "Completed" Then
Range("J2").Value = vbNullString
Range("J2:K2").NumberFormat = "General"
ElseIf Not IsEmpty(Range("K2")) And Range("J2").Value = vbNullString Then
Range("K2").Value = vbNullString
Range("J2:K2").NumberFormat = "General"
Else
End If
Application.EnableEvents = True
End Sub
Cheers
Phil
Bookmarks