Code sao chép dữ liệu giua cac file theo điều kiện. (1 người xem)

[ddluyendla]

Nhờ Anh/chị nào biết hướng dẫn cách Copy dữ liệu từ 1 Sheet sang một file mới.
Các file dữ liệu được xây dựng cùng cột trúc cột, dòng,..
Vd:
Mình có 2 file : trong đó có file_Chinh.xls và một file bangke.xls, bangke01, bangk2,..( tất cả file bảng kê này đều có cấu trúc giống nhau).
Khi mở file Chính ra nhấn vào <Nút đọc file> thì sẽ mở hộp thoại cho phép mình chọn 1 file bất kỳ, lúc đó code sẽ tự động Copy dữ liệu từ File được chọn sang Sheet2 của File_Chinh.xls.

Ghi chú: Do trong file bangke.xls có nhiều dòng trống, nên khi copy chỉ chọn dòng có dữ liệu mới được copy.

 

[nhapmon]

trong khi đợi các thầy giúp bạn, bạn xài đỡ code cùi bắp nha.
còn cái vụ ko chép dòng rổng thì chưa làm được, vì chẳng biết dấu hiệu nào để biết là dòng rổng.
vì cột A thì cell nào cũng có data, dựa vào các cột khác thì nó xử luôn mấy dòng merge cell của bạn.

 

[ddluyendla]

Cảm ơn bạn rất nhiều. Nhưng trong phần Copy dữ liệu từ bảng kê sang Sheet mới. Mình chỉ muốn Copy dữ liệu thôi, các dòng sau không Copy sang: Tại vì các dòng này đưa vào không xử lý đc. Bạn có thể chỉ cách sao khi copy xong, làm thêm 01 bước xoá các dữ liệu có cột K=" " ( cot K: Hình thức thanh toán) Tổng 21.877.015.967 1.793.202.925 3. Hàng hoá, dịch vụ dùng chung cho SXKD chịu thuế và không chịu thuế đủ điều kiện khấu trừ thuế:

 

[nhapmon]

bạn nói chuyên môn kế tế, mình ko hiểu đâu, mình là dân cu-li mà.....hihihi
phần copy vậy là ok phải ko?

sory bạn, cái này ko dùng vòng lặp được, để mình xem lại có cách nào ko đã

 

[ddluyendla]

bạn nói chuyên môn kế tế, mình ko hiểu đâu, mình là dân cu-li mà.....hihihi
phần copy vậy là ok phải ko?

sory bạn, cái này ko dùng vòng lặp được, để mình xem lại có cách nào ko đã

Hi.
Phần Copy là được rồi. Nhưng bạn cố gắng làm sao trong quá Copy không sao chép các dòng phía dưới sang Sheet2.
Hoặc có thể Copy sang rồi thì dùng lênh xoá các dòng đó đi.
Mình gửi lại bạn file, trong Sheet2 mình có đánh dấu vào nội dung cần xoá đấy.

3. Hàng hoá, dịch vụ dùng chung cho SXKD chịu thuế và không chịu thuế đủ điều kiện khấu trừ thuế:

 

[nhapmon]

rồi bạn thử lại file này xem

 

[ddluyendla]

Mình đang kiểm tra, thấy cũng tạm ổn, có gì mình sẽ nhờ bạn bổ sung thêm 1 tý.
Bây giờ copy dữ liệu này sang một file excel mới luôn, chứ không chép qua Sheet2 nữa.
Và sau khi chép xong dữ liệu thì file nguồn tự động đóng lại ( file bangke.xlsx).
Bạn nghiên cứu thêm cho mình phần này tý nữa đi.
Cảm ơn bạn rất nhiều.

 

[nhapmon]

1. Bây giờ copy dữ liệu này sang một file excel mới luôn, chứ không chép qua Sheet2 nữa.
2. Và sau khi chép xong dữ liệu thì file nguồn tự động đóng lại ( file bangke.xlsx).

.

mình muốn hỏi thêm một số thông tin
yêu cầu thứ 1: mỗi lần bạn mở file nguồn ra, bạn chép bao nhiêu sheet trong file đó, vì code hiện tại cho bạn chọn và copy nhiêu sheet, nếu bạn chỉ copy 1 sheet thì thì mình bỏ phần chọn sheet đi cho dể làm.
file bangke.xlsx của bạn có thể save với đuôi .xls ko?nếu được như vậy thì mình copy nguyên sheet bên kia qua rồi xoá đi dòng trống. còn hiện nay nó ko cho copy nguyên sheet (vì sheet của file.xlsx nhiều dòng hơn .xls).

yêu câu thứ 2:hiên nay nó đã làm việc đó rùi mà? copy xong là đóng file đó lại, khi bạn chạy macro nó ko tự đóng file bangke lại ha?

 

[ddluyendla]

Bạn giúp thêm mình tý. Sau khi đã chép dữ liệu sang Sheet mới nó tự động định dạng lại dữ liệu luôn. Hiện tại dữ liệu ngày tháng năm là kiểu chuỗi --> định djang lại dd/mm/yyyy và sau khi nhận xong xuất hiện thông báo tổng số dòng đã được nhận vào.
Thanks

 

[nhapmon]

Bạn giúp thêm mình tý. Sau khi đã chép dữ liệu sang Sheet mới nó tự động định dạng lại dữ liệu luôn. Hiện tại dữ liệu ngày tháng năm là kiểu chuỗi --> định djang lại dd/mm/yyyy và sau khi nhận xong xuất hiện thông báo tổng số dòng đã được nhận vào.
Thanks

không được hay lắm nhưng chạy cũng được, xài tạm vậy