Xuất File tổng hợp thành nhiều file trong Excel 2003

[van80]

Chào các anh chị trên diễn đàn !

- Trong sheet(main) của file tonghop tôi tạo một nút lệnh " xuat DL tung k"
- Dữ liệu xuất từ sheet(data) dựa vào mã địa bàn điều tra là cột U của sheet(data)
Cụ thể là:
Điều kiện xuất phải phụ thuộc vào ô D4 của sheet(main)
+ Khi ô D4 = 001 và click nút lệnh tất cả các dòng có mã 001 của sheet(data) thì xuất thành file k1, khi xuất file phải mở hộp thoại save, dựa vào hộp thoại này để lưu trữ file k1
+ Khi ô D4 = 002 và click nút lệnh tất cả các dòng có mã 002 của sheet(data) thì xuất thành file k2, khi xuất file phải mở hộp thoại save, dựa vào hộp thoại này để lưu trữ file k2
+ Tương tự như vậy cho các mã còn lại
File đính kèm : View attachment 13738

Trân trọng cảm ơn các anh , chị trên diễm đàn!

 

[van80]

Ðề: Mình nghĩ bạn không cần đến nhiều trang tính làm vậy đâu!

Chỉ 1 trang là đủ cho cả họ nhà nó rồi;

Bạn chọn địa bàn tại ô qui ước; Macro sẽ đưa bạn đến địa bàn cần thiết tại trang 'BCao'

Chúc khỏe nha.

Cảm ơn Bạn TQChanh đoạn cedo của bạn rất tuyệt vời. Nhưng mình cần xuất địa bàn điều tra thành một file riêng. Mục đích của mình tách thàh file riêng là để giao cho Cán bộ phụ trách địa bàn đó nhập dữ liệu từ 1 máy tính khác. Sau khi nhập xong nộp file đó cho mình, mình sẽ tổng hợp lại.
Mình có 18 địa bàn tương ứng với 18 cán bộ phụ trách. Bạm giúp mình nha! Cám ơn nhiều.

 

[van80]

Ðề: Mình cũng làm theo hướng dẫn của bạn XuanThanh mà thôi; Chứ . . . .

Chuyện copy ra nhiều file mình không thích tí nào

Bạn xem trong file đính kèm, với các bước chỉ dẫn sau:
Khâu chuần bị:

a./ Chép file này vô DExcel;
B./ Cũng tại thư mục này, bạn tao 18 trang tính trắng có tên là 'DB001' cho đến 'DB018'

(*) Đầu tiên bạn chạy macro sự kiện bằng cách chọn địa bạn ở ô [D4] trên trang 'Main'

(*) Sau đó bấm vô nút lệnh sãn có trên trang này

Chúc thành công.

Cám ơn Bạn TQchanh !
đoạn code của bạn rất tuyệt vời mình áp dụng vào chương trình rất thành công.
Bạn ơi ! bạn cải tiến đoạn code này lên một bước nữa nha. Cụ thể:
- Trong thư mục DExcel không cần phải tạo trước 18 file "DB001",..."DB018"
- Sau khi chọn địa bàn cần loc rồi ta bấm nút lệnh CTRL+SHIFT+C thì vẫn thực hiện copy file.
Thân chào bạn ! Địa chỉ Email của mình là huynhphuongthcspt@yahoo.com.vn