Xin Code tạo hàm tìm kiếm dữ liệu

[XinCodeVBA]

Chào mọi người trong diễn đàn

Hiện tại em cần hỏi vấn đề về hàm tìm kiếm dữ liệu mong mọi người cho em xin code


* Sheet 1 em có data là 2 dòng hàng này
----------------------------------------------

* Sheets 2 em dùng để Search, khi em gõ số 106-89-8 thì nó sẽ hiện ra 2 dòng data như sheet1
----------------------------------------------
Bác nào cho em xin code với tks! hihihi

 

[Hoàng Tuấn 868]

XinCodeVBA​

Sao không đề tên là HocCodeVBA mà lại là XinCodeVBA nhỉ.

 

[bebo021999]

Lần sau post file thì cho ví dụ nhiều nhiều dòng chút còn test nhé
Code này để trong worksheet module

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, i&, j&, k&, rng, res(1 To 10000, 1 To 9)
If Target.Address(0, 0) <> "A2" Then Exit Sub
With Sheets("Sheet1")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    rng = .Range("A1:I" & lr).Value
End With
For i = 1 To UBound(rng)
    If rng(i, 1) = Target.Value Then
        k = k + 1
        For j = 1 To UBound(rng, 2)
            res(k, j) = rng(i, j)
        Next
    End If
Next
If k > 0 Then
    Range("A4:I10000").ClearContents
    Range("A4").Resize(k, 9).Value = res
End If
End Sub

 

[VetMini]

XinCodeVBA​

Sao không đề tên là HocCodeVBA mà lại là XinCodeVBA nhỉ.

Tại vì muốn dùng cái Tê-Ka-Ét.
Thành viên mới xin code có quyền dùng tiếng Tây bồi. Ai bắt bẻ thì chửi lạ (*).

(*) Chú thích: mới đây còn có Tây bồi bảo tôi đi học lại tiếng Việt

 

[XinCodeVBA]

Tại vì muốn dùng cái Tê-Ka-Ét.
Thành viên mới xin code có quyền dùng tiếng Tây bồi. Ai bắt bẻ thì chửi lạ (*).

(*) Chú thích: mới đây còn có Tây bồi bảo tôi đi học lại tiếng Việt

Tại vì muốn dùng cái Tê-Ka-Ét.
Thành viên mới xin code có quyền dùng tiếng Tây bồi. Ai bắt bẻ thì chửi lạ (*).

(*) Chú thích: mới đây còn có Tây bồi bảo tôi đi học lại tiếng Việt

Lần sau post file thì cho ví dụ nhiều nhiều dòng chút còn test nhé
Code này để trong worksheet module

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, i&, j&, k&, rng, res(1 To 10000, 1 To 9)
If Target.Address(0, 0) <> "A2" Then Exit Sub
With Sheets("Sheet1")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    rng = .Range("A1:I" & lr).Value
End With
For i = 1 To UBound(rng)
    If rng(i, 1) = Target.Value Then
        k = k + 1
        For j = 1 To UBound(rng, 2)
            res(k, j) = rng(i, j)
        Next
    End If
Next
If k > 0 Then
    Range("A4:I10000").ClearContents
    Range("A4").Resize(k, 9).Value = res
End If
End Sub

Hi cám ơn bác!

Bác cho em hỏi thêm xíu nữa, trường hợp em muốn tất cả hàng A đều chứa tính năng Search, và các dữ liệu trả về nằm chung hàng ngang với từ khóa vừa Search. Dữ liệu data hàng ngang lần này sẽ kéo dài đến cột K. Bác có thể Code lại giúp em với đc k ạ Cám ơn bác nhé!

Bài đã được tự động gộp: 5/6/23

Lần sau post file thì cho ví dụ nhiều nhiều dòng chút còn test nhé
Code này để trong worksheet module

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, i&, j&, k&, rng, res(1 To 10000, 1 To 9)
If Target.Address(0, 0) <> "A2" Then Exit Sub
With Sheets("Sheet1")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    rng = .Range("A1:I" & lr).Value
End With
For i = 1 To UBound(rng)
    If rng(i, 1) = Target.Value Then
        k = k + 1
        For j = 1 To UBound(rng, 2)
            res(k, j) = rng(i, j)
        Next
    End If
Next
If k > 0 Then
    Range("A4:I10000").ClearContents
    Range("A4").Resize(k, 9).Value = res
End If
End Sub

Bác cho em hỏi thêm xíu nữa, trường hợp em muốn tất cả hàng A đều chứa tính năng Search, và các dữ liệu trả về nằm chung hàng ngang với từ khóa vừa Search. Dữ liệu data hàng ngang lần này sẽ kéo dài đến cột K. Bác có thể Code lại giúp em với đc k ạ Cám ơn bác nhé!

 

[bebo021999]

Bác cho em hỏi thêm xíu nữa, trường hợp em muốn tất cả hàng A đều chứa tính năng Search, và các dữ liệu trả về nằm chung hàng ngang với từ khóa vừa Search. Dữ liệu data hàng ngang lần này sẽ kéo dài đến cột K. Bác có thể Code lại giúp em với đc k ạ Cám ơn bác nhé!

Thay đổi thế nào thì post file lại và đưa tình huống mới vào nhé

 

[Maika8008]

Chưa biết sẽ có thay đổi nữa không chứ theo tôi thấy đây là tình huống lọc dữ liệu và kết quả chưa chắc đã là 2 dòng như đề cập ở bài #1 và ép chúng nằm trên 1 dòng (là đoán đại như vậy) như ở bài #5