Sửa lỗi khi cập nhật ngày nhập liệu

[Juki Pham]

Em có file cập nhật ngày nhập liệu, khi nhập thông tin vào cột A thì cột B tự động cập nhật ngày nhập liệu, tuy nhiên khi em xoá dữ liệu từ 2 dòng cột A trở lên thì bị lỗi Run-time error 13: Type mismatch, mong anh/chị chỉ và sửa lỗi giúp em ạ

 

[bebo021999]

Vì khi bạn thay đổi 1 lúc từ 2 ô trở lên, thì lúc này Target không phải là 1 ô đơn lẻ nữa, mà là 1 vùng.
Do vậy bạn phải duyệt qua từng ô một trong vùng target:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ce As Range
If Intersect(Target, Range("A2:A100000")) Is Nothing Then Exit Sub ' Neu cot A khong thay doi thi thoat
For Each ce In Target 'truong hop 1 hoac nhieu o cung thay doi: Duyet qua tung o
    If ce.Value <> "" Then ce.Offset(, 1) = Date
Next
End Sub