Cập nhật ngày tháng

[letuongqt]

Tôi có chép đoạn cod trên diễn đàn với nội dung như sau :Khi cập nhật nội dung ở cột B thì cộ C sẽ tự động cập nhật ngày tháng hiện tại -Đoạn cod như sau:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
With Target(1, 2)
.Formula = "=NOW()"
.Calculate
.Value = .Value
End With
End If
End Sub
Ở đoạn cod này , khi xoá nội dung ở cột B (Đã cập nhật trước) thì ngày tháng vẫn giữ như cũ chứ không bị xoá theo tương ứng .
Nhờ các thành viên trên diến đàn chỉ giúp , cần phải bổ sung vào đoạn cod này như thế nào để được yêu cầu nêu trên (Nghĩa là : Khi xoa dữ liệu đã cập nhật thì ngày tháng cũng bị mất đi ) - Xin cảm ơn .

 

[ndu96081631]

Thử code này xem:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
   For Each Clls In Target
     With Clls(1, 2)
      If Clls = "" Then
          .Value = ""
      Else:
          .Value = Date
      End If
    End With
  Next
 End If
End Sub

 

[tuanlichviet]

If Clls = "" Then
.Value = ""
Else:
.Value = Date
End If
ĐOẠN code của Ndu xóa đi dòng này t ôi thử thấy được