Write three Subs; Worksheet_Change, MarkDeveloper, and MarkQC
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Determine where the changed cell is.
If not Intersect(Target, Range("H:H") Is Nothing Then MarkDeveloper Target 'Pass the changed cell to the sub
If Not Intersect(Target, Range("G:G")) Is Nothing Then MarkQC Target
End Sub
Private Sub MarkDeveloper(Target As Range)
Application.EnableEvents = False 'Don't let this change be detected
If Target = "Completed" Then
Target.Offset(0, 5) = Format(Date, "m/d/yyyy")
Else
Target.Offset(0, 5).Clear
End If
Application.EnableEvents = True
End Sub
Private Sub MarkQC(Target As Range)
Application.EnableEvents = False
If Target = "Completed" Then Target.Offset(0, 8) = Format(Date, "m/d/yyyy"
Application.EnableEvents = True
End Sub