Tách dữ liệu tự động

[Nhật Anh 9x]

Em chào các Anh, Chị!

Em có 1 file gồm 2 sheet một sheet là nhu cầu sản phẩm, một sheet là dữ liệu nhập của mình
Em tạo một đoạn code để phân tách dữ liệu nhập sao cho lượng nhập bằng với nhu cầu của từng mã
Em đã chạy thành công, nhưng em thấy code em viết còn loằng ngoằng. em gửi file lên mong tất cả các anh chị
xem qua và chỉnh sửa code giúp em được hiệu quả hơn hoặc khi dữ liệu lớn hơn code có thể chạy nhanh hơn, code em viết tại module2 ạ!

 

[Nhật Anh 9x]

Em chào các Anh, Chị!

Em có 1 file gồm 2 sheet một sheet là nhu cầu sản phẩm, một sheet là dữ liệu nhập của mình
Em tạo một đoạn code để phân tách dữ liệu nhập sao cho lượng nhập bằng với nhu cầu của từng mã
Em đã chạy thành công, nhưng em thấy code em viết còn loằng ngoằng. em gửi file lên mong tất cả các anh chị
xem qua và chỉnh sửa code giúp em được hiệu quả hơn hoặc khi dữ liệu lớn hơn code có thể chạy nhanh hơn, code em viết tại module2 ạ!

View attachment 294238
View attachment 294239

@Maika8008 Sếp xem giúp em bài này với ạ. Hôm qua em về thử chạy với dữ liệu lớn hơn chạy chậm lắm ạ.

 

[Hoàng Tuấn 868]

Vụ này bị gọi đích danh rồi thì ai dám lọ mọ nữa đây. Lại còn được phong lên chức "Sêp" nữa chứ, chỉ chờ quyết định dấu đỏ là xong.

 

[Maika8008]

@Maika8008 Sếp xem giúp em bài này với ạ. Hôm qua em về thử chạy với dữ liệu lớn hơn chạy chậm lắm ạ.

Chạy chậm mà kết quả đúng thì cứ dùng

 

[Nhật Anh 9x]

Vụ này bị gọi đích danh rồi thì ai dám lọ mọ nữa đây. Lại còn được phong lên chức "Sêp" nữa chứ, chỉ chờ quyết định dấu đỏ là xong.

hihi. đôi khi phải vui vẻ tí chứ anh.

Bài đã được tự động gộp: 26/8/23

Chạy chậm mà kết quả đúng thì cứ dùng

Vâng. Mong anh xem qua giúp em ạ, xem có cải tiến được thêm không ạ.

 

[Maika8008]

hihi. đôi khi phải vui vẻ tí chứ anh.

Bài đã được tự động gộp: 26/8/23

Vâng. Mong anh xem qua giúp em ạ, xem có cải tiến được thêm không ạ.

Sao chừ nhiều người như Tôn Ngộ Không thế nhỉ? Từ Tôn Hành Giả đổi sang Giả Hành Tôn, rồi ít hôm nữa lại thành Hành Giả Tôn.

 

[Maika8008]

Vâng. Mong anh xem qua giúp em ạ, xem có cải tiến được thêm không ạ.

Tôi viết lại hết chứ không thể sửa.
Lưu ý sửa lại các địa chỉ tham chiếu cho đúng.

 

[Nhật Anh 9x]

Tôi viết lại hết chứ không thể sửa.
Lưu ý sửa lại các địa chỉ tham chiếu cho đúng.

Em cảm ơn Anh ạ

 

[Nhật Anh 9x]

Tôi viết lại hết chứ không thể sửa.
Lưu ý sửa lại các địa chỉ tham chiếu cho đúng.

Em chào Anh. Tối nay em chạy thử code, code chạy rất nhanh Anh ạ. Em có thay đổi lại địa chỉ tham chiếu, và kết quả cho đổ ra sheet2 từ ô I2
nhưng kết quả ra lại không đúng anh ạ. Anh làm ơn xem lại giúp em với ạ!
Em cảm ơn Anh!

 

[Maika8008]

Em chào Anh. Tối nay em chạy thử code, code chạy rất nhanh Anh ạ. Em có thay đổi lại địa chỉ tham chiếu, và kết quả cho đổ ra sheet2 từ ô I2
nhưng kết quả ra lại không đúng anh ạ. Anh làm ơn xem lại giúp em với ạ!
Em cảm ơn Anh!

Bạn tham chiếu sai chỗ chữ đậm: aData = Sheet1.Range("A2:E" & Sheet2.Range("A" & Rows.Count).End(xlUp).Row). Chỗ đó phải là Sheet1.
Tiện thể, code cũ cho ra kết quả không đúng ở 2 dòng cuối nên tôi sửa và gửi lại file

 

[Maika8008]

Em chào Anh. Tối nay em chạy thử code, code chạy rất nhanh Anh ạ. Em có thay đổi lại địa chỉ tham chiếu, và kết quả cho đổ ra sheet2 từ ô I2
nhưng kết quả ra lại không đúng anh ạ. Anh làm ơn xem lại giúp em với ạ!
Em cảm ơn Anh!

Tôi thay code, bạn test lại xem

 

[Nhật Anh 9x]

Tôi thay code, bạn test lại xem

Anh ơi, em vừa test lại dữ liệu, em có đối chiếu lại lượng tách và lượng data thì vẫn bị lệch Anh ạ! Em gửi lại file up thêm dữ liệu lớn, Anh xem qua giúp em ạ!
Em cảm ơn Anh!

 

[Maika8008]

Anh ơi, em vừa test lại dữ liệu, em có đối chiếu lại lượng tách và lượng data thì vẫn bị lệch Anh ạ! Em gửi lại file up thêm dữ liệu lớn, Anh xem qua giúp em ạ!
Em cảm ơn Anh!

Khả năng tôi có giới hạn nên chỉ làm được đến đó. Nếu code của bạn chạy đúng nhưng chậm thì cứ dùng nó (chậm có sao đâu). Còn không thì chờ người khác nhé.

 

[Nhật Anh 9x]

Khả năng tôi có giới hạn nên chỉ làm được đến đó. Nếu code của bạn chạy đúng nhưng chậm thì cứ dùng nó (chậm có sao đâu). Còn không thì chờ người khác nhé.

Anh ơi. Dù thế nào em cũng rất cảm ơn Anh đã giúp đỡ em những ngày qua ạ.

 

[Maika8008]

Anh ơi. Dù thế nào em cũng rất cảm ơn Anh đã giúp đỡ em những ngày qua ạ.

Dù sao tôi vẫn nhớ là sau bài #3 thì bạn đã đổi tên

 

[Hoàng Tuấn 868]

Dù sao tôi vẫn nhớ là sau bài #3 thì bạn đã đổi tên

Em mà thấy mấy vụ đổi tên như thế là khỏi hỗ trợ luôn, đã đi nhờ rồi mà nay tên này, mai tên khác như trò đùa.

 

[Nhật Anh 9x]

Dù sao tôi vẫn nhớ là sau bài #3 thì bạn đã đổi tên

Hihi. Vâng Anh . Tên trước để bị trêu quá nên em đổi lại tên thôi, chứ không có ý gì đâu Anh ạ