Tạo file Hồ sơ nhân sự hàng loạt theo bảng danh sách nhân sự

[Hoantk223]

Em định tạo 1 file excel mới, copy Bản cam kết ra 1 file mới rồi điền tên lần lượt theo tên danh sách nhân sự rồi lưu file thành tên của nhân sự - số căn cước công dân. Sau đó e muốn in hồ sơ của nhân sự nào thì em điền dấu x vào cột tình trạng để cho nó chỉ in cả tập hồ sơ mà e đã đánh dấu. Nhưng em mới đang lần đến copy nguyên cả sheet sang 1 file mới mà nó vẫn đang báo sai. Mọi người xem và chỉ giúp e với ạ. Em cảm ơn ạ.

Sub TTN()
Dim wb As Workbook, ws As Worksheet
Dim QtyOfFile As Integer, i As Integer
QtyOfFile = ThisWorkbook.Sheets("DS NhanSu").Range("A2").Value
For i = 1 To 100
Set wb = Workbooks.Add
Set ws = wb.Worksheets(1)
ThisWorbook.Sheets("BCK TTN").Cells.Copy ws.Value
With ThisWorkbook.Sheets("DS NhanSu")
.Range("G" & i + 2).Copy ws.Range("B2").Value
.Range("V" & i + 2).Copy ws.Range("C15").Value
End With
Next i
End Sub

 

[ongke0711]

Em định tạo 1 file excel mới, copy Bản cam kết ra 1 file mới rồi điền tên lần lượt theo tên danh sách nhân sự rồi lưu file thành tên của nhân sự - số căn cước công dân. Sau đó e muốn in hồ sơ của nhân sự nào thì em điền dấu x vào cột tình trạng để cho nó chỉ in cả tập hồ sơ mà e đã đánh dấu. Nhưng em mới đang lần đến copy nguyên cả sheet sang 1 file mới mà nó vẫn đang báo sai. Mọi người xem và chỉ giúp e với ạ. Em cảm ơn ạ.

Mail Merge là công cụ chuẩn cho công việc này của bạn. Phức tạp hoá nó với code kiết chi cho mệt.

 

[SA_DQ]

Em định tạo 1 file excel mới, copy Bản cam kết ra 1 file mới rồi điền tên lần lượt theo tên danh sách nhân sự rồi lưu file thành tên của nhân sự - số căn cước công dân. Sau đó e muốn in hồ sơ của nhân sự nào thì em điền dấu x vào cột tình trạng để cho nó chỉ in cả tập hồ sơ mà e đã đánh dấu. Nhưng em mới đang lần đến copy nguyên cả sheet sang 1 file mới mà nó vẫn đang báo sai. Mọi người xem và chỉ giúp e với ạ. Em cảm ơn ạ.

Tên file của bạn vừa dài vừa không có tính tương tác cao giữa người quản lý (như bạn) & người lao động;

Nếu là mình thì sẽ phải tạo hệ mã như dưới đây:

STT

Mã NV

Họ & Tên

1

TTT01

Trần Thành Trai

2

TTT00

Từ Thanh Tuấn

3

TMH04

Trần Thị Minh Hà

4

TMH03

Tạ Thị Minh Hà

5

TMH02

Trần Minh Hà

6

TMH01

Từ Mạnh Hóa

7

TMH00

Trần Minh Hồng

8

TJD00

Trần Dương

9

THH00

Trần Minh Hồng Hà

10

NHB02

Nhữ Thái Hải Hà

11

NHB01

Ngô Thị Hòa Biền

12

NHB00

Nguyễn Hòa Bình

13

LCT00

Lê Công Thành

14

LCM01

Lã Chí Mai

15

LCM00

Lê Công Minh

16

FLT00

Đinh La Thăng

17

FFD01

Đỗ Đăng Dung

18

FFD00

Đào Đức Dương

19

DAH00

Dương Ánh Hòa

& quan trọng là mã NV này dùng tạo tên file mới như bạn dự định.

 

[VetMini]

Mail Merge là công cụ chuẩn cho công việc này của bạn. Phức tạp hoá nó với code kiết chi cho mệt.

Mail merge ai làm cũng được. Cốt kiếc mới xịn. Chả ai dám mó vào công việc của mình cả.

Tên file của bạn vừa dài vừa không có tính tương tác cao giữa người quản lý (như bạn) & người lao động;

Nếu là mình thì sẽ phải tạo hệ mã như dưới đây:
...

Trời, người ta có sáng kiến làm tự động, nhờ kẻ khác viết code giùm, chỉ bấm mọt phát là xong.
Nghe lời bạn, lại phải sửa thủ công cả tháng (*) mới xong.

(*) việc dân quen thủ công làm 3 ngày thì dân "bấm một phát" làm cả tháng.