Lỗi copy sheet sau khi thêm VBA

[Tienlangben98]

Hello mọi người,
Mình có một file xlsx gồm 5 sheet, gồm 2 sheet data và 3 sheet hiển thị kết quả, mình muốn copy 3 sheet kia ra một file khác thì gặp lỗi
Cụ thể khi chưa bỏ vba vào thì mình làm thủ công bằng tay vẫn copy được, nhưng khi bỏ vba vào thì nó báo lỗi Couldn't copy sheet là tạo một file .tmp trên thư mục chứa file gốc và lúc này mình làm thủ công cũng bị báo lỗi.
Mình thử mở một file mới hoàn toàn và copy tay lại dữ liệu từng sheet, rồi chỉ đơn giản code sub endsub, rồi copy sheet thủ công nó cũng báo lỗi.
Không biết file mình bị lỗi gì.

 

[Maika8008]

Hello mọi người,
Mình có một file xlsx gồm 5 sheet, gồm 2 sheet data và 3 sheet hiển thị kết quả, mình muốn copy 3 sheet kia ra một file khác thì gặp lỗi
Cụ thể khi chưa bỏ vba vào thì mình làm thủ công bằng tay vẫn copy được, nhưng khi bỏ vba vào thì nó báo lỗi Couldn't copy sheet là tạo một file .tmp trên thư mục chứa file gốc và lúc này mình làm thủ công cũng bị báo lỗi.
Mình thử mở một file mới hoàn toàn và copy tay lại dữ liệu từng sheet, rồi chỉ đơn giản code sub endsub, rồi copy sheet thủ công nó cũng báo lỗi.
Không biết file mình bị lỗi gì.

Cái code VBA ấy đâu bạn? Trị bệnh phải trị tận gốc.

 

[bebo021999]

Code ở mô rứa?
Bây chừ o paste hắn ở ni để xem nó ra răng.

 

[Tienlangben98]

Tại mình lưu vào thư mục có dấu nên nó báo lỗi, cảm ơn mọi người đã quan tâm.

 

[Tienlangben98]

Cái code VBA ấy đâu bạn? Trị bệnh phải trị tận gốc.

Cho mình hỏi dòng này mình bị lỗi gì không. Mình muốn lưu file theo tháng tại Ô A2 sheet bang luong

 

[bebo021999]

B1: That cụm Cstr bằng con số nào đó, VD: 3, thử xem có OK không?
B2: Nếu OK, thay Month = worksheet.function.Month xem có OK không?
B3:' Kiểm tra A2 của sheet Bang luong có phải là ngày tháng hợp lệ không?

 

[Maika8008]

Cho mình hỏi dòng này mình bị lỗi gì không. Mình muốn lưu file theo tháng tại Ô A2 sheet bang luongView attachment 288001

Tôi thấy dòng đó không có vấn đề gì. Bạn có thể bỏ hàm Cstr đi cũng không hề xảy ra lỗi không mong muốn gì (tất nhiên A2 phải tồn tại 1 giá trị number).

 

[Tienlangben98]

B1: That cụm Cstr bằng con số nào đó, VD: 3, thử xem có OK không?
B2: Nếu OK, thay Month = worksheet.function.Month xem có OK không?
B3:' Kiểm tra A2 của sheet Bang luong có phải là ngày tháng hợp lệ không?

Mình format ô A2 theo giá trị mình mong muốn không cái này có phải nguyên nhân không.

 

[ptm0412]

Dòng code tô vàng:
File mới tạo ra đang được activate(d), file này làm gì có sheet "Bang Luong"

 

[ptm0412]

Dời dòng lệnh lỗi lên trên dòng lệnh copy là được.
Công đánh dấu chỗ để dời: 10 USD
Công xem hình, cộng kinh nghiệm đọc code để tìm ra chỗ đánh dấu: 990 USD