Chép từ nhiều workbook sang 01 workbook khác. (2 người xem)

[changngoc]

Chào các Anh/ Chị,

Mình có một yêu cầu nhờ các AC giúp như sau:
- Mình có 04 file tương ứng với 04 người.
- File tổng hợp >tại sheet 'data' > nhấn vào tên của người nào ( có thể làm một button) thì dữ liệu của file người tương ứng đổ qua. Mõi lần ấn thì cứ chép đè vào).

Thanks.

 

[changngoc]

Anh cho em một đoạn code để sau khi cập nhật các vùng dưới đây được tự động định dạng:
- Vùng G27:J2000 có số cho dễ đọc ( ví dụ: 100,000 thay vì 100000)
- Vùng K27:L2000 dạng ngày/tháng/năm ( ví dụ: 1/04/2012 thay vì 41000)
- Vùng O27:O200 dạng phần trăm (%) ( ví dụ: 20%, thay vì 0.2)

thanks anh.

 

[Quang_Hải]

Những yêu cầu này bạn cứ định dạng cho các cột này sẵn là được rồi cần gì code chứ. Vì du liệu chuyển sang chỉ copy value thôi. Không cần code đâu.

 

[changngoc]

Lúc đầu em cũng nghĩ vậy, nhưng đỗ dữ liệu sang thì đôi khi lại bị như trường hợp trên => dẫn đến các sheet khác lấy công thức bị sai theo.

 

[Quang_Hải]

Vậy thêm 3 dòng này vào phía sau vòng lặp next thử xem sao

[G:J].NumberFormat = "0.00"
[K:L].NumberFormat = "dd-mmm-yy"
[O:O].NumberFormat = "0.00%"

 

[changngoc]

Cảm ơn anh rất nhiều.