đưa dữ liệu vào listbox không đúng (1 người xem)

[thomtv]

em muốn tạo listbox tìm kiếm từ điều kiện textbox tìm dữ liệu trên sheet rồi đưa vào listbox với đoạn code sau:
Set KQ = Sheet1.[B:b].Find(Me.TextBox1)
ListBox1.RowSource = KQ.CurrentRegion.Offset(KQ, 1).Address'
khai báo hàm offset không biết nó sai gì, có lúc nó thực hiện đúng có lúc lại không đúng.
rấ mong nhận được sự giúp đỡ và hớng dẫn của các A/c.
xin cảm ơn ah!

 

[HyperLink]

bạn tải file đính kèm để tham khao code trong đó nhé !

Private Sub TextBox1_Change()
    
    Dim vung As Range
    Set vung = Range(Sheets("Sheet1").Range("B65000").End(xlUp), Range("B2"))
    'khi textbox1 =empty thi Listbox1 tu dong show all
    ListBox1.Clear
    
    ListBox1.List = Filter(WorksheetFunction.Transpose(vung), _
                            TextBox1.text, _
                            True, _
                            vbTextCompare)


End Sub

 

[thomtv]

bạn tải file đính kèm để tham khao code trong đó nhé !

Private Sub TextBox1_Change()
    Dim vung As Range
    Set vung = Range(Sheets("Sheet1").Range("B65000").End(xlUp), Range("B2"))
    'khi textbox1 =empty thi Listbox1 tu dong show all
    ListBox1.Clear
    ListBox1.List = Filter(WorksheetFunction.Transpose(vung), _
                            TextBox1.text, _
                            True, _
                           vbTextCompare)
End Sub

Xin cản ơn bạn,
bạn có thể chỉnh lại tí được không. Mình muốn listbox hện nhều cột thì sửa lại như tế nào nhờ bạn giúp
xin cảm ơn.

 

[HyperLink]

Xin cản ơn bạn,
bạn có thể chỉnh lại tí được không. Mình muốn listbox hện nhều cột thì sửa lại như tế nào nhờ bạn giúp
xin cảm ơn.

bạn tải file về xem tiếp nhé, nó ở sheet2.

 

[thomtv]

bạn tải file về xem tiếp nhé, nó ở sheet2

mình tải về rồi mở form lên gõ vào textbox nó không chạy gì hết.
bạn vui lòng xem lại giúp mình. Cảm ơn

 

[HyperLink]

mình tải về rồi mở form lên gõ vào textbox nó không chạy gì hết.
bạn vui lòng xem lại giúp mình. Cảm ơn

do mình cài điều kiện = nên phải gõ đúng tên thì mới ra kết quả hoặc bạn có thể thay thế dòng lệnh này

If UCase(vung(i, 3)) = UCase(Trim(Me.tbx_ten)) Then

thành

If UCase(vung(i, 3)) Like "*" & UCase(Trim(Me.tbx_ten)) & "*"

 

[doveandrose]

mình tải về rồi mở form lên gõ vào textbox nó không chạy gì hết.
bạn vui lòng xem lại giúp mình. Cảm ơn

có chạy mà gõ full 1 cái tên nào đó ở cột C là có chạy ngay . thí dụ Khai ......

 

[thomtv]

do mình cài điều kiện = nên phải gõ đúng tên thì mới ra kết quả hoặc bạn có thể thay thế dòng lệnh này

If UCase(vung(i, 3)) = UCase(Trim(Me.tbx_ten)) Then

thành

If UCase(vung(i, 3)) Like "*" & UCase(Trim(Me.tbx_ten)) & "*"

cảm ơn bạn rất nhiệt tình, cho mình hỏi thêm 1 cái nữa nhe!
vậy muốn search một chuỗi hay một số nào đó trên toàn bộ các cột thì như thế nào.
theo file bạn gửi thì chỉ tìm tại cột 3.
mình gửi file lên để bạn giúp mình nhé.
yêu cầu như sau:
1/ trước tiên (F5 mỡ form) chọn vào (combobox) chọn PGD để chọn đến sheet cần seach. Nhập dữ liệu vào (textbox) tìm tất cả sau đó nhấn vào nút tìm sẻ hiện dòng cần tìm tại (listbox)
2/ điều kện hiện trong (listbox) 9 cột, dòng được hiện và sắp xếp theo vần hoặc theo số.(như fie của bạn gửi ở sheet1, mình muốn hiện luôn nhiều cột ).
Rất mong được mọi ngời giúp đỡ.
exin cảm ơn