Giúp sửa code copy dữ liệu từ file Data sang file mẫu

[Hongha0412]

Tôi có 2 file: Data và fileMau

Khi tôi chọn 1 số dòng trong sheet "Ehoadon" trong file DATA, sau đó nhấn nút COPY, thì copy dữ liệu được chọn qua fileMau

Hiện nay code (do tôi lấy trên GPE về chỉnh sửa), đã copy dữ liệu được, nhưng vẫn còn một số bất tiện sau.

Các hạn chế cần sửa là:

- Trước khi copy dữ liệu vào sheet "EHD" trên fileMau, thì dữ liệu cũ trên sheet "EHD" sẽ được xóa hết (từ A6 trở xuống)

- Do file DATA thường thay đổi tên (làm theo tháng); nên tôi muốn đổi tên file DATA mà code vẫn chạy?

Mong mọi người giúp đỡ, hoàn thiện code.

 

[keyeutien]

Tôi có 2 file: Data và fileMau

Khi tôi chọn 1 số dòng trong sheet "Ehoadon" trong file DATA, sau đó nhấn nút COPY, thì copy dữ liệu được chọn qua fileMau

Hiện nay code (do tôi lấy trên GPE về chỉnh sửa), đã copy dữ liệu được, nhưng vẫn còn một số bất tiện sau.

Các hạn chế cần sửa là:

- Trước khi copy dữ liệu vào sheet "EHD" trên fileMau, thì dữ liệu cũ trên sheet "EHD" sẽ được xóa hết (từ A6 trở xuống)

- Do file DATA thường thay đổi tên (làm theo tháng); nên tôi muốn đổi tên file DATA mà code vẫn chạy?

Mong mọi người giúp đỡ, hoàn thiện code.

Đã chỉnh theo yêu cầu. bạn xem file đính kèm

 

[Hongha0412]

Đã chỉnh theo yêu cầu. bạn xem file đính kèm

Cảm ơn bạn rất nhiều. Mình đã thử, code chạy rất ok.

 

[le_vis]

Đã chỉnh theo yêu cầu. bạn xem file đính kèm

Bạn xem lại giúp khi mình ứng dụng sang File xlsm code chỉ thực hiện lệnh xóa mà không copi được dữ liệu mới sang File mẫu ? - Xin cảm ơn

 

[BuiQuangThuan]

Bạn xem lại giúp khi mình ứng dụng sang File xlsm code chỉ thực hiện lệnh xóa mà không copi được dữ liệu mới sang File mẫu ? - Xin cảm ơn

Chủ topic và bác này là 1 à. Cái chỗ ứng dụng sang file xlsm là thế nào ạ. có thể nó cụ thể được không

 

[keyeutien]

Bạn xem lại giúp khi mình ứng dụng sang File xlsm code chỉ thực hiện lệnh xóa mà không copi được dữ liệu mới sang File mẫu ? - Xin cảm ơn

code chạy bình thường mà bạn. Chọn dòng hoặc chọn vùng cần copy rồi click là chuyển qua thôi

 

[le_vis]

Chủ topic và bác này là 1 à. Cái chỗ ứng dụng sang file xlsm là thế nào ạ. có thể nó cụ thể được không

Ha ha Chào buiquangthuan . tôi lấy 02 file của chủ thơi có dạng xls về đưa vào File xlsm chạy thử nhưng không được - Bạn có thể xem giúp. Trân trọng cảm ơn

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

code chạy bình thường mà bạn. Chọn dòng hoặc chọn vùng cần copy rồi click là chuyển qua thôi

Khà khà. Xin lỗi các bạn - Lỗi tại tôi chưa chọn vùng cần cop - Xin cảm ơn nhiều

 

[BuiQuangThuan]

Ha ha Chào buiquangthuan . tôi lấy 02 file của chủ thơi có dạng xls về đưa vào File xlsm chạy thử nhưng không được - Bạn có thể xem giúp. Trân trọng cảm ơn

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

Khà khà. Xin lỗi các bạn - Lỗi tại tôi chưa chọn vùng cần cop - Xin cảm ơn nhiều

Hiện tại em thấy code trong file đúng mà. Khi em thao tác cũng không thấy xảy ra lỗi gì. nếu có lỗi anh có thể chụp lại màn hình đính kèm được không

 

[neyugngnort]

Cảm ơn bạn rất nhiều. Mình đã thử, code chạy rất ok.

Mình góp ý, bạn nên thay đoạn code
Selection.Copy bằng Selection.EntireRow.Copy
Bạn không cần bôi cả dòng ở sheet data mà chỉ cần bôi vùng hoặc ô cần copy

 

[le_vis]

code chạy bình thường mà bạn. Chọn dòng hoặc chọn vùng cần copy rồi click là chuyển qua thôi

Xin lỗi bạn mình muốn ứng dụng cho trường hợp copi cùng lúc sang được nhiều File (Có thể lên 12File ) có cùng định dạnh thì sửa thêm code thế nào xin các bạn xem file đính kèm và giúp cho - xin cảm ơn

 

[keyeutien]

Xin lỗi bạn mình muốn ứng dụng cho trường hợp copi cùng lúc sang được nhiều File (Có thể lên 12File ) có cùng định dạnh thì sửa thêm code thế nào xin các bạn xem file đính kèm và giúp cho - xin cảm ơn

Không rõ bạn có cần lựa chọn file sẽ copy ko?bạn chép file dưới bỏ vào cùng thư mục khi nhấn nút copy sẽ mặc định dán vào tất cả các file có sheet tên "EDH" trong thư mục đó

 

[Hongha0412]

Chủ topic và bác này là 1 à. Cái chỗ ứng dụng sang file xlsm là thế nào ạ. có thể nó cụ thể được không

Làm người khác, chứ không phải mình đâu (hongha0412)

 

[BuiQuangThuan]

Làm người khác, chứ không phải mình đâu (hongha0412)

Tại thấy dữ liệu 2 người dùng giống nhau. Lại tưởng là 1