Theo dõi và tổng hợp bảng chấm công

[hoangluong]

Xin gửi ACE diễn đàn giúp mình trong việc tổng hợp bảng chấm công của CBNV
- Sheet 1: là bảng mình theo dõi chi tiết các ngày làm việc, ngày nghỉ, đi công tác của CBNV
- Sheet 2: Mình muốn tổng hợp thành bảng chấm công với các quy ước viết tắt như file đính kèm

Mong ACE giúp đỡ thêm

domfootwear: Lần sau nhớ viết tiêu đề Tiếng Việt có dấu nha bạn

 

[SA_DQ]

Hãy xem theo file đính kèm

Option Explicit
Sub ChuyenCong()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim eRw As Long, Ngay As Byte:                 Dim MyAdd As String
 
 Set Sh = Sheets("TheoDoi"):                    Sheets("Cong").Select
 Set Rng = Sh.Range(Sh.[B5], Sh.[B65500].End(xlUp))
 eRw = [C65500].End(xlUp).Row
 [e10].Resize(eRw, 35).ClearContents
 For Each Cls In [C10].Resize(eRw)
   If Cls.Value = "" Then Exit For
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         Ngay = Day(sRng.Offset(, 3).Value)
         Cls.Offset(, 1 + Ngay).Value = sRng.Offset(, 4).Value
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If
 Next Cls
End Sub

 

[huuthang_bd]

Xin gửi ACE diễn đàn giúp mình trong việc tổng hợp bảng chấm công của CBNV
- Sheet 1: là bảng mình theo dõi chi tiết các ngày làm việc, ngày nghỉ, đi công tác của CBNV
- Sheet 2: Mình muốn tổng hợp thành bảng chấm công với các quy ước viết tắt như file đính kèm

Mong ACE giúp đỡ thêm

domfootwear: Lần sau nhớ viết tiêu đề Tiếng Việt có dấu nha bạn

Tôi dùng công thức. Bạn xem trong file đính kèm.
Lưu ý: Nếu cấu trúc dữ liệu không giống cấu trúc dữ liệu mẫu của bạn thì kết quả sẽ sai.

 

[dat_butmuc]

Xin gửi ACE diễn đàn giúp mình trong việc tổng hợp bảng chấm công của CBNV
- Sheet 1: là bảng mình theo dõi chi tiết các ngày làm việc, ngày nghỉ, đi công tác của CBNV
- Sheet 2: Mình muốn tổng hợp thành bảng chấm công với các quy ước viết tắt như file đính kèm

Mong ACE giúp đỡ thêm

domfootwear: Lần sau nhớ viết tiêu đề Tiếng Việt có dấu nha bạn

Bạn xem file đính kèm - dùng công thức:

 

[hoangluong]

Cảm ơn các bạn đã hướng dẫn. Tuy nhiên, nếu trường hợp 2 cán bộ có tên giống nhau ở 2 đơn vị khác nhau thì sẽ không sử dụng được công thức trên.

Mong ACE giúp đỡ thêm

 

[dat_butmuc]

Cảm ơn các bạn đã hướng dẫn. Tuy nhiên, nếu trường hợp 2 cán bộ có tên giống nhau ở 2 đơn vị khác nhau thì sẽ không sử dụng được công thức trên.

Mong ACE giúp đỡ thêm

Đúng ra mỗi Tên nhân viên/Cán bộ đều phải có một mã riêng biệt ! Bạn căn cứ vào đó để tham chiếu/dò tim hay để tổng hợp.
Bạn tham khảo cách căn cứ vào Mã như của Bác HYen17 đã làm hoặc tham khảo trên diễn đàn !

 

[hoangluong]

Đúng ra mỗi Tên nhân viên/Cán bộ đều phải có một mã riêng biệt ! Bạn căn cứ vào đó để tham chiếu/dò tim hay để tổng hợp.
Bạn tham khảo cách căn cứ vào Mã như của Bác HYen17 đã làm hoặc tham khảo trên diễn đàn !

Mình đã làm được rồi, cảm ơn các ACE nhiều

Chúc ACE tuần mới làm việc thành công và vui vẻ