phân chia công việc cho phòng từ file tổng hợp công việc (1 người xem)

[hunken_trove]

Các bạn giúp mình vấn đề này với:FIle đính kèm:
Khi nhập dữ liệu vào cột Nội Dung Cong Viec và CB phụ trách 1 và CB phụ trach 2 sheet TONG HOP, sẽ tự động cập nhật công việc của từng người trong các sheet riêng của từng người! Khi CB phu trach 1 nhập dữ liệu vào cột "kết quả thực hiện" và "ngày hoàn thành" trong sheet riêng của mình thì sẽ cấp nhật vào sheet TONG HOP

 

[killitmore]

Gửi bạn thấy hay thì ấn cảm ơn nazzzz
Ở sheet tổng hợp Có mấy chỗ lỗi #REF là do ô cb phụ trách 1 chưa có giá trị tương ứng nhé, điền cb phụ trách 1 xong sẽ ra kết quả, hiện giá trị 0 là do CB phụ trách 1 chưa cập nhật ngày hoàn thành và kết quả.

 

[hunken_trove]

hihi, hay tuyệt vời! bác cho em hỏi, có cách nào khóa không cho các cb phụ trách sửa vào nội dung CV trên sheet riêng của từng người không ạ. chứ em sợ họ sửa vào rồi công thức nhảy tùm lùm. hư hết thì tiêu 1 năm làm việc!

 

[hunken_trove]

hihi, hay tuyệt vời! bác cho em hỏi, có cách nào khóa không cho các cb phụ trách sửa vào nội dung CV trên sheet riêng của từng người không ạ. chứ em sợ họ sửa vào rồi công thức nhảy tùm lùm. hư hết thì tiêu 1 năm làm việc!

 

[hunken_trove]

nhưng có gì đó không ổn mấy! khi mình xóa ở bên sheet TONGHOP thì bên các sheet kia không update. bác xem có thể làm giống file này được ko?

 

[killitmore]

Vấn đề của bác cũng phức tạp ghê )) em chỉ làm được đến bước là bác nhập tên can bộ xong thì ấn chạy sub để update dữ lieu sang các sheet khác thoai, mà hình như có vài can bộ vẫn chưa được tạo sheet đó nên nếu code bị lỗi thì kt xem sheet ứng vs tên can bộ ý được tạo chưa và tên sheet vs tên trong danh sách phải giống hệt nhau nhé.
Còn về vụ block sheet ko cho cán bộ sửa linh tinh thì em chỉ bik làm thủ côn cho từng sheet còn để tự động thì hiện tại chưa bik làm
Code cho bác:
Option Explicit
Sub nhap_lieu()
Dim finalrow As Long
Dim cbchinhfinal As Long
Dim cbphufinal As Long
Dim i As Integer
For i = 2 To ActiveWorkbook.Worksheets.Count
With Sheets(i)
.AutoFilterMode = False
.Range("F3").CurrentRegion.Offset(1).ClearContents
End With
Next i
With Sheet1
.AutoFilterMode = False
.[F3].CurrentRegion.AutoFilter Field:=9, Criteria1:="<>"
finalrow = Cells(Rows.Count, 9).End(xlUp).Row
For i = 4 To finalrow
cbchinhfinal = Sheets(.Cells(i, 9).Value).Cells(Rows.Count, 6).End(xlUp).Row
Sheets(.Cells(i, 9).Value).Cells(cbchinhfinal + 1, 6).Value = .Cells(i, 6).Value
cbphufinal = Sheets(.Cells(i, 10).Value).Cells(Rows.Count, 6).End(xlUp).Row
Sheets(.Cells(i, 10).Value).Cells(cbphufinal + 1, 6).Value = .Cells(i, 6).Value
Next i
.AutoFilterMode = False
End With

End Sub