Xin hướng dẫn cách lọc các Tên có chứa Từ mình cần lọc.

[ducky2301]

Trong file của mình ở Sheet1 có danh sách Tên, Cell mình nhập Từ muốn Lọc vào.
Mình muốn ở Sheet2 sẽ có 1 vùng dùng để Lọc Tên những người nào có chứa Từ muốn Lọc. Và danh sách này luôn luôn tự động cập nhật khi mình thêm tên người khác vào Sheet1 hoặc mình thay đổi Từ muốn Lọc.

Cụ thể là trong file đó hiện có 4 người trong phần tên có chữ "Phúc", mình nhập chữ Phúc vào Cell E4, thì bên Sheet2 sẽ lọc ra 4 người đó.
Sau này khi mình thêm 1 người tên có chữ Phúc nữa thì bên Sheet2 cũng tự động thêm người đó vào.
Hoặc khi mình đổi từ trong Cell E4 thì bên Sheet2 cũng tự động Lọc tên theo từ đó.

_ Xin các Anh Chị giúp mình Công thức này với nha

 

[MinhCong]

Bạng dùng tạm cái này vậy. Chọn sheet Danh sách đã lọc -> Bấm phải chuột -> View code -> Copy đoạn code dưới và dán vào

Private Sub Worksheet_Activate()
Dim enR As Long
enR = Sheet1.Range("B65536").End(xlUp).Row
  Application.ScreenUpdating = False
  Range("A1").CurrentRegion.Clear
    With Sheet1.Range("B5:B" & enR)
        .AutoFilter Field:=1, Criteria1:="=*" & Sheet1.Range("E4") & "*"
        .SpecialCells(xlCellTypeVisible).Copy [A1]
        .AutoFilter
    End With
  Application.ScreenUpdating = True
End Sub

 

[ducky2301]

Hay quá, cám ơn bạn nhiều lắm. Đúng là Thành viên gạo cội có khác .


_____ Bạn ơi, chết rồi, cái code bạn đưa, nó làm cho mình không thể copy dữ liệu từ sheet này qua sheet khác được. Tất cả những dữ liệu nào mà nhập vào ngang hàng với vùng nó Lọc đó, nó điều xóa sạch mỗi khi mình chuyển qua lại giữa các Sheet.

Bạn xem lại giúp mình nha. Vì mình Lọc Tên xong, còn dò tìm phần thông tin của mấy Tên đó nữa. Cụ thể bạn xem file mình thêm vào rồi giúp mình nha.

 

[vodoi2x]

Bạng dùng tạm cái này vậy. Chọn sheet Danh sách đã lọc -> Bấm phải chuột -> View code -> Copy đoạn code dưới và dán vào

Nếu Danh sách ít (khoảng vài trăm) thì nên dùng công thức cho đơn giản hơn

 

[ducky2301]

Bạn chỉ mình Công Thức với, mình đang cần Công Thức đó

 

[MinhCong]

Hay quá, cám ơn bạn nhiều lắm. Đúng là Thành viên gạo cội có khác .


_____ Bạn ơi, chết rồi, cái code bạn đưa, nó làm cho mình không thể copy dữ liệu từ sheet này qua sheet khác được. Tất cả những dữ liệu nào mà nhập vào ngang hàng với vùng nó Lọc đó, nó điều xóa sạch mỗi khi mình chuyển qua lại giữa các Sheet.

Bạn xem lại giúp mình nha. Vì mình Lọc Tên xong, còn dò tìm phần thông tin của mấy Tên đó nữa. Cụ thể bạn xem file mình thêm vào rồi giúp mình nha.

Biết chắc sẽ hỏi tiếp mà . Bạn vào sửa lại đoạn code như sau

Private Sub Worksheet_Activate()
Dim enR As Long
enR = Sheet1.Range("B65536").End(xlUp).Row
  Application.ScreenUpdating = False
  Range("A1").CurrentRegion.Clear
    With Sheet1.Range("B5:[COLOR=red]F[/COLOR]" & enR)
        .AutoFilter Field:=1, Criteria1:="=*" & Sheet1.Range("E4") & "*"
        .SpecialCells(xlCellTypeVisible).Copy [A1]
        .AutoFilter
    End With
  Application.ScreenUpdating = True
End Sub

Lúc đầu B -> Sửa lại thành F thôi

 

[ducky2301]

_ Bạn ơi, nhưng nó vẫn còn xóa những gì mình thêm vào ở vùng ngang hàng với vùng nó Lọc ra ở Sheet2
_ Vẫn không thể copy dữ liệu từ Sheet này qua Sheet khác.
_ Với lại ở Sheet1, mình để AutoFilter, khi nó thực hiện code này, nó tự động bỏ AutoFilter ở Sheet1 của mình.

 

[MinhCong]

Bên sheet cần lọc lấy giá trị Bạn muốn thêm cái gì nữa, hãy ghi rõ vào sheet đó đi
Còn muốn không bỏ AutoFillter thì

Private Sub Worksheet_Activate()
Dim enR As Long
enR = Sheet1.Range("B65536").End(xlUp).Row
  Application.ScreenUpdating = False
  Range("A1:E" & enR).Clear
    With Sheet1.Range("B5:F" & enR)
        .AutoFilter Field:=1, Criteria1:="=*" & Sheet1.Range("E4") & "*"
        .SpecialCells(xlCellTypeVisible).Copy [A1]
    End With
  Application.ScreenUpdating = True
End Sub

 

[volga]

Công thức nè bạn tham khảo nhe

 

[ducky2301]

_ Thật là làm phiền bạn quá, vì mình không biết về Code.
_ Đúng là hết bị bỏ cái AutoFilter, nhưng ở Sheet 1 nó lại tự động Filter theo Từ cần tìm luôn.
_ Khi để Cell E4 "blank" thì nó hiện cả cái list qua Sheet 2 luôn ^^

_ Nếu có thể khắc phục 2 cái đó thôi là quá tuyệt rồi. Cám ơn bạn nhiều lắm nha

 

[ducky2301]

Công thức nè bạn tham khảo nhe

Wao, Cám ơn bạn nhiều lắm, đúng là công thức mình cần tìm. Nhưng sao dưới bài viết của bạn ko có nút Cám Ơn vậy ^^

_ Bạn ơi cho mình hỏi là cái tham chiếu dk và ds là quét của những cái nào vậy ?

 

[vodoi2x]

Bạn chỉ mình Công Thức với, mình đang cần Công Thức đó

Bạn xem file gửi kèm,

Vào Fomula / name mannager ... để hiểu về name DS định nghĩa vùng động cho vùng dữ liệu (họ tên)

 

[MinhCong]

_ Thật là làm phiền bạn quá, vì mình không biết về Code.
_ Đúng là hết bị bỏ cái AutoFilter, nhưng ở Sheet 1 nó lại tự động Filter theo Từ cần tìm luôn.
_ Khi để Cell E4 "blank" thì nó hiện cả cái list qua Sheet 2 luôn ^^

_ Nếu có thể khắc phục 2 cái đó thôi là quá tuyệt rồi. Cám ơn bạn nhiều lắm nha

Bên sheet 1 bỏ đoạn code sau vào

Private Sub Worksheet_Change(ByVal Target As Range)
Dim enR As Long
enR = Sheet1.Range("B65536").End(xlUp).Row
    If Range("E4") = xlVBNone Then Range("B5:F" & enR).AutoFilter
End Sub

Bên sheet cần lọc sửa lại

Private Sub Worksheet_Activate()
Dim enR As Long
enR = Sheet1.Range("B65536").End(xlUp).Row
  Application.ScreenUpdating = False
  Range("A1:E" & enR).Clear
  If Sheet1.Range("E4") = xlVBNone Then
    Exit Sub
  Else
    With Sheet1.Range("B5:F" & enR)
        .AutoFilter Field:=1, Criteria1:="=*" & Sheet1.Range("E4") & "*"
        .SpecialCells(xlCellTypeVisible).Copy [A1]
    End With
  End If
  Application.ScreenUpdating = True
End Sub

 

[ducky2301]

Bạn xem file gửi kèm,

Vào Fomula / name mannager ... để hiểu về name DS định nghĩa vùng động cho vùng dữ liệu (họ tên)

_ Cách của bạn nó không Lọc được tên có chữ Phúc đứng đầu, nó chỉ Lọc tên có chữ Phúc đứng cuối thôi.

 

[volga]

Bạn mở File lên ,rồi nhấn CTRL + F3 là thấy ds và dk là gì hà

 

[ducky2301]

Cám ơn các bạn nhiều lắm, sau một lúc mài mò nghiên cứu Code và Hàm của các bạn giúp, mình đã hiểu và tự hoàn thiện vấn đề của mình được rồi. Cám ơn các bạn nhiều lắm nha.