Trợ giúp trích xuất thông tin theo từ khóa từ một sheet dữ liệu tổng hợp

[tannytran]

Chào các anh em, mình có một bảng dữ liệu tổng hợp gồm thông tin của các cơ sở, doanh nghiệp (sheet "Tổng hợp"), mình muốn trích xuất dữ liệu từ sheet Tong hop đó sang một sheet "Trich xuat data" với điều kiện theo từ khóa tìm kiếm (Ví dụ tìm từ khóa là tên của doanh nghiệp (có thể không cần tên đầy đủ) thì sheet "Trich xuat data" sẽ đưa ra thông tin các doanh nghiệp có tên tương tự như từ khóa tìm kiếm.
Rất mong các anh em chỉ giáo ạ.

 

[phulien1902]

Chào các anh em, mình có một bảng dữ liệu tổng hợp gồm thông tin của các cơ sở, doanh nghiệp (sheet "Tổng hợp"), mình muốn trích xuất dữ liệu từ sheet Tong hop đó sang một sheet "Trich xuat data" với điều kiện theo từ khóa tìm kiếm (Ví dụ tìm từ khóa là tên của doanh nghiệp (có thể không cần tên đầy đủ) thì sheet "Trich xuat data" sẽ đưa ra thông tin các doanh nghiệp có tên tương tự như từ khóa tìm kiếm.
Rất mong các anh em chỉ giáo ạ.

Bạn tham khảo:

Sub Test()
    Dim LR%, Rng As Range
    LR = Sheets("Tong hop").Range("A1000").End(xlUp).Row
    Set Rng = Sheets("Tong hop").[a2].CurrentRegion
    With Rng
        .AutoFilter
        .AutoFilter Field:=2, Criteria1:=Sheets("Trich xuat data").Range("C1"), Operator:=xlAnd
        .AutoFilter Field:=3, Criteria1:=Sheets("Trich xuat data").Range("C2"), Operator:=xlAnd
        .AutoFilter Field:=5, Criteria1:=Sheets("Trich xuat data").Range("C3")
        .Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheets("Trich xuat data").Range("A7")
        .AutoFilter
    End With
    Application.CutCopyMode = False
End Sub

 

[be_09]

Chào các anh em, mình có một bảng dữ liệu tổng hợp gồm thông tin của các cơ sở, doanh nghiệp (sheet "Tổng hợp"), mình muốn trích xuất dữ liệu từ sheet Tong hop đó sang một sheet "Trich xuat data" với điều kiện theo từ khóa tìm kiếm (Ví dụ tìm từ khóa là tên của doanh nghiệp (có thể không cần tên đầy đủ) thì sheet "Trich xuat data" sẽ đưa ra thông tin các doanh nghiệp có tên tương tự như từ khóa tìm kiếm.
Rất mong các anh em chỉ giáo ạ.

Dùng thử File.
Muốn tìm theo từ thì gõ dấu *phía trước cụm từ cần lọc rồi nhấn nút.

 

[tannytran]

Dùng thử File.
Muốn tìm theo từ thì gõ dấu *phía trước cụm từ cần lọc rồi nhấn nút.

Cám ơn bạn rất nhiều. Đúng cái mình cần. Nhưng bạn vui lòng chỉ cho mình cách làm hoặc phương pháp áp dụng để mình có thể thiết kế lại, thay vì dùng file ví dụ.

 

[be_09]

Cám ơn bạn rất nhiều. Đúng cái mình cần. Nhưng bạn vui lòng chỉ cho mình cách làm hoặc phương pháp áp dụng để mình có thể thiết kế lại, thay vì dùng file ví dụ.

Bạn hỏi lọc thì tôi chỉ trả lời với vấn đề bạn nêu, còn muốn lọc xong và làm cái gì tiếp theo với dữ liệu đó thì phải nêu rõ mục đích cần . Tôi có hiểu mới tính tiếp.

 

[Hau151978]

Cám ơn bạn rất nhiều. Đúng cái mình cần. Nhưng bạn vui lòng chỉ cho mình cách làm hoặc phương pháp áp dụng để mình có thể thiết kế lại, thay vì dùng file ví dụ.

Bạn dùng chức năng advanced filter hoặc auto filter cũng được. Nếu advanced filter thì bạn phải sử dụng khi đang ở sheet trích xuất dữ liệu

 

[tannytran]

Bạn hỏi lọc thì tôi chỉ trả lời với vấn đề bạn nêu, còn muốn lọc xong và làm cái gì tiếp theo với dữ liệu đó thì phải nêu rõ mục đích cần . Tôi có hiểu mới tính tiếp.

Ý mình là bạn lọc bằng cách nào? Chỉ mình cách lọc để mình tự làm một bảng dự liệu khác, có thể phức tạp hơn. Cám ơn bạn

 

[be_09]

Ý mình là bạn lọc bằng cách nào? Chỉ mình cách lọc để mình tự làm một bảng dự liệu khác, có thể phức tạp hơn. Cám ơn bạn

Thì bài 6 đã nêu rồi đó, dùng chức năng Advanced Filter có sẳn trong Excel, Record Macro rồi sửa code lại (như File bài 3).

 

[tannytran]

Thì bài 6 đã nêu rồi đó, dùng chức năng Advanced Filter có sẳn trong Excel, Record Macro rồi sửa code lại (như File bài 3).

Cám ơn bạn.Mình đã làm được rồi. Tuy nhiên trong sheet "Tong hop" chứa dữ liệu nguồn mình có gắn hyperlink để (đính kèm file). Nhưng khi lọc ra dữ liệu ra sheet khác thì hyperlink không còn liên kết nữa. Bạn có cách nào để giữ hyperlink khi lọc dữ liệu ra sheet khác không chỉ mình với. Cám ơn bạn.

 

[be_09]

Cám ơn bạn.Mình đã làm được rồi. Tuy nhiên trong sheet "Tong hop" chứa dữ liệu nguồn mình có gắn hyperlink để (đính kèm file). Nhưng khi lọc ra dữ liệu ra sheet khác thì hyperlink không còn liên kết nữa. Bạn có cách nào để giữ hyperlink khi lọc dữ liệu ra sheet khác không chỉ mình với. Cám ơn bạn.

Hyperlink cái gì ở đâu? bạn cần nêu cụ thể, chứ nêu chung chung thì không thể hiểu được.

 

[tannytran]

Hyperlink cái gì ở đâu? bạn cần nêu cụ thể, chứ nêu chung chung thì không thể hiểu được.

Bạn xem file đính kèm nhé. Mình làm liên kết để khi click vào thì mở một file nào đó lên. Nhưng sau khi lọc rồi thì liên kết đó mất. Có cách nào để giữ liên kết đó không?

 

[be_09]

Bạn xem file đính kèm nhé. Mình làm liên kết để khi click vào thì mở một file nào đó lên. Nhưng sau khi lọc rồi thì liên kết đó mất. Có cách nào để giữ liên kết đó không?

Vì File word chẳng có nội dung, do đó bạn phải nêu rõ cái File Word đó nó là cái gì? nếu là phiếu xuất, nhập hay là giấy báo gì đó thì có thể không cần dùng Hyperlink mà có thể dùng phương pháp khác.

 

[Hau151978]

Bạn sửa lại code advanced filter cho lọc tại chỗ rồi copy phần đã lọc sang sheet mới thì vẫn giữ nguyên link.

Sub timkiem()
    Dim r As Range
    Range("A7:F10000").Clear
    Sheets("Tong hop").Activate
    Set r = Range("A2:F29")
    Range("A2:F29").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Range("'Trich xuat data'!Criteria"), Unique:=False
    r.SpecialCells(xlCellTypeVisible).Copy Sheets("Trich xuat data").Range("A7")
    ActiveSheet.ShowAllData
    Sheets("Trich xuat data").Activate
End Sub

 

[tannytran]

Vì File word chẳng có nội dung, do đó bạn phải nêu rõ cái File Word đó nó là cái gì? nếu là phiếu xuất, nhập hay là giấy báo gì đó thì có thể không cần dùng Hyperlink mà có thể dùng phương pháp khác.

Một file bất kỳ, file pdf hay file ảnh gì đó, không liên quan đến việc làm phiếu xuất hay giấy báo gì cả nhé bạn.

 

[tannytran]

Bạn sửa lại code advanced filter cho lọc tại chỗ rồi copy phần đã lọc sang sheet mới thì vẫn giữ nguyên link.

Sub timkiem()
    Dim r As Range
    Range("A7:F10000").Clear
    Sheets("Tong hop").Activate
    Set r = Range("A2:F29")
    Range("A2:F29").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Range("'Trich xuat data'!Criteria"), Unique:=False
    r.SpecialCells(xlCellTypeVisible).Copy Sheets("Trich xuat data").Range("A7")
    ActiveSheet.ShowAllData
    Sheets("Trich xuat data").Activate
End Sub

Bạn cho mình hỏi mấy câu lệnh này ý nghĩa là gì? Khi thao tác tay thì nó sẽ như thế nào?
- Dim r As Range
- Range("A7:F10000").Clear
- Set r = Range("A2:F29")
- r.SpecialCells(xlCellTypeVisible).

 

[Hau151978]

Bạn cho mình hỏi mấy câu lệnh này ý nghĩa là gì? Khi thao tác tay thì nó sẽ như thế nào?
- Dim r As Range
- Range("A7:F10000").Clear
- Set r = Range("A2:F29")
- r.SpecialCells(xlCellTypeVisible).

Lệnh 2 xóa dữ liệu A2:F10000 ở sheet2 để lưu dữ liệu lọc.
Lệnh 4: sau khi lọc tại chỗ bằng advanced filter, những dòng không được lọc sẽ bị ẩn đi, lệnh này để lấy các ô không ẩn trong bảng lọc. Bạn ghi macro dùng advanced filter để xem.
Lệnh 1, 3 nếu bạn chưa rõ thì cứ để nguyên, giải thích khó lắm.

 

[tannytran]

Bạn sửa lại code advanced filter cho lọc tại chỗ rồi copy phần đã lọc sang sheet mới thì vẫn giữ nguyên link.

Sub timkiem()
    Dim r As Range
    Range("A7:F10000").Clear
    Sheets("Tong hop").Activate
    Set r = Range("A2:F29")
    Range("A2:F29").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Range("'Trich xuat data'!Criteria"), Unique:=False
    r.SpecialCells(xlCellTypeVisible).Copy Sheets("Trich xuat data").Range("A7")
    ActiveSheet.ShowAllData
    Sheets("Trich xuat data").Activate
End Sub

Bạn cho mình hỏi thêm nữa là Danh sách sau khi lọc xong muốn tự động đánh số thứ tự từ 1 trở đi mà không phải là số thứ tự từ sheet "Tong hop" thì thêm code nào vậy bạn? Cám ơn bạn