Tách 2 sheet trong 1 file thành 1 file mới

[VuVanHao]

Em xin chào mọi người ạ, nhờ mọi người giúp đỡ em vấn đề sau ạ!
Đầu vào: 1 File có 5 sheet
Yêu cầu:

1. Tách ra 2 sheet thành 1 file mới. Ví dụ là sheet2 và sheet4​

2. Tên file mới đặt theo chuỗi text ở D1 sheet1_ngày tháng năm hiện tại theo format(ddmmyy). Ví dụ là: Giaiphapexcell_090420​

Em xin cảm ơn ạ!

 

[VetMini]

Cái này chỉ cần copy ra một file mới và delete các sheets không cần. Vài động tác là xong.
Mắc chi phải rườm rà cốt kiếc vậy.

 

[rubia]

Nếu là mình, mình sẽ record 1 cái macro rồi tự suy luận code.
Về ngày tháng năm thì chọn format theo thời gian tạo file hoặc được chỉ định trong 1 ô nào đó cho trước. Kể cả mỗi sheet có ngày tháng khác nhau thì vẫn cho ra được định dạng tên có khoảng thời gian.

 

[VuVanHao]

Cái này chỉ cần copy ra một file mới và delete các sheets không cần. Vài động tác là xong.
Mắc chi phải rườm rà cốt kiếc vậy.

Dạ, do mục đích của em là mỗi lần làm phiếu xuất kho/báo lô sẽ tách phiếu đó thành 1 file mới để gửi sang bộ phận khác ạ

Bài đã được tự động gộp: 9/4/20

Nếu là mình, mình sẽ record 1 cái macro rồi tự suy luận code.
Về ngày tháng năm thì chọn format theo thời gian tạo file hoặc được chỉ định trong 1 ô nào đó cho trước. Kể cả mỗi sheet có ngày tháng khác nhau thì vẫn cho ra được định dạng tên có khoảng thời gian.

Cám ơn bạn, mình record thì nó có câu này:

Sheets(Array("Sheet2", "Sheet4")).Copy

Nhưng mình không muốn nó lấy theo tên sheet vì vô tình có thể bị sửa thì mình chỉnh thế nào được, bạn có thể chỉ giúp mới ạ. Xin cảm ơn
Mình đã chỉnh thế này mà không được:

Sheet(Array(Sheet2, Sheet4)).Copy
'------------Hay thế này
Sheets(Array(Sheet2, Sheet4)).Copy

 

[VetMini]

- Mở file lên
- Copy text ở ô D1 (tên file mới)
- Nhấn F12
- Save as > Paste (Ctrl+v) - gõ thêm ngày tháng > Save
- Xoá các sheets không cần
- Save
Mấy động tác này đâu có bao nhiêu mà phải macro?

Nếu cần tự động ngày tháng thì ở ô D1gõ thêm hàm Today(), định dạng ddmmyy

 

[rubia]

@hao93tbdtn như vầy nhé:

    Sheets(Array([2], [4])).Copy

còn chuyện đổi tên hay thêm ngày thì mình nghĩ chắc bạn record là làm được thôi

 

[VuVanHao]

- Mở file lên
- Copy text ở ô D1 (tên file mới)
- Nhấn F12
- Save as > Paste (Ctrl+v) - gõ thêm ngày tháng > Save
- Xoá các sheets không cần
- Save
Mấy động tác này đâu có bao nhiêu mà phải macro?

Nếu cần tự động ngày tháng thì ở ô D1gõ thêm hàm Today(), định dạng ddmmyy

Dạ, bình thường em làm cách chạy bằng cơm vậy ạ, nhưng nếu theo dõi nhiều đơn vị, mỗi đơn vị là 1 file thì em nghĩ dùng 1 nút bấm sẽ tiện hơn ạ

Bài đã được tự động gộp: 9/4/20

@hao93tbdtn như vầy nhé:

    Sheets(Array([2], [4])).Copy

còn chuyện đổi tên hay thêm ngày thì mình nghĩ chắc bạn record là làm được thôi

Mình làm được rồi;
Cám ơn bạn nhé!