Tự động chạy hàm bằng VBA sau khi đã lọc (Filter)

[mr.ghostvt]

Chào anh chị em.
Mình có dòng code như sau.

Private Sub PANDID_Click()
If PANDID = True Then
Trang_tính2.Range("D8").Formula = "=VLOOKUP(G8,'[SVCPP HIDROTEST.xlsx]REGISTER'!$D$5:$F$13355,3,FALSE)"
Trang_tính2.Range("D8:D19330").FillDown
Else
Trang_tính2.Range("D8:D19330").ClearContents
End If
End Sub

Đoạn này là đoạn code để gán vào nút checkbox, khi nhấn vào dấu tick thì sẽ tự động fill xuống trong 1 cột. Và khi bỏ tick nó sẽ tự động xóa hết giá trị.
Nhưng vấn đề là nó chỉ tác dụng khi không short, còn sau khi short, ròi nhấn checkbox thì nó không tự fill hàm xuống nữa, anh chị em có cách nào viết lại giúp mình code này để khi mỗi lần short xong, tick vào nút checkbox thì nó vẫn tự động fill xuống được không ạ.
Mình xin chân thành cảm ơn mọi người.

 

[VetMini]

Ý bạn muốn gì? Dữ liệu mà "short" có nghĩa là "không đầy đủ" (cắt bớt).

 

[mr.ghostvt]

View attachment 231167

Ý bạn muốn gì? Dữ liệu mà "short" có nghĩa là "không đầy đủ" (cắt bớt).

vâng, ý là lúc đầu nó đầy đủ sẽ có 100 dòng, nhưng sau khi mình short (cắt bớt) phần thừa đi, giá trị ví dụ nó chỉ còn khoảng 50 dòng, thì cái code của e viết khi tick vô nó sẽ không tác dụng. Nó chỉ có tác dụng khi đầy đủ 100 dòng.

Bài đã được tự động gộp: 13/1/20

Đây là file của e, khi để đầy đủ k filter (lọc). Thì giá trị của những ô tick (ví dụ ô P&ID) sẽ có tác dụng, nhưng khi e lọc ra bên mục service, ví dụ như lọc chỉ AI, thì khi bấm tick vào P&ID nó sẽ không còn tac dụng nữa.

 

[mr.ghostvt]

anh em giúp mình với...