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

[quanvm]

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!

View more random threads:

• Hàm tách Email trong chuỗi
• Chỉ giúp em với các anh chị ơi
• [Help] Tự động liên kết các file excel lại với nhau
• Học vba cho dân kế toán
• Giúp tối ưu Marco trong Excel
• Chạy tự động macro khi mở file excel & Sử dụng Visual Basic tô màu ô tương ứng khi double click cell
• cần giúp đỡ về in ấn trong vba excel
• Xin file maro excel kế toán trường học!!
• Không chạy được các addin trong exel
• Ngày cuối tháng

[duccv]

Ðề: 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.

[cushinthang]

Ðề: 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.

[anh321]

Ðề: 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ô D:motsach:

[tctexpress]

Ðề: 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ô D:motsach:

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 D:-/Excel 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