Hỏi về công thức tìm kiếm và trích xuất dữ liệu

[songthu10]

Các anh cho em hỏi trường hợp này dùng hàm gi nhé?
Ở File tổng có nhiều người, cư ngụ tại nhiều TP khác nhau.
Em muốn từ file tổng trích xuất sang sheet bên cạnh tất cả dữ liệu của những người cư ngụ cùng TP
VD: Tất cả dữ liệu những người cư ngụ tại HÀ NỘI sẽ được hiện lên tại sheet " HÀ NỘI"
tương tự các TP khác là các sheet khác riêng biệt.
Mong các anh dành thời gian giúp đỡ , chân thành cảm ơn.

 

[buithinhvan77]

Các anh cho em hỏi trường hợp này dùng hàm gi nhé?
Ở File tổng có nhiều người, cư ngụ tại nhiều TP khác nhau.
Em muốn từ file tổng trích xuất sang sheet bên cạnh tất cả dữ liệu của những người cư ngụ cùng TP
VD: Tất cả dữ liệu những người cư ngụ tại HÀ NỘI sẽ được hiện lên tại sheet " HÀ NỘI"
tương tự các TP khác là các sheet khác riêng biệt.
Mong các anh dành thời gian giúp đỡ , chân thành cảm ơn.

Ban co the tham khao cai nay:

 

[songthu10]

Cảm ơn BUITHINHVAN77 rat nhieu. Đúng như nguyện vong của mình.
Cảm ơn lần nữa nhé. Bạn có thể chỉ cho mình cách làm như thế nào không, hình như dùng MACRO đúng không bạn?
Chào thân ái.

 

[ndu96081631]

Ban co the tham khao cai nay:

Với macro của bạn, nếu ta bấm nút 1 lần cho chạy code, xong, bấm thêm vài lần nữa thì sao nhỉ?
Ẹc... Ẹc...

 

[songthu10]

Chao Anh NDU96081631
Rất mừng khi anh quan tâm đến đề tài của em, đúng như anh hỏi, ấn 1 lần thì thêm 13 sheet, ấn 2 lần thì gấp đôi.
Anh có cách nào tối ưu thì dành chút thời gian chỉ giáo hộ em nhé, Cảm ơn anh trước.
Chào thân ái.

 

[ndu96081631]

Chao Anh NDU96081631
Rất mừng khi anh quan tâm đến đề tài của em, đúng như anh hỏi, ấn 1 lần thì thêm 13 sheet, ấn 2 lần thì gấp đôi.
Anh có cách nào tối ưu thì dành chút thời gian chỉ giáo hộ em nhé, Cảm ơn anh trước.
Chào thân ái.

Dạng bài này đã làm ít nhất 2 lần trên GPE rồi. Xem ở đây:
http://www.giaiphapexcel.com/forum/showthread.php?30293-Nh%E1%BB%9D-anh-ch%E1%BB%8B-gi%C3%BAp-em-khi-nh%E1%BA%ADp-li%E1%BB%87u-t%E1%BB%95ng-h%E1%BB%A3p-th%C3%AC-s%E1%BA%BD-t%E1%BB%B1-%C4%91%E1%BB%99ng-ch%E1%BA%A1y-qua-Sheet-2A1-2A2-...
Giờ áp dụng nó và làm lại cho bạn thôi --->Xem file
------------
Hướng dẫn:
1> Bấm nút Run code
2> Hộp inputbox xuất hiện, hãy chọn toàn bộ dữ liệu
3> Hộp inputbox thứ 2 xuất hiện, hãy chọn 1 cell tại cột mà bạn muốn lọc (với file này thì hay chọn 1 cell trong cột E)
------------
Với code đã làm trong file, bạn có thể áp dụng cho bất cứ file nào bạn muốn, chỉ cần sửa tên sheet DS nhan vien lại thành tên khác cho phù hợp
------------
Lưu ý thêm: Dữ liệu của bạn tại Sheet DS nhan vien có tiêu đề bị trộn 2 cell thành 1, điều này sẽ gây khó khăn cho việc trích lọc (tôi đã sửa lại) ---> Bạn chú ý điều này nha

 

[concogia]

Các anh cho em hỏi trường hợp này dùng hàm gi nhé?
Ở File tổng có nhiều người, cư ngụ tại nhiều TP khác nhau.
Em muốn từ file tổng trích xuất sang sheet bên cạnh tất cả dữ liệu của những người cư ngụ cùng TP
VD: Tất cả dữ liệu những người cư ngụ tại HÀ NỘI sẽ được hiện lên tại sheet " HÀ NỘI"
tương tự các TP khác là các sheet khác riêng biệt.
Mong các anh dành thời gian giúp đỡ , chân thành cảm ơn.

Nếu bạn đã tạo sẵn các sheet, mình tặng bạn cách làm đơn giản
Yêu cầu: Tên Sheet và Nơi ở phải giống nhau
Bạn cứ thêm dữ liệu ở sheet DSNV, chọn sheet nào code lọc sheet đó
Thân

 

[tranvantiena]

Mình nghĩ đây cũng là trường hợp không khó, bạn nên tạo cho mỗi nhân viên một mã số, và mỗi tĩnh là một mã số, sau đó dùng hàm "&" liên kết hai mã số này lại với nhau, để tạo thêm một mã số mới, có được mã số chung rồi, bạn dùng hàm Vlookup là được thôi, chao bạ, File minh đính kèm nè View attachment QL nhan su.xls

 

[Lê Duy Thương]

Nếu bạn đã tạo sẵn các sheet, mình tặng bạn cách làm đơn giản
Yêu cầu: Tên Sheet và Nơi ở phải giống nhau
Bạn cứ thêm dữ liệu ở sheet DSNV, chọn sheet nào code lọc sheet đó
Thân

NẾU CŨNG TẠO SHEETS SẴN GIỐNG TÊN TỈNH TRONG CỘT E THÌ THÊM CODE NÀY NỮA

Sub TACHTINH()
With Application
.ScreenUpdating = 0
  Dim SHN As Worksheet
  For Each SHN In Worksheets
   If SHN.Name <> "DS nhan vien" Then
   SHN.Range("A:E").Clear
    With Range(Sheet1.[A5], Sheet1.[E65536].End(xlUp))
    .AutoFilter 5, SHN.Name
    .copy: SHN.[A5].PasteSpecial
     .AutoFilter
        End With
  End If
  Next
.ScreenUpdating = 1
End With
End Sub

 

[Lê Duy Thương]

Chao Anh NDU96081631
Rất mừng khi anh quan tâm đến đề tài của em, đúng như anh hỏi, ấn 1 lần thì thêm 13 sheet, ấn 2 lần thì gấp đôi.
Anh có cách nào tối ưu thì dành chút thời gian chỉ giáo hộ em nhé, Cảm ơn anh trước.
Chào thân ái.

thì bạn đặt thêm doạn này vào module nhé

Sub xoa()
  Dim shn As Worksheet, cancel As Worksheet
  Application.DisplayAlerts = False
  On Error Resume Next
  Application.ScreenUpdating = 0
  Set shn = Sheet1
    For Each cancel In ThisWorkbook.Worksheets
    If cancel.Name <> shn.Name Then cancel.Delete
  Next
 
End Sub

và sau do code cua bạn chỉ thêm xóa là như ý

Private Sub CommandButton1_Click()
xoa
Set Data = [a1].CurrentRegion
    Application.ScreenUpdating = False
    On Error Resume Next
    Data.Resize(, 1).Offset(, 5).AdvancedFilter 2, , [L1], 1
For Each clls In Intersect([L2].CurrentRegion, [L2].CurrentRegion.Offset(1))
    Data.AutoFilter Field:=6, Criteria1:=clls.Value
    Sheets.Add
    With ActiveSheet
        .Name = clls
        Data.SpecialCells(12).Copy .[a1]
        .[a2].Resize(.[a1].End(xlDown).Row - 1) = [row(a:a)]
        .[a2].CurrentRegion.Columns.AutoFit
        .Move After:=Sheets(Sheets.Count)
    End With
Next
    Sheets("Data").Select
    AutoFilterMode = False
    Application.ScreenUpdating = True
End Sub