mình có tham khảo vài code do mọi người up lên, trong đó có code tự động chạy và mình có sửa lại theo mục đích của mình nhưng khi nhấn enter thì lỗi rồi thoát excel luôn
trong trang tính thì thế này

Private Sub Worksheet_Change(ByVal Target As Range)
Call locdulieu(Target)
End Sub


trong modul thì thế này

Sub locdulieu(Target As Range)
Range("A16:Y37").Select
Range("Y37").Activate
Selection.ClearContents
Range("A15").Select
Range("AA16:AT37").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("DC!Criteria"), CopyToRange:=Range("A16"), Unique:=False
End Sub


ae chỉ mình do sai thế nào với
file mình gửi là chạy thủ công khi nhấn vào nút 1
cho mình hỏi lý do vì sao code chạy chậm thế. trong khi chỉ lọc có mấy dòng ak.
nội dung nhập ở ô AB2 là A1, A2 P1, P2 ô AC2 là từ 1 đến 8
http://www.mediafire.com/download/af...A%CC%A3c1.xlsm