Nhờ các thầy cô và anh chị sửa code giúp em với ạ. . .

[zPeterPan]

Nhờ các Thầy cô và anh chị sửa giúp em đoạn code chuyển dữ liệu từ sheet("GhepData") sang sheet("XuLyData") các đối tượng từ dạng dòng sang dạng cột với ạ. . .
và khi chạy lần lượt từng sub thì không bị lỗi gì. . . nhưng khi em tạo 1 sub auto() để gọi lần lượt các sub() thì bị báo lỗi ạ. . .
Chuyển dữ liệu từ
sang
Nhờ mọi người bổ sung và sửa code trong file giúp em với ạ. . . em cảm ơn ạ. . .

 

[CHAOQUAY]

Nhờ các Thầy cô và anh chị sửa giúp em đoạn code chuyển dữ liệu từ sheet("GhepData") sang sheet("XuLyData") các đối tượng từ dạng dòng sang dạng cột với ạ. . .
và khi chạy lần lượt từng sub thì không bị lỗi gì. . . nhưng khi em tạo 1 sub auto() để gọi lần lượt các sub() thì bị báo lỗi ạ. . .
Chuyển dữ liệu từ
sang
Nhờ mọi người bổ sung và sửa code trong file giúp em với ạ. . . em cảm ơn ạ. . .

Sửa cái auto thành như bên dưới rồi chạy thử -> nhìn vào sheet3 xem có gì không thì sẽ biết lỗi

Sub auto()
Call LayData
Call Tach_Data
Call LayDuLieuTach
Call ThayTheDuLieu
'Call XoaTrungLapDuLieu
'Call LayKetQua
End Sub

 

[zPeterPan]

Sửa cái auto thành như bên dưới rồi chạy thử -> nhìn vào sheet3 xem có gì không thì sẽ biết lỗi

Sub auto()
Call LayData
Call Tach_Data
Call LayDuLieuTach
Call ThayTheDuLieu
'Call XoaTrungLapDuLieu
'Call LayKetQua
End Sub

sheet 3 không có dữ liệu từ dòng 6 vì sheet 2 không tự động tách số từ cột "D".
Các trình tự ấn thủ công em để theo số thứ tự gọi macro ạ. . .

 

[CHAOQUAY]

sheet 3 không có dữ liệu từ dòng 6 vì sheet 2 không tự động tách số từ cột "D".
Các trình tự ấn thủ công em để theo số thứ tự gọi macro ạ. . .

Không có dữ liệu thì xóa trùng thế nào được -> "xoatrunglapdulieu" bị lỗi.
Có lẽ là cần xem lại code điền dữ liệu xuống sheet3

 

[zPeterPan]

Không có dữ liệu thì xóa trùng thế nào được -> "xoatrunglapdulieu" bị lỗi.
Có lẽ là cần xem lại code điền dữ liệu xuống sheet3

ý của em là nếu làm thủ công ấn lần lượt từ bước 1->2->3->4->5->6 thì được kết quả. . . những khi làm auto thì sẽ bị lỗi do không tự động tách data ở bước 2 thì sẽ không có dữ liệu để thực hiện bước 3 và đương nhiên là bước 4 và bước 5 sẽ không có data để thay thế và xóa trùng lặp ạ. . .

 

[CHAOQUAY]

ý của em là nếu làm thủ công ấn lần lượt từ bước 1->2->3->4->5->6 thì được kết quả. . . những khi làm auto thì sẽ bị lỗi do không tự động tách data ở bước 2 thì sẽ không có dữ liệu để thực hiện bước 3 và đương nhiên là bước 4 và bước 5 sẽ không có data để thay thế và xóa trùng lặp ạ. . .

Bạn làm thế này:
- Tìm trong các sub con, cái nào có with sheet... thì thêm câu lệnh .select liền kế bên dưới dòng with...Làm cho tất cả các sub
- Cái nào copy thì thêm .Application.CutCopyMode = False

 

[truongvu317]

Đoán là chưa được là do hai câu lệnh trên chưa rõ ràng ( chắc chưa đủ hai dấu chấm .cells())

 

[zPeterPan]

Bạn làm thế này:
- Tìm trong các sub con, cái nào có with sheet... thì thêm câu lệnh .select liền kế bên dưới dòng with...Làm cho tất cả các sub
- Cái nào copy thì thêm .Application.CutCopyMode = False

Cảm ơn bác chỉ dạy ạ. . .