Tự động xóa dữ liệu trong sheet.

[visaomayman10]

Chào các bác,
Có cái việc này muốn nhờ các bác cao thủ giúp em cái. em nghĩ mãi mà chưa ra.
em có 1 worksheet gồm 3 sheet: Tong, vi tri lam viec va sheet nghi viec.
Mục đích của em là khi co 1 bạn nào đó trong sheet "Tong" nghỉ việc thì mình sẽ xoá đi, khi đó ở sheet "vi tri lam viec" se báo đỏ hoặc tự động xoá luôn. các bác xem file đính kèm dươi nhé. cảm ơn các bác cao thủ trước

 

[tintam7251]

Bạn kiểm tra lại nhé.

 

[tintam7251]

Excel 2003 đây bạn ơi!

 

[tintam7251]

Nhờ các bạn chỉnh thêm một chút ( những chỗ màu đỏ) cho chương trình chuẩn xác hơn.

Option Explicit
Sub xoa_ten()
Dim iRow As Long, k As Long, i As Byte, j As Long, [COLOR=#ff0000]t As Long[/COLOR]
Dim vungnguon, vungxoa
iRow = Sheet3.Range("A65000").End(xlUp).Row
vungnguon = Sheet1.Range("B6").CurrentRegion.Offset(6, 1).Resize(, 1)
With CreateObject("Scripting.Dictionary")
    For k = 1 To UBound(vungnguon, 1) - 6
        If vungnguon(k, 1) <> "" Then .Add CStr(vungnguon(k, 1)), ""
   Next
   For i = 4 To 60 Step 4
         vungxoa = Sheet2.Range(Sheet2.Cells(5, i), Sheet2.Cells(72, i))
          For j = 1 To UBound(vungxoa, 1)
                If Not .Exists(CStr(vungxoa(j, 1))) And vungxoa(j, 1) <> "" Then
                     Sheet3.Cells([COLOR=#ff0000]iRow + 1 + t, 1[/COLOR]).Resize(, 2).Value = Sheet2.Cells(j + 4, i).Resize(, 2).Value
                    [COLOR=#ff0000] t = t + 1
[/COLOR]                   Sheet2.Cells(j + 4, i).Resize(, 3).ClearContents
                 End If
            Next
   Next
End With
End Sub