Giúp mình một đoạn code lọc dữ liệu theo điều kiện

[hophoang]

mình có một fiel,mình muốn in báo cáo theo cách lọc dữ liệu theo điêu kiện xin mọi người giup cho

 

[changngoc]

Đã giải nén.
Sau khi em debug thì nó highlight dòng này
Workbooks("CHITIET").Sheets("CHITIET").[A1:AM10000].Clear

P/S: Em dùng Office 2010. Có thể các code của anh không tương thích với excel 2010 thì phải.

Thanks.

 

[Quang_Hải]

Bạn mở code ra và thêm .xls vào sau chữ CHITIET

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Set Sh = Sheets("tonghop")
Set data = Range([A2], [AM65000].End(3))
Workbooks.Open ThisWorkbook.Path & "\CHITIET.xls"
Workbooks("CHITIET.xls").Sheets("CHITIET").[A1:AM10000].Clear
data.Copy Workbooks("CHITIET.xls").Sheets("CHITIET").[A1]
End Sub

 

[changngoc]

Đúng rồi anh. Em sửa lại thì đã chạy tốt. Cảm ơn anh.
Thực tế, em chủ yếu copy dữ liệu của KH Hà Nội để gửi BC riêng cho HN. Nhưng cứ mõi lần cập nhật danh sách KH Ha Noi ( nhấn copy to chitiet) thì sheet "BAO CAO TONG HOP" của file Chitiet.xls các công thức không cập nhật theo mà em phải vào từng ô công thức ENTER ... ENTER nó mới cập nhật giá trị đúng được.

Anh có thể cho em một đoạn mã để công thức của sheet "Bao cao tong hop" tự động cập nhật luôn. (file đính kèm)


P/S:
Cơm thêm: Anh cho một đoạn code thay thế các công thức em đang thực hiện. ( Anh làm ra một file mới giúp)

Thanks.

 

[Quang_Hải]

cái chuyện công thức không tự tính toán là vì bạn đang ở chế độ tính tóan thủ công (manual).
Ban chon Tool >Option>Calculation và chọn Automatic nghen. Còn đoạn code thay thế công thức mình sẽ làm sau nha, hôm nay là CN nên lười quá.

 

[changngoc]

Em xem thấy đã Automatic chứ không phải manual.
Anh test thì sẽ thấy ngay tình trạng này.

 

[Quang_Hải]

Khu vưc màu vàng là mình để lại cho ban nghiên cứu và viết phần code còn lại.