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

Liên hệ QC

ThuyTrang79

Thành viên hoạt động
Tham gia
13/2/20
Bài viết
140
Được thích
26
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

  • vd.c1.xlsx
    440 KB · Đọc: 16
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

  • vd.c1(20200325).xlsm
    264.2 KB · Đọc: 16
Upvote 0
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 ạ !
 
Upvote 0
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
 
Upvote 0
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ứ.
 
Upvote 0
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

  • vd.c2.xlsx
    411.3 KB · Đọc: 4
Upvote 0
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

  • vd.c(20200326).xlsm
    343.8 KB · Đọc: 13
Upvote 0
Web KT
Back
Top Bottom