Tự động copy công thức sau khi nhập xong dữ liệu (1 người xem)

[tamhoncuada10313]

Em download được file copyCT của bác kiet.vt rất hay. Giờ em muốn khi nhập xong số liệu thì sẽ tự động copyCT thì phải làm thế nào ạ?
Em chỉ biết là viết code trong sự kiện Worksheet_Change thôi còn viết ntn thì e hơi dốt khoản này. Mong các bác chỉ giùm. E hỏi thêm là nếu công thức được protect thì module này có chạy được không?
Sub CopyCT()
Dim MaxRow As Integer
MaxRow = Sheets("Sheet1").Range("A65536").End(xlUp).Row
Sheets("sheet1").Range("D5:F5").Select
Selection.Copy
Sheets("sheet1").Range("D5:F" & MaxRow).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("sheet1").Range("D6:F" & MaxRow).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("sheet1").Range("D6").Select
End Sub

 

[nguyenkhanhylpt]

làm sao được. ban cần bo mat khau bao ve
them
activesheet.unprotect trước khi copy and paste