Trợ giúp code Copy dữ liệu file data sang file tổng hợp có điều kiện chọn "x"

[tuhumg00]

Nhờ các bác trợ giúp e với ạ.
Em có 2 file data và file Tổng hợp , em muốn copy du lieu tu file Data sang file TH theo điều kiện mình chọn sheet("thongtin") file TH
VD: Ở lớp cần tổng hợp em tích dấu "x" các lớp A1, A2, A4 (sheet Thong tin) thì khi tổng hợp chỉ tổng hợp dữ liệu lớp được chọn "x" ở sheet "thong tin" như (Lớp A1, A2, A4) và bỏ qua không copy sheet (data1,dat2.) như hình vẽ dưới.
Như thế e sẽ tổng hợp được những lớp theo mong muốn.
Em xin cảm ơn các bác. file e có để ở dưới.

https://www.mediafire.com/file/ob1hi2ajdufkbtu/TH_.xlsm/file

Data

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[stao]

Thử vầy xem được không.

 

[tuhumg00]

Thử vầy xem được không.

Nó bị lỗi thế này bác à. Không chạy được tiếp
Bác sửa e cái code của bác được ko ạ?.

 

[snow25]

Nó bị lỗi thế này bác à. Không chạy được tiếp
Bác sửa e cái code của bác được ko ạ?.

Mở cả 2 file lên.

 

[HieuCD]

Mở cả 2 file lên.

Không mở code vẫn chạy mới xịn nha

 

[tuhumg00]

Mở cả 2 file lên.

Em mở cả 2 file lên rồi bác, nhưng ko đc ạ.sau đó nó báo lỗi phần Set Lop = wbData. Sheet(...) (chỗ sheet) - e tưởng thiếu phần khai báo object wbdata nhưng rồi vẫn ko đc ạ.. Chưa biết lỗi tại đâu. Bác chỉ giáo e với.

Bài đã được tự động gộp: 2/11/19

Không mở code vẫn chạy mới xịn nha

Cho e ít hàng xịn đi ạ. Hihi

 

[befaint]

Tổng hợp

 

[be_09]

Nó bị lỗi thế này bác à. Không chạy được tiếp
Bác sửa e cái code của bác được ko ạ?.

Thiếu khai báo biến, thêm thử 2 dòng Dim vào (tôi nhìn code và thêm nhưng chưa Test thử).

Option Explicit
Sub copydata()
Dim wbTH, wbdata As Workbook
Dim lop, cell As Range

 

[tuhumg00]

Thiếu khai báo biến, thêm thử 2 dòng Dim vào (tôi nhìn code và thêm nhưng chưa Test thử).

Không được bác ạ, em thêm 2 biến vào rồi, nhưng vẫn báo lỗi, nhưng thui e làm theo cách bác @befaint chúc các bác ngày mới vui vẻ.

 

[tuhumg00]

Em làm đc rồi bác ạ, em cảm ơn bác, chúc bác ngày mới vui vẻ.hi