Hỏi về tự động cập nhật danh sách trong Excel

[dttm2607]

Bạn dùng code sau nhé

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Cells.Count = 1 Then
If Target.Value <> "" Then
MyAddress = Target.Address
NextRow = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Cut Destination:=Sheets(2).Range("A" & NextRow)
Range(MyAddress).EntireRow.Delete
End If
End If
End Sub

Lưu ý là nếu như cột F thay đổi thì nó sẽ di chuyển dòng sang sheet 2
Bạn nên nhập ngày nghỉ việc của nhân viên vào cột F, enter, sẽ thấy kết quả.
Thân

File của bạn tuyệt quá. Nhân đây Bạn cho mình hỏi thêm nếu mình chỉ muốn copy sang mà không phải xóa khỏa danh sách tên trên sheet 1 thì làm thế nào? Rất mong bạn hướng dẫn giúp. Xin cảm ơn!
TM

 

[cpo_vn]

File của bạn tuyệt quá. Nhân đây Bạn cho mình hỏi thêm nếu mình chỉ muốn copy sang mà không phải xóa khỏa danh sách tên trên sheet 1 thì làm thế nào? Rất mong bạn hướng dẫn giúp. Xin cảm ơn!
TM

Em cũng muốn hỏi như vậy và muốn hỏi thêm là nếu đã chót điền nhầm người thì làm thế nào để trở lại?
Nếu 1 sheet thứ 3 có linh dữ liệu vùng ở sheet 1 thì khi nghỉ việc ( mất người nghỉ ) thì ở sheet 3 có còn tên không
Cảm ơn công cụ rất hữu ích cho iem để em lại xào xới lại file quản lý )