lọc qua sheet khác (1 người xem)

[olovetccb]

Tôi có danh sách nhân viên.(file đính kèm) Hiện taị tôi cần tạo các nút để khi nhấp vào sẽ cho ra 01 sheet con của sheet hiện tại (VD tạo nút phong TCCB thì khi nhấp vào sẽ cho ra 01 sheet chỉ toàn nhân viên phòng tccb và tất cả dữ liệu đi kèm)...Rất mong đuợc sự giúp đỡ.

 

[NH_DK]

Tôi có danh sách nhân viên.(file đính kèm) Hiện taị tôi cần tạo các nút để khi nhấp vào sẽ cho ra 01 sheet con của sheet hiện tại (VD tạo nút phong TCCB thì khi nhấp vào sẽ cho ra 01 sheet chỉ toàn nhân viên phòng tccb và tất cả dữ liệu đi kèm)...Rất mong đuợc sự giúp đỡ.

Bạn xem có đúng ý chưa nhé:

 

[olovetccb]

Có thể nào làm cho dữ liệu ở sheet lọc khi chỉnh sửa sẽ up vào danh sách chính không?

 

[Quang_Hải]

Có thể nào làm cho dữ liệu ở sheet lọc khi chỉnh sửa sẽ up vào danh sách chính không?

Mượn code của bạn NH_DK để thêm vào mấy dòng code nữa

Private Sub Worksheet_Change(ByVal Target As Range)
Dim capnhat
  If Target.Address = "$C$2" Then
    S2.[A6:F5000].ClearContents
      With S1.Range(S1.[a1], S1.[a5000].End(3)).Resize(, 6)
        .AutoFilter 5, S2.[c2]
        .Offset(1, 0).Resize(, 6).SpecialCells(12).Copy S2.[A6]
        .AutoFilter
      End With
    Else
    Set capnhat = S1.[b:b].Find(Cells(Target.Row, 2))
    If Not capnhat Is Nothing Then
      capnhat.Resize(, 5).Value = Cells(Target.Row, 2).Resize(, 5).Value
    End If
  End If
End Sub