LỌC TÌM KIẾM CÁC GIÁ TRỊ TRONG LISTBOX VBA EXCEL

[xuanhiencp]

Thân chào cả nhà, mình có 1 vấn đề thế này, mình có 2 ô textbox, mình chia làm 2 bước lọc tìm kiếm như sau:
B1. Texbox1 lọc tìm kiếm mã vật tư theo sheets("DMVT") và show nó lên listbox
B2. Texbox2 lọc tìm kiếm tiếp kết quả vừa show trong listbox
tuy nhiên tại cái bước 2 gặp vấn đề là lọc nhiều khi không chính xác theo ý mình, vậy nhờ mọi người chỉ cho code lọc tìm kiếm nhanh trong listbox (nghĩa là với danh sách các item có sẵn trong listbox, mình chỉ cần gõ 1 ký tự bất kỳ lên texbox tìm kiếm, nó sẽ show các item có chứa ký tự đó)
lên mạng tìm được đoạn code này nhưng nó lọc không hết
For i = 0 To lstHH.ListCount
If Not UCase(lstHH.List(i, 1)) Like "*" & UCase(txtTenHH) & "*" Then
lstHH.RemoveItem (i)
End If
Next