Giúp sửa code Worksheet_Change khi nhập hay xoá dữ liệu thì tự ghi ngày

[AnhThu-1976]

Các anh chị giúp em sửa code như sau
Em muốn' sau khi nhập liệu ở cột A xong (có thể là số âm, dương hoặc text) thì sẽ ghi ngày hiện tại theo dòng tương ứng ở cột G
Nếu em xoá dữ liệu ở cột A thì sẽ ghi ngày hiện tại theo dòng tương ứng ở cột H, đồng thời xoá ngày theo dòng tương ứng ở cột G
Em chỉ mày mò đến đây

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B13:B2000"), Target) Is Nothing Then
        Range("G" & Target.Row).Value = Now
         End If
End Sub

Các anh , chị giúp em sửa code hoặc viết mới
Em cảm ơn

Bài đã được tự động gộp: 18/6/24

Các anh chị giúp em sửa code như sau
Em muốn' sau khi nhập liệu ở cột A xong (có thể là số âm, dương hoặc text) thì sẽ ghi ngày hiện tại theo dòng tương ứng ở cột G
Nếu em xoá dữ liệu ở cột A thì sẽ ghi ngày hiện tại theo dòng tương ứng ở cột H, đồng thời xoá ngày theo dòng tương ứng ở cột G
Em chỉ mày mò đến đây

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B13:B2000"), Target) Is Nothing Then
        Range("G" & Target.Row).Value = Now
         End If
End Sub

Các anh , chị giúp em sửa code hoặc viết mới
Em cảm ơn

Em xin sửa lại là nhập dữ liệu ở cột B (sửa cột A thành cột B) ạ!

 

[HUONGHCKT]

Các anh chị giúp em sửa code như sau
Em muốn' sau khi nhập liệu ở cột A xong (có thể là số âm, dương hoặc text) thì sẽ ghi ngày hiện tại theo dòng tương ứng ở cột G
Nếu em xoá dữ liệu ở cột A thì sẽ ghi ngày hiện tại theo dòng tương ứng ở cột H, đồng thời xoá ngày theo dòng tương ứng ở cột G
Em chỉ mày mò đến đây

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B13:B2000"), Target) Is Nothing Then
        Range("G" & Target.Row).Value = Now
         End If
End Sub

Các anh , chị giúp em sửa code hoặc viết mới
Em cảm ơn

Bài đã được tự động gộp: 18/6/24

Em xin sửa lại là nhập dữ liệu ở cột B (sửa cột A thành cột B) ạ!

Nếu chỉ muốn ghi lại sự thay đổi của cột A Thì thay

If Not Intersect(Range("B13:B2000"), Target) Is Nothing Then

thành

If Not Intersect(Range("A13:A2000"), Target) Is Nothing Then

 

[zzzsxxx01]

Mình viết đại xem có đúng ý bạn không nhé.

 

[AnhThu-1976]

Nếu chỉ muốn ghi lại sự thay đổi của cột A Thì thay

If Not Intersect(Range("B13:B2000"), Target) Is Nothing Then

thành

If Not Intersect(Range("A13:A2000"), Target) Is Nothing Then

À, vừa rồi em đã chỉnh lại nội dung do viết sai là
"Em xin sửa lại là nhập dữ liệu ở cột B (sửa cột A thành cột B) ạ!"

Bài đã được tự động gộp: 18/6/24

Mình viết đại xem có đúng ý bạn không nhé.

Cảm ơn bạn, đúng ý rồi, chỉ sửa cột thôi ạ

 

[hoangtuan.net]

Đoạn code này để khắc phục lỗi khi xoá nhiều ô trong 1 lần tại cột A

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Not Intersect(Range("A13:A2000"), Target) Is Nothing Then
        Application.EnableEvents = False
        For Each cell In Intersect(Range("A13:A2000"), Target)
            If Not IsEmpty(cell.Value) Then
                Range("G" & cell.Row).Value = Now
                Range("H" & cell.Row).ClearContents
            Else
                Range("G" & cell.Row).ClearContents
                Range("H" & cell.Row).Value = Now
            End If
        Next cell
        Application.EnableEvents = True
    End If
End Sub