Tách dữ liệu từ sheet tổng hợp sang các sheet khác có sẵn form... (3 người xem)

[be_09]

Cảm ơn thầy đã hỗ trợ hết mình. Về cơ bản đã giải quyết 95% công việc rồi thầy. Cho em hỏi sheet theo_doi có tác dụng gì vậy? Khi xoá sheet theo_doi đi thì tạo link lớp mất lớp đầu tiên (tên sheet đầu tiên) vậy là sao?

Ngay chỗ đó là 5% còn lại đó.
Bài 19 tôi nói rồi" Làm chụp giựt cho xong, có thể dùng tạm được (chứ chưa đáp ứng yêu cầu).

Nói chung code trên chưa chính xác mà rà lại để xử lý thì mất thời gian quá nên tôi thêm sheet Theo_doi để có muốn làm gì thêm thì làm trên sheet này cho tiện (chứ không thôi khi nhấn nút xóa sheet thì sẽ ra sai kết quả).

 

[be_09]

Tôi thay File bài 19 bởi File bài này để sử dụng cho thuận tiện hơn, gồm các chức năng:
1/ Dựa vào cột E sheet DATA để tách riêng mỗi lớp 1 sheet.
2/ Đánh lại số thứ tự.
3/ Gán tiêu đề, tên lớp, tên giáo viên.
4/ Tạo Hyperlink đến các sheet vừa tách.

 

[jacky_police]

Tôi thay File bài 19 bởi File bài này để sử dụng cho thuận tiện hơn, gồm các chức năng:
1/ Dựa vào cột E sheet DATA để tách riêng mỗi lớp 1 sheet.
2/ Đánh lại số thứ tự.
3/ Gán tiêu đề, tên lớp, tên giáo viên.
4/ Tạo Hyperlink đến các sheet vừa tách.

Cảm ơn anh rất nhiều
File cơ bản chạy ổn khi không bổ sung hay bớt dữ liệu ở sheet Data. Nhưng khi xoá dữ liệu từ dòng 329 đi VBA báo lỗi dòng code
Sheets(y).Range(vCell(x)).Value = Sheets(FirstSht).Cells(y - 1, vCol(x)).Value trong Sub ChepTieuDe()

 

[be_09]

Cảm ơn anh rất nhiều
File cơ bản chạy ổn khi không bổ sung hay bớt dữ liệu ở sheet Data. Nhưng khi xoá dữ liệu từ dòng 329 đi VBA báo lỗi dòng code
Sheets(y).Range(vCell(x)).Value = Sheets(FirstSht).Cells(y - 1, vCol(x)).Value trong Sub ChepTieuDe()

Lưu ý:
- Nếu có thay đổi cái gi thì nhấn nút Tạo Link các sheet lớp (trước khi nhấn nút Tách các lớp), xem cột A nó có bao nhiêu lớp rồi cộng 4, trong File trên là 8+4=12. Số 12 là tổng số sheet khi tách lớp.

- Tìm dòng trên (dòng code bị lỗi) là dòng này:

For y = 4 To 13

Thay số 13 là số 12

For y = 4 To 12

 

[jacky_police]

Lưu ý:
- Nếu có thay đổi cái gi thì nhấn nút Tạo Link các sheet lớp (trước khi nhấn nút Tách các lớp), xem cột A nó có bao nhiêu lớp rồi cộng 4, trong File trên là 8+4=12. Số 12 là tổng số sheet khi tách lớp.

- Tìm dòng trên (dòng code bị lỗi) là dòng này:

For y = 4 To 13

Thay số 13 là số 12

For y = 4 To 12

OK rồi! Xin cảm ơn!