Nhờ hỗ trợ: VBA chọn cùng lúc nhiều sheet để lưu thành file mới (1 người xem)

[solooo]

Chào cả nhà,
Em đang gặp khó khăn trong việc báo cáo, nhờ mọi người giúp đỡ

Em đang có một file báo cáo (đính kèm). Em muốn tách báo cáo ra thành 3 file: "Doi 1.xls", "Doi 2.xls", "Doi 3.xls", Với các Sheet theo từng nhân viên theo từng đội sheet "Danh sách". Vì các đội thường xuyên luân chuyển thành viên với nhau nên em muốn tạo 1 đoạn VBA để thực hiện công việc này.

Nhờ các anh chị trong GPE giúp đỡ em với!

Em xin chân thành cảm ơn!

 

[seikoqn]

Chào cả nhà,
Em đang gặp khó khăn trong việc báo cáo, nhờ mọi người giúp đỡ

Em đang có một file báo cáo (đính kèm). Em muốn tách báo cáo ra thành 3 file: "Doi 1.xls", "Doi 2.xls", "Doi 3.xls", Với các Sheet theo từng nhân viên theo từng đội sheet "Danh sách". Vì các đội thường xuyên luân chuyển thành viên với nhau nên em muốn tạo 1 đoạn VBA để thực hiện công việc này.

Nhờ các anh chị trong GPE giúp đỡ em với!

Em xin chân thành cảm ơn!

File của bạn tôi không mở được!

 

[solooo]

Em vừa mới tải về mở thử vẫn được bình thường. Bác thử lại giúp em với!
Cảm ơn mọi người đã quan tâm!

 

[Mutants Men]

Chào cả nhà,
Em đang gặp khó khăn trong việc báo cáo, nhờ mọi người giúp đỡ

Em đang có một file báo cáo (đính kèm). Em muốn tách báo cáo ra thành 3 file: "Doi 1.xls", "Doi 2.xls", "Doi 3.xls", Với các Sheet theo từng nhân viên theo từng đội sheet "Danh sách". Vì các đội thường xuyên luân chuyển thành viên với nhau nên em muốn tạo 1 đoạn VBA để thực hiện công việc này.

Nhờ các anh chị trong GPE giúp đỡ em với!

Em xin chân thành cảm ơn!

tên Sheet bạn không nên đặt bằng tiếng việt. như thế khi thao tác bằng code rất bất tiện và "KHÓ"

 

[SA_DQ]

Nếu là mình thì sẽ là thế này:

1 trang tính tạo ra danh sách; Trang này của bạn đã có nhưng theo mình thì thiếu mã duy nhất cho từng người.
Là mình thì
LHA00: Lê Hoài An
NTP00: Ngô Thị Thanh Phương
HJT00: Hồ Tâm
NTF00: Nguyễn Thành Đại
NTP01: Nguyễn Thị Phụng
. . . .
(Có thể lấy mã duy nhất này gán vô tên các trang tính)
Mình nói là có thể thôi; Nhưng là mình thì các trang còn lại gôm vô 1 trang mà thôi;

Còn lại sẽ là việc tạo macro để từ trang dữ liệu đó lọc ra 3 trang tính khác mà thôi;
(Vị chi chỉ là 005 trang tính thôi

& bạn đừng hi vọng mình sẽ giúp bạn tạo các file mới; Vì mình rất kị vấn đề này!

 

[solooo]

Em xử lý được cái này rồi, bằng cách chọn từng sheet rồi copy ( ActiveWindow.SelectedSheets.Copy)


Sheets(wst(1)).Select
For i = 2 To slnv + 1
Sheets(wst(i)).Select Replace:=False
Next i
ActiveWindow.SelectedSheets.Copy



Cảm ơn cả nhà đã quan tâm.