Hỏi cách dùng sự kiện Private Sub Worksheet_Deactivate() để code tự động chạy

Nhờ các anh chị chỉ chổ sai để sửa. Em cảm ơn!

Em nhờ các anh giúp đỡ em như sau
Em có tạo code Copy_Paste_CotF(), để chạy công thức cho cột F của sheet MA

Sub Copy_Paste_CotF()
Dim lr As Long
With Sheets("MA")
    lr = Sheets("MA").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("MA").Range("F13").Select
    Selection.Copy
    Sheets("MA").Range("F14:F" & lr).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    End With
End Sub

Bây giờ em muốn code trên tự động chạy, mỗi khi em click qua sheet khác, nên em có tạo code khác trong sheet MA như sau

Private Sub Worksheet_Deactivate()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

Call Copy_Paste_CotF

Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

Nhưng khi click qua sheet khác thì code không tự động chạy
Nhờ các anh chị chỉ chổ sai để sửa. Em cảm ơn!

Bạn tìm hiểu thử vấn đề này:

Private Sub Worksheet_Activate()
Call "Sub nào đó"
End Sub

www.giaiphapexcel.com/diendan/threads/h%E1%BB%8Fi-c%C3%A1ch-d%C3%B9ng-s%E1%BB%B1-ki%E1%BB%87n-private-sub-worksheet_deactivate-%C4%91%E1%BB%83-code-t%E1%BB%B1-%C4%91%E1%BB%99ng-ch%E1%BA%A1y.167137/

Khóa học SprinGO phù hợp

Ứng dụng AI và Chat GPT trong Quản trị nhân sự

Học xong khóa này, học viên có thể: Hiểu đúng bản chất AI, các nhóm AI phổ biến và cách AI “hoạt động” ở...

Xem khóa học