Giúp mình sửa lại code lưu lại thời gian khi nhập liệu

[hoang0569]

Mình gửi kèm File anh chị em xem giúp, xin cảm ơn.

 

[hoang0569]

Minh làm được rôi, nhờ anh chị em sau,xin cảm ơn

 

[Thong Hoang Tien 250691]

Mình gửi kèm File anh chị em xem giúp, xin cảm ơn.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("C:C"), Target) Is Nothing Then
  If Target.Cells.Count > 1 Then Exit Sub
    With Target.Offset(, 1)
        If Not .Value <> 0 Then
            .NumberFormat = "mm/dd/yyy"
            .Value = Date
        End If
    End With
  End If
End Sub

 

[SA_DQ]

Theo như mình hiểu í tác giả bài đăng là ghi lại hết các lần thay đổi dữ liệu của ô trên cột "C:C" kia:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("C:C"), Target) Is Nothing Then
  If Target.Cells.Count > 1 Then Exit Sub
    With Cells(Target.Row, "IV").End(xlToLeft).Offset(, 1)              '*'
        If Not .Value <> 0 Then
            .NumberFormat = "mm/dd/yyy"
            .Value = Date
        End If
    End With
  End If
End Sub

 

[be_09]

Minh làm được rôi, nhờ anh chị em sau, xin cảm ơn

Sau lại gọi là làm được khi chưa đáp ứng được các tình huống sau:
1/ Nếu không sử dụng cột C và xóa dữ liệu đi thì ngày cột D vẫn còn.
2/ Nếu không sử dụng cột C và xóa dữ liệu đi thì xóa ngày cột D.
3/ Nếu sửa dữ liệu cột C đi thì gán ngày mới vào cột D và gán ngày cũ vào Comment.