Nhờ Hướng dẫn viết Code giúp cách tìm dữ liệu trong Sheet theo điều kiện

[chuonglt]

Em có 1 Sheet Data. Trong Sheet này có một cột là cột I là cột chứa dữ liệu cần lọc
Trên Sheet Form cột A1:A5 là dữ liệu căn cứ lọc.
Em muốn nhờ các anh/chị code giúp khi Bấm chọn list trong Combobox (list đã liên kết với cột A1:A5) thì sẽ hiện toàn bộ dữ liệu dưới bảng Textbox.
Ví dụ em chọn "Xã Ea Rốk" trên Combobox thì dưới Textbox sẽ hiện danh sách trong Sheet Data có chứa dữ liệu "Xã Ea Rốk".
Em nhờ anh/chị giúp đỡ ạ. Em xin cám ơn

 

[VetMini]

Nhờ hướng dẫn hay nhờ viết code giùm.
Xét mấy bài trước thì bạn nói hướng dẫn nhưng toàn là lấy code thôi. Nói thẳng "nhờ viết giùm code" cho nó chân thật.

 

[chuonglt]

Nhờ hướng dẫn hay nhờ viết code giùm.
Xét mấy bài trước thì bạn nói hướng dẫn nhưng toàn là lấy code thôi. Nói thẳng "nhờ viết giùm code" cho nó chân thật.

Em không biết mới nhờ hướng dẫn viết giúp ạ

 

[Thóc Sama]

Em có 1 Sheet Data. Trong Sheet này có một cột là cột I là cột chứa dữ liệu cần lọc
Trên Sheet Form cột A1:A5 là dữ liệu căn cứ lọc.
Em muốn nhờ các anh/chị code giúp khi Bấm chọn list trong Combobox (list đã liên kết với cột A1:A5) thì sẽ hiện toàn bộ dữ liệu dưới bảng Textbox.
Ví dụ em chọn "Xã Ea Rốk" trên Combobox thì dưới Textbox sẽ hiện danh sách trong Sheet Data có chứa dữ liệu "Xã Ea Rốk".
Em nhờ anh/chị giúp đỡ ạ. Em xin cám ơn

Sự kiện Change ở Combobox1 bạn đặt code dưới.
"Có mượn thêm của bác @leonguyenz "

Private Sub ComboBox1_Change()
Dim Arr(), Res(), i As Long, j As Long, Lr As Long, k As Long, t As Long
Dim xa As String
With Sheet2
    Lr = .Range("A" & Rows.Count).End(xlUp).Row
    Arr = .Range("A1:I" & Lr).Value
    ReDim Res(1 To UBound(Arr), 1 To 10)
    For i = 2 To UBound(Arr)
        If Arr(i, 9) = ComboBox1.Text Then
            k = k + 1
            Res(k, 1) = k
            For t = 2 To 9
                Res(k, t) = Arr(i, t)
            Next t
        End If
    Next i
End With
    Me.ListBox1.ColumnCount = 9
    Me.ListBox1.ColumnWidths = "20 pt;50 pt;50 pt;50 pt;50 pt;20 pt;50 pt;100 pt;"
    Me.ListBox1.List = Res
End Sub

 

[Hoàng Tuấn 868]

Sự kiện Change ở Combobox1 bạn đặt code dưới.

"Dim xa As String"
Cho mình hỏi đoạn này để làm gì bạn nhỉ.

 

[Thóc Sama]

"Dim xa As String"
Cho mình hỏi đoạn này để làm gì bạn nhỉ.

Em tính gán cho Combobox1.text cho nó gon phần dưới xong quên mất.
Cám ơn bác đã coi bài.
-->Cái đó dư nha thớt

 

[chuonglt]

Em tính gán cho Combobox1.text cho nó gon phần dưới xong quên mất.
Cám ơn bác đã coi bài.
-->Cái đó dư nha thớt

Em cám ơn bác ạ. Em có vẽ thêm ô Textbox bên cạnh cột Combobox để khi hiện dữ liệu thì gõ vào ô Textbox tìm kiếm dữ liệu trên đó luôn nhưng toàn báo lỗi khúc này. Mong bác chỉ dạy thêm sai chỗ nào ạ

 

[Thóc Sama]

Em cám ơn bác ạ. Em có vẽ thêm ô Textbox bên cạnh cột Combobox để khi hiện dữ liệu thì gõ vào ô Textbox tìm kiếm dữ liệu trên đó luôn nhưng toàn báo lỗi khúc này. Mong bác chỉ dạy thêm sai chỗ nào ạ
View attachment 278862

Bạn kiểm tra file xem được chưa?