Cách tổng hợp dữ liệu từ nhiều sheet và Giới hạn chỉnh sửa

Liên hệ QC

justin_vn

Thành viên chính thức
Tham gia
26/6/13
Bài viết
85
Được thích
5
Cho mình hỏi chút.
Công ty mình có file danh sách khách hàng như đính kèm.
Bên mình có phân chia khách hàng cho từng nhân viên phụ trách theo từng sheet A B C.
- Làm cách nào để tổng hợp dữ liệu các sheet A B C vào Sheet Total
- Bên mình xài Office 365, đăng nhập theo email tên miền công ty. Làm thế nào để mọi người cùng sửa chung 1 file nhưng giới hạn mỗi người chỉ được sửa các sheet riêng của người đó? (Hiện tại bên mình đang làm và tổng hợp thủ công rất lộn xộn)

Cảm ơn mọi người.
 

File đính kèm

  • Nhap file contact list.xlsx
    11.6 KB · Đọc: 12
Bạn không đưa dữ liệu mẫu làm sao mọi người biết mà hỗ trợ được.
 
Mình gửi lại file.
- Làm sao để giới hạn từng người sửa được từng sheet nhất định? Vd nhân viên A chỉ được sửa sheet A
- Làm sao để dữ liệu các sheet A và B tự động nhập vào sheet total
 

File đính kèm

  • Nhap file contact list.xlsx
    11.4 KB · Đọc: 7
Mình gửi lại file.
- Làm sao để giới hạn từng người sửa được từng sheet nhất định? Vd nhân viên A chỉ được sửa sheet A
- Làm sao để dữ liệu các sheet A và B tự động nhập vào sheet total
về giơi hạn từng người thì dùng pass lock sheet. rồi cho từng người pass
về các sheet tự động gom dl về sheet Total thì cơ bản là vầy. tôi chỉ biết mỗi for .... next cơ bản thôi nhé
PHP:
Sub copy2()
Dim sh As Worksheet
Sheets("TOTAL").Range("3:65000").Clear
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "TOTAL" Then
sh.Range("A3:G500").copy
Sheets("TOTAL").Range("a65536").End(3).Offset(1).PasteSpecial (12)
End If
Next

End Sub
 
về giơi hạn từng người thì dùng pass lock sheet. rồi cho từng người pass
về các sheet tự động gom dl về sheet Total thì cơ bản là vầy. tôi chỉ biết mỗi for .... next cơ bản thôi nhé
PHP:
Sub copy2()
Dim sh As Worksheet
Sheets("TOTAL").Range("3:65000").Clear
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "TOTAL" Then
sh.Range("A3:G500").copy
Sheets("TOTAL").Range("a65536").End(3).Offset(1).PasteSpecial (12)
End If
Next

End Sub
cái này là VBA phải không bác
 
Web KT
Back
Top Bottom