Lọc danh sách bằng VBA

[binhson2002]

Nhờ mọi người giúp mình với.

 

[Po_Pikachu]

File đã sữa lại đây!
Thân.

 

[ndu96081631]

Như vầy sẽ gọn hơn nè:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Not Intersect([B3:B100], Target) Is Nothing Then
    If Target = "" Then Target.Offset(, -1).Resize(, 4).Value = ""
    With Sheet1.Range(Sheet1.[B3], Sheet1.[B65536].End(xlUp))
      Target.Offset(, -1) = .Find(Target).Offset(, -1)
      Target.Offset(, 1).Resize(, 3).Value = .Find(Target).Offset(, 1).Resize(, 3).Value
    End With
  End If
End Sub

 

[ChanhTQ@]

To Tác giả topic & NDU
Nếu trùng họ tên thì chưa được đâu;
Việc làm này chỉ có ý nghĩa trong trường hợp cập nhật thông tin theo mã duy nhất của cá nhân đó mà thôi;
Nếu trong cơ quan có 2 người cùng có tên Lê Thị Thơm (thí dụ), thì hỡi ơi!

 

[Po_Pikachu]

Theo em bài này đưa ra ko hay lắm!
Vì hình thức thể hiện của 2 bảng thật sự không có gì khác nhau mấy!
Vậy có cần nhất thiết phải lọc ra không?
Thà dùng AutoFilter cho bảng dữ liệu còn hơn.
Và nếu thật sự cần 1 bảng lọc theo tên thì có thể dùng công thức cho các cột còn lại và chỉ cần 1 ô để nạp tên thôi.
Thân.

 

[ndu96081631]

To Tác giả topic & NDU
Nếu trùng họ tên thì chưa được đâu;
Việc làm này chỉ có ý nghĩa trong trường hợp cập nhật thông tin theo mã duy nhất của cá nhân đó mà thôi;
Nếu trong cơ quan có 2 người cùng có tên Lê Thị Thơm (thí dụ), thì hỡi ơi!

Dạ vâng! Ở đây chỉ nói cách làm ---> Còn chuyện "trùng" thì đó là lổi của người xây dựng chương trình... Ai biểu dùng TÊN làm trị dò tìm ---> TRÙNG RÁNG CHỊU
(nhưng cũng có thể đây chỉ là 1 bài tập nhỏ mà tác giả dùng nó để nghiên cứu code thôi)
Em đồng ý với sư phụ rằng: Với bài toán loại này ta dùng MÃ để tìm mới là hửu hiệu nhất