Nhờ sửa code trích xuất báo cáo

[oishi]

Kính gửi các Thầy/Cô, anh/chị diễn đàn GPE, nhờ các Thầy/Cô, anh/chị xem giúp code trích xuất báo cáo lỗi ở đâu, chỉnh và chỉ giúp em. Vì học hành không đến nơi đến chốn, mong các Thầy/Cô, anh/chị thông cảm và giúp đỡ.
Dữ liệu sheet ShDataSP, kết quả báo cáo bên Sheet BaoCao, vì sheet ShdataSP dữ liệu có nhiều cột nên em đã bỏ bớt, chỉ để 8 cột thôi ạ.
Em xin trân trọng cảm ơn!

 

[Thóc Sama]

Kính gửi các Thầy/Cô, anh/chị diễn đàn GPE, nhờ các Thầy/Cô, anh/chị xem giúp code trích xuất báo cáo lỗi ở đâu, chỉnh và chỉ giúp em. Vì học hành không đến nơi đến chốn, mong các Thầy/Cô, anh/chị thông cảm và giúp đỡ.
Dữ liệu sheet ShDataSP, kết quả báo cáo bên Sheet BaoCao, vì sheet ShdataSP dữ liệu có nhiều cột nên em đã bỏ bớt, chỉ để 8 cột thôi ạ.
Em xin trân trọng cảm ơn!

F8 xem nó báo lỗi ở đâu nhé
Dim ShNguon As Workbook, ShBC As Workbook??

 

[SA_DQ]

Mình chỉ xin góp ý về thiết kế các trang dữ liệu của bạn; Theo mình nó vẫn thiếu nhưng lại thừa;
Thiếu 1 trang mà mình hay gọi là 'DMuc'
Thừa 3 trong 4 cột trong trang 'DLieu':

Tên viết tắt KH	Mã khách hàng	Khách hàng	Địa chỉ
5	6	7	8
	000079	CÔNG TY TNHH EPE PACKAGING VIỆT NAM	Tại trụ sở KH (VSIP HP, huyện Thủy Nguyên, Đình Vũ-Cát Hải, Tp Hải Phòng, VN)
	000079	CÔNG TY TNHH BAO BÌ CARTON THỊNH PHÁT

Nếu là mình thì chỉ cần [Mã KH] trong trang này thôi;
Còn tất cả ta chuyển sang 'DMuc'; Như vậy trang 'DLieu' của bạn sẽ nhẹ nhàng đáng nể đó nha!

Kế đến là chuyện tạo mã khách hàng; Như của bạn làm với mấy con số 0 ở đầu mã trong Excel sẽ gây trở ngại;
Như mình thì Nếu khách hàng là đại diện cho 1 công ti thì là C0099, hay CVTP1 (Công ti Vạn Thịnh Phát)
Nếu là khách hàng đơn lẽ sẽ là NVT00 (Nguyễn Văn Từ); NVT01 (Nguyễn Vũ Thứ),. . . . ., Ngô Thị Vân Thanh sẽ là NVT19,. . . .
(Tên là Từ Thắng sẽ mã hóa thành TJT00,. . . .)
. . . . .

Rất sẵn lòng nếu bạn muốn trao đổi tiếp!

 

[CHAOQUAY]

Kính gửi các Thầy/Cô, anh/chị diễn đàn GPE, nhờ các Thầy/Cô, anh/chị xem giúp code trích xuất báo cáo lỗi ở đâu, chỉnh và chỉ giúp em. Vì học hành không đến nơi đến chốn, mong các Thầy/Cô, anh/chị thông cảm và giúp đỡ.
Dữ liệu sheet ShDataSP, kết quả báo cáo bên Sheet BaoCao, vì sheet ShdataSP dữ liệu có nhiều cột nên em đã bỏ bớt, chỉ để 8 cột thôi ạ.
Em xin trân trọng cảm ơn!

Sửa như bên dưới rồi chạy thử xem sao.

'Dim ShNguon As Workbook, ShBC As Workbook
Dim ShNguon As Worksheet, ShBC As Worksheet

 

[oishi]

F8 xem nó báo lỗi ở đâu nhé
Dim ShNguon As Workbook, ShBC As Workbook??

Vâng, em xin cảm ơn ạ

Bài đã được tự động gộp: 22/6/24

Mình chỉ xin góp ý về thiết kế các trang dữ liệu của bạn; Theo mình nó vẫn thiếu nhưng lại thừa;
Thiếu 1 trang mà mình hay gọi là 'DMuc'
Thừa 3 trong 4 cột trong trang 'DLieu':

Tên viết tắt KH	Mã khách hàng	Khách hàng	Địa chỉ
5	6	7	8
	000079	CÔNG TY TNHH EPE PACKAGING VIỆT NAM	Tại trụ sở KH (VSIP HP, huyện Thủy Nguyên, Đình Vũ-Cát Hải, Tp Hải Phòng, VN)
	000079	CÔNG TY TNHH BAO BÌ CARTON THỊNH PHÁT

Nếu là mình thì chỉ cần [Mã KH] trong trang này thôi;
Còn tất cả ta chuyển sang 'DMuc'; Như vậy trang 'DLieu' của bạn sẽ nhẹ nhàng đáng nể đó nha!

Kế đến là chuyện tạo mã khách hàng; Như của bạn làm với mấy con số 0 ở đầu mã trong Excel sẽ gây trở ngại;
Như mình thì Nếu khách hàng là đại diện cho 1 công ti thì là C0099, hay CVTP1 (Công ti Vạn Thịnh Phát)
Nếu là khách hàng đơn lẽ sẽ là NVT00 (Nguyễn Văn Từ); NVT01 (Nguyễn Vũ Thứ),. . . . ., Ngô Thị Vân Thanh sẽ là NVT19,. . . .
(Tên là Từ Thắng sẽ mã hóa thành TJT00,. . . .)
. . . . .

Rất sẵn lòng nếu bạn muốn trao đổi tiếp!

Vâng, em xin cảm ơn thầy đã góp ý.

Bài đã được tự động gộp: 22/6/24

Sửa như bên dưới rồi chạy thử xem sao.

'Dim ShNguon As Workbook, ShBC As Workbook
Dim ShNguon As Worksheet, ShBC As Worksheet

Dạ vâng, em đã sửa được rồi ạ, em xin cảm ơn ạ