nhờ AC fix giúp e code tìm đc trên diễn đàn. (1 người xem)

[haichi1997]

File e tìm đc trên diễn đàn về tìm kiếm nhưng hiện tại e muốn di chuyển ô tìm kiếm ở sheet DL "G2" sang sheet search và có thể tìm kiếm ở cả 2 ô A2 và I2 và dữ liệu tìm đc sẽ đính vào A4 mong AC diễn giải và giúp thêm code ạ.
Cảm ơn AC các thầy cô chú.

 

[giaiphap]

Bạn xem đúng ý bạn chưa.

 

[hoatinhyeu862000]

Bạn xem đúng ý bạn chưa.

e gửi luôn Anh file của e a xem giúp sao khi e đưa code vào thì nó lại báo #N/A với lại e đang muốn tìm giá trị tuyệt đối tức là e đã để danh sách ở D3, F3 rồi theo dạng data validation ấy ạ, sau khi chọn tên nào đó thì nó chỉ hiện đúng thông tin cho từ khóa đó ở cột B và I chứ k tìm sang tên người khác hay nói cách khác đúng từng câu từng chữ trong từ khóa mới chọn còn k thì bỏ. E chỉ cần sổ xuống và chọn tên mong a giúp hoàn thiện nốt.

 

[giaiphap]

e gửi luôn Anh file của e a xem giúp sao khi e đưa code vào thì nó lại báo #N/A với lại e đang muốn tìm giá trị tuyệt đối tức là e đã để danh sách ở D3, F3 rồi theo dạng data validation ấy ạ, sau khi chọn tên nào đó thì nó chỉ hiện đúng thông tin cho từ khóa đó ở cột B và I chứ k tìm sang tên người khác hay nói cách khác đúng từng câu từng chữ trong từ khóa mới chọn còn k thì bỏ. E chỉ cần sổ xuống và chọn tên mong a giúp hoàn thiện nốt.

Bạn thay bằng đoạn code này thử xem.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sArr, dArr(), i As Long, j As Long, k As Long, l As Long
    If Target.Count > 1 Or (Intersect(Target, [D3]) Is Nothing And Intersect(Target, [F3]) Is Nothing) Then Exit Sub
    [A14:L10000].Clear 'Xoa du lieu hien co
    If IsEmpty(Target) Then Exit Sub
    sArr = Sheets("DL").[A4:L10000].Value 'Gan cot A:D vao mang sArr
    ReDim dArr(1 To UBound(sArr), 1 To 12)
    For i = 1 To UBound(sArr)
        If IsEmpty(sArr(i, 2)) Then Exit For 'Neu khong co ten hang thi dung lai
            If sArr(i, 2) = Target Then 'Neu co tu khoa tai cot thu 2
                k = k + 1 'Them 1 hang trong mang dArr
                For l = 1 To 12 'Gan gia tri tu sArr vao dArr
                    dArr(k, l) = sArr(i, l)
                    If l = 7 Then dArr(k, l) = ""
                Next
            End If
    Next
    If k = 0 Then Exit Sub 'Neu khong co dong nao co tu khoa thi thoat
    With [A14:L14].Resize(k)
        .Value = dArr 'Gan gia tri
        .Borders.LineStyle = 1 'Ke khung
    End With
End Sub

 

[haichi1997]

cảm ơn anh đc rồi ạ, thanks