Help với Rowsource của Listbox - VBA

[nqtrungquatest2]

Dear các anh chị,
Mình là thành viên mới, mù VBA, mày mò mấy hôm nay để tự làm cái tool phục vụ công việc.
Hiện đang bị bí chỗ listbox. Listbox này hiển thị kết quả từ một vùng dữ liệu sau khi lọc. Nhưng khi mình bấm lọc (Button "Xem" trong Form "giaodienchinh", file đính kèm) thì sau vài ba lần bấm liên tục là listbox không còn hiển thị đủ dữ liệu. Mặc dù mình xem dữ liệu trên sheet kết quả lọc vẫn đầy đủ.

Các a/c hỗ trợ giúp mình với. Many tks !

P/S: Nhân tiện, đây là file đầu tiên mình làm nên còn rất vụng về. Mong các anh chị thông cảm và góp ý giúp. Tks 1 lần nữa

 

[SA_DQ]

Mình nghĩ là câu lệnh nạy:

     Sheets("DATA").Range("A1:V25").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("AX1:AX2"), CopyToRange:=Range("AA1:AV50"), Unique:=False

có vấn đề ở con số 50; Bạn thử thay bỡi 1 xem sao(?)

Thêm nữa:
(1) Mệnh đề Sheets("DATA").Range("A1:V25").AdvancedFilter có vấn đề tiềm ẩn nguy cơ sau này, 1 khi CSDL của bạn phát triển
Nếu là mình thì mệnh đề này sẽ là: Sheets("DATA").Range("B2").CurrentRegion.AdvancedFilter

(2) Tên các trường không nên chứa những ký tự như "." hay "-" & "/",. . . .
Là mình thì mình sẽ xài "_" thay cho chúng nếu cần; Còn không thì bỏ quách chúng đi cho khỏe!
Ví dụ D_Line HS thay vì D.LINE HS hay PHop_ThauPhu thay cho PHỐI HỢP/ THẦU PHỤ

Chúc các bạn có 1 mùa xuân vui khỏe & hạnh phúc!

 

[nqtrungquatest2]

Mình nghĩ là câu lệnh nạy:

     Sheets("DATA").Range("A1:V25").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("AX1:AX2"), CopyToRange:=Range("AA1:AV50"), Unique:=False

có vấn đề ở con số 50; Bạn thử thay bỡi 1 xem sao(?)

Thêm nữa:
(1) Mệnh đề Sheets("DATA").Range("A1:V25").AdvancedFilter có vấn đề tiềm ẩn nguy cơ sau này, 1 khi CSDL của bạn phát triển
Nếu là mình thì mệnh đề này sẽ là: Sheets("DATA").Range("B2").CurrentRegion.AdvancedFilter

(2) Tên các trường không nên chứa những ký tự như "." hay "-" & "/",. . . .
Là mình thì mình sẽ xài "_" thay cho chúng nếu cần; Còn không thì bỏ quách chúng đi cho khỏe!
Ví dụ D_Line HS thay vì D.LINE HS hay PHop_ThauPhu thay cho PHỐI HỢP/ THẦU PHỤ

Chúc các bạn có 1 mùa xuân vui khỏe & hạnh phúc!

Thank các góp ý của bạn. Mình đã thử sửa lại nhưng không ăn thua. Mình đã kiểm tra kết quả lọc vẫn ok. Nhưng vấn đề của mình nằm ở 3 cái list box. Nó không hiển thị đầy đủ dữ liệu đã lọc ra. Trong khi mình thấy kết quả lọc trên sheet vẫn đầy đủ @@