Giúp em VBA tìm DL trùng và copy DL sang với ạ.

ThuyTrang79

Thành viên chính thức
Tham gia ngày
13 Tháng hai 2020
Bài viết
56
Được thích
16
Điểm
20
Tuổi
27
Em chào anh chị ạ !
Đây là file vd ạ, vì có lúc DL nhiều em dùng CT excel nặng quá dễ bị treo máy ạ, nên em muốn dùng VBA để nhẹ hơn ạ.
Nhờ anh chị viết giúp em VBA đưa ra 3 CT để chạy 3 trường hợp sau ạ:
- CT lọc DL trùng, KQ như ở cột B DLmoi
- CT đối chiếu DLcu sang, KQ như ở cột C DLmoi
- CT đối chiếu và copy DLcu sang, KQ như ở cột D,F,G,H,I DLmoi
Các CT này có thể thay đổi vùng chọn, có thể dùng được cả 2 sheet ạ.
Em cảm ơn anh chị rất nhiều ạ !
 

File đính kèm

đungtb2

Thành viên mới
Tham gia ngày
19 Tháng năm 2009
Bài viết
43
Được thích
41
Điểm
665
Em chào anh chị ạ !
Đây là file vd ạ, vì có lúc DL nhiều em dùng CT excel nặng quá dễ bị treo máy ạ, nên em muốn dùng VBA để nhẹ hơn ạ.
Nhờ anh chị viết giúp em VBA đưa ra 3 CT để chạy 3 trường hợp sau ạ:
- CT lọc DL trùng, KQ như ở cột B DLmoi
- CT đối chiếu DLcu sang, KQ như ở cột C DLmoi
- CT đối chiếu và copy DLcu sang, KQ như ở cột D,F,G,H,I DLmoi
Các CT này có thể thay đổi vùng chọn, có thể dùng được cả 2 sheet ạ.
Em cảm ơn anh chị rất nhiều ạ !
Bạn thử kiểm tra file dưới xem thế nào nhé. Khi chạy ban đầu bạn sẽ phải nhập tên sheet nguồn, và tên sheet đích đến nhé. (như ví dụ của bạn thì sheet nguồn sẽ là DLcu và sheet đích là DLmoi. bạn muốn chuyển đổi qua lại 2 sheet thì chỉ cần chọn tên sheet nguồn và đích ngược lại là được nhé).
 

File đính kèm

ThuyTrang79

Thành viên chính thức
Tham gia ngày
13 Tháng hai 2020
Bài viết
56
Được thích
16
Điểm
20
Tuổi
27
Bạn thử kiểm tra file dưới xem thế nào nhé. Khi chạy ban đầu bạn sẽ phải nhập tên sheet nguồn, và tên sheet đích đến nhé. (như ví dụ của bạn thì sheet nguồn sẽ là DLcu và sheet đích là DLmoi. bạn muốn chuyển đổi qua lại 2 sheet thì chỉ cần chọn tên sheet nguồn và đích ngược lại là được nhé).
Anh chỉ lại em cách dùng với ạ !
 

ThuyTrang79

Thành viên chính thức
Tham gia ngày
13 Tháng hai 2020
Bài viết
56
Được thích
16
Điểm
20
Tuổi
27
Em kích nút run để chạy code, sẽ có thông báo để e nhập tên sheet nguồn(DLcu) và sheet đích(DLmoi) ý. Rùi em nhập đúng tên sheet là được thui e.
Dạ em chạy thử với file vd ok, nhưng em thử nhập DL nhiều nó báo lỗi ạ
Nhờ anh viết VBA, nhưng đưa ra CT để chạy cho từng trường hợp với ạ, vì không phải lúc nào cũng chạy tất cả trường hợp cùng 1 lúc ạ,
Em cảm ơn anh !
vdc1.JPG
 

đungtb2

Thành viên mới
Tham gia ngày
19 Tháng năm 2009
Bài viết
43
Được thích
41
Điểm
665
Dạ em chạy thử với file vd ok, nhưng em thử nhập DL nhiều nó báo lỗi ạ
Nhờ anh viết VBA, nhưng đưa ra CT để chạy cho từng trường hợp với ạ, vì không phải lúc nào cũng chạy tất cả trường hợp cùng 1 lúc ạ,
Em cảm ơn anh !
View attachment 234059
Vậy e gửi anh file dữ liệu nhiều để anh check lại xem nhé. Còn chạy những trường hợp nào thì e cần nói rõ hơn thì a mới biết để điều chỉnh ra sao chứ.
 

ThuyTrang79

Thành viên chính thức
Tham gia ngày
13 Tháng hai 2020
Bài viết
56
Được thích
16
Điểm
20
Tuổi
27
Vậy e gửi anh file dữ liệu nhiều để anh check lại xem nhé. Còn chạy những trường hợp nào thì e cần nói rõ hơn thì a mới biết để điều chỉnh ra sao chứ.
Dạ em mới viết lại ý tưởng ở sheet VBA, bằng cách nhập sẵn các vùng lấy DL nguồn, DL đích, Vùng hiện KQ, ra bảng
Nếu cần chạy trường hợp nào thì gõ số 1 vào các trường hợp đó thì VBA sẽ chạy ạ.
Nhờ anh xem viết giúp em code VBA theo file này với ạ.
Em cảm ơn anh rất nhiều ạ !
 

File đính kèm

đungtb2

Thành viên mới
Tham gia ngày
19 Tháng năm 2009
Bài viết
43
Được thích
41
Điểm
665
Dạ em mới viết lại ý tưởng ở sheet VBA, bằng cách nhập sẵn các vùng lấy DL nguồn, DL đích, Vùng hiện KQ, ra bảng
Nếu cần chạy trường hợp nào thì gõ số 1 vào các trường hợp đó thì VBA sẽ chạy ạ.
Nhờ anh xem viết giúp em code VBA theo file này với ạ.
Em cảm ơn anh rất nhiều ạ !
Em kiểm tra file dưới xem sao nhé.
 

File đính kèm

Top Bottom