Nhập dữ liệu từ form có điều kiện và tách file (1 người xem)

[kacalic]

Nhờ các anh chị code giúp em với ạ. bài toán của em như sau:
- khi em nhấn nút Đóng trước bên sheet tracuu thì sẽ hiện form ra. Nhấn nút add trên form thì sẽ dò bên sheet khhienco. dò theo tên nhân viên vận động. nếu có trong danh sách rồi thì sẽ thêm vào dòng cuối cùng trong dãy danh sách theo tên nhân viên vận động đó bên sheet khhienco. nếu dò mà ko có thì sẽ thêm vào dòng đầu tiên của danh sách.tức à dòng 11
- ý thư 2 sẽ là tạo 1 nút bên sheet khhienco nhấn nút sẽ tách danh sách trong sheet khhienco ra nhiêu file theo tên nhân viên vận động. tên sheet theo ten nv vận động đễ gửi cho ace đối soát số tiền
em cảm ơn nhiều ạ.
Em không biết diễn đạt như thế các a chị có dễ hiểu ko. Mọi người thông cảm

 

[be_09]

Nhờ các anh chị code giúp em với ạ. bài toán của em như sau:
- khi em nhấn nút Đóng trước bên sheet tracuu thì sẽ hiện form ra. Nhấn nút add trên form thì sẽ dò bên sheet khhienco. dò theo tên nhân viên vận động. nếu có trong danh sách rồi thì sẽ thêm vào dòng cuối cùng trong dãy danh sách theo tên nhân viên vận động đó bên sheet khhienco. nếu dò mà ko có thì sẽ thêm vào dòng đầu tiên của danh sách.tức à dòng 11
- ý thư 2 sẽ là tạo 1 nút bên sheet khhienco nhấn nút sẽ tách danh sách trong sheet khhienco ra nhiêu file theo tên nhân viên vận động. tên sheet theo ten nv vận động đễ gửi cho ace đối soát số tiền
em cảm ơn nhiều ạ.
Em không biết diễn đạt như thế các a chị có dễ hiểu ko. Mọi người thông cảm

Bạn tạo 1 Folder rồi bỏ File Tach File theo KH vào, các File tách sẽ nằm chung trong Folder này.
Trước khi nhấn nút tách File bạn vào sheet khhienco và Copy dữ liệu từ dòng 11 trở xuống, sang sheet Tach_File và Paste vào rồi mới chạy code, do tách đến 177 File nên tốc độ rất chậm.
Lưu ý: Sử dụng code trong sheet khhienco sẽ bị lỗi do có code đoạn code này Worksheet_SelectionChange.

 

[kacalic]

Bạn tạo 1 Folder rồi bỏ File Tach File theo KH vào, các File tách sẽ nằm chung trong Folder này.
Trước khi nhấn nút tách File bạn vào sheet khhienco và Copy dữ liệu từ dòng 11 trở xuống, sang sheet Tach_File và Paste vào rồi mới chạy code, do tách đến 177 File nên tốc độ rất chậm.
Lưu ý: Sử dụng code trong sheet khhienco sẽ bị lỗi do có code đoạn code này Worksheet_SelectionChange.

Cảm ơn bạn mình test okie roài. sheet khhienco chạy báo lỗi là do mình tạo table. mình xóa table đi thì chạy okie. chớ không phải do có đoạn code này Worksheet_SelectionChange. mình tách theo tên nhân viên nên chỉ ra khoảng 10 file nên không đến nỗi lâu. cảm ơn ban nhiều