[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:C65536")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Date
End If
End Sub
[/vba]так наверное вернее
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:C65536")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target <> "" And Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Date
End If
End Sub
[/vba]