ScorpionS
Лентяи вы все ;)
А подумать???
Код: Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target = "" Then
Cells(Target.Row, 2) = ""
Else
Cells(Target.Row, 2) = Date + Time
End If
End If
End Sub
Лентяи вы все ;)
А подумать???
Код: Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target = "" Then
Cells(Target.Row, 2) = ""
Else
Cells(Target.Row, 2) = Date + Time
End If
End If
End Sub