Giải đáp giùm em, cách khắc phục lỗi này trên VBA

[nttrung_proneu]

1. Dạ tình hình là các mã Code này là e vô tình cóp nhặt trên mạng về và làm, file số liệu thì chạy vẫn ra nhưng khi kiểm tra lại thì có các trường hợp như "1 Nợ nhiều Có", "Nhiều Có 1 Nợ", "Nhiều Nợ Nhiều Có" thì bị sai. ==> Đó là các vấn đề mà e gặp phải ạ.

2. Mục đích của em là tách dữ liệu từ phần mềm kế toán ERP ==> Các Cột "Tài khoản nợ", "Tài khoản có", "Số tiền phát sinh" => Để dễ dàng xử lý trong việc soát xét sổ sách ạ.

3. Chỗ vướng của em là không biết tách như thế nào các trường hợp nhiều nợ, nhiều có, 1 nợ, 1 có ạ?

4. Nhờ các anh xem trên file của em gửi, giúp em xem bị sai sót ở đâu ạ.
Em xin cảm ơn ạ.

Trường hợp nhiều nợ nhiều có bạn có tách thủ công bằng tay được không vậy? Hay là bạn bảo nó lúc nào cũng phải có 1 cặp nợ có tương ứng cùng số tiền để tách? Trong phần mềm ERP không có hạch toán theo nhóm đối ứng hay sao bạn? Đối chiếu soát xét sổ sách thì dữ liệu gốc của bạn có lẽ có thể làm được hết rồi, vấn đề là ở tư duy logic mà thôi. (trong nhiều phần mềm có thể kết xuất được dạng cột TK nợ, cột TK có, cột tiền, nhưng muốn được như thế thì lúc hạch toán phải khai báo thêm nhiều điều kiện nữa: nhóm hạch toán, hóa đơn thuế,... hay là có giao diện khác có thể kết xuất ra mà bạn chưa biết^^)