Mọi người giúp mình copy dữ liệu theo điều kiện sang các sheets khác nhau bằng vba với.

[darklord_k]

Tình hình là e có một file excel tổng hợp nhiều dữ liệu, e tự mày mò và làm được đến bước import file đó vào và lấy các dữ liệu cần thiết ở file excel riêng. Tiếp theo e cho nó đặt lọc theo điều kiện để copy sang sheets khác, nhưng sau khi đặt lọc và copy xong e không làm cho nó paste sang sheet khác được ( chỗ này thấy mình cứ ngu ngu @@!) , có ai giúp e đoạn này được không, xin cám ơn.

Bài toán như sau : Lọc giá trị cột cuối cùng bên phải ở sheets 1 được giá trị A , copy toàn bộ giá trị thu được ở hàng tương ứng với giá trị A đó vào ô bắt đầu từ A1 của sheets 2.

Hoặc e cũng nghĩ tới kiểu nó dùng vòng lặp ấy nhưng không rõ cách làm , ý tưởng là có 1 bảng dữ liệu lớn ở Sheets1, cột cuối cùng gồm các dữ liệu như A,B,C,D. Nếu tìm được giá trị là A thì copy hàng dữ liệu đó vào từ A1 trong sheets 2 , nếu tìm được giá trị A tiếp thì paste từ A2 trong sheets 2 . Tương tự với các giá trị B,C,D nếu tìm thấy thì copy lần lượt vào các sheets 2,3,4 .

Mong mọi người giúp đỡ người mới học vba chưa được nửa tháng như e (

 

[darklord_k]

ActiveWorkbook.Sheets("A").Range("A:E").copy
ActiveWorkbook.Sheets("B").Range("A1").Paste

mọi người xem cái này sai chỗ nào giúp mình với.

 

[befaint]

cái này sai chỗ nào giúp

Mình muốn biết sai ở chỗ nào hay muốn phương án sửa hết sai?

 

[darklord_k]

Mình muốn biết sai ở chỗ nào hay muốn phương án sửa hết sai?

Giúp mình Code sửa lỗi sao không copy được sau khi lọc xong sang sheets khác đc ko vậy, mình copy với lệnh như trên mà ko được. Thanks bác nhé

 

[befaint]

đc ko

Đờ cờ ca ô là gì vậy? Nửa chữ cũng đừng bao giờ viết không rõ ràng, mình cứ viết cụ thể, mạch lạc ra, không tốn hết mấy giây cuộc đời gõ phím đâu.

ActiveWorkbook.Sheets("A").Range("A:E").copy
ActiveWorkbook.Sheets("B").Range("A1").Paste

Sau khi Copy mà muốn Paste vào đâu thì cần phải NHẢY tới đó đã.

ActiveWorkbook.Sheets("A").Range("A:E").copy
ActiveWorkbook.Sheets("B").Select
ActiveWorkbook.Sheets("B").Range("A1").Select
ActiveWorkbook.Sheets("B").Paste

 

[darklord_k]

Đờ cờ ca ô là gì vậy? Nửa chữ cũng đừng bao giờ viết không rõ ràng, mình cứ viết cụ thể, mạch lạc ra, không tốn hết mấy giây cuộc đời gõ phím đâu.


Sau khi Copy mà muốn Paste vào đâu thì cần phải NHẢY tới đó đã.

ActiveWorkbook.Sheets("A").Range("A:E").copy
ActiveWorkbook.Sheets("B").Select
ActiveWorkbook.Sheets("B").Range("A1").Select
ActiveWorkbook.Sheets("B").Paste

Ồ, chạy được rồi. Cám ơn bác nhé, em viết trên điện thoại nên có viết tắt chút, code sai đúng lỗi cơ bản chứ