help code đưa kết quả tìm kiếm trong listbox vào sheet (1 người xem)

[light1203]

mình có tạo 1 useform tìm kiếm và nhập liệu nhưng khi tìm kiếm xong nhấn nút SAVE để đưa kết quả được chọn vào cột "h" sheet1 thì không được ai chỉ giúp mìn sai cooxnaof được không

 

[batman1]

Dòng này

Dic.Add .List(Id, 0), .List(Id, 0) & ";" & .List(Id, 1) & ";" & .List(Id, 2) & ";" & .List(Id, 3)

Trong ListBox chỉ có 3 cột dữ liệu (chỉ số 0, 1, 2) mà code lại truy cập tới cột thứ 4 (chỉ số 3) nên có lỗi và không có gì được thêm vào đít thon.

Bỏ & ";" & .List(Id, 3) đi.

Tôi không xem các code khác.

 

[SA_DQ]

Khi nào bạn bỏ hết các câu lệnh
On Error Resume Next
thì sẽ biết chương trình đang lỗi gì & từ đó tìm hướng tự khắc phục
& như vậy có thể sau 1 thời gian bạn chả cần phải nhờ sửa cac đứa con tinh thần thân iêu của bạn!

 

[light1203]

thank mọi người mình đã xử lý được rồi . vì mới tập tành vba nên còn chưa rành lắm