Tách sheets thành file mới: theo điều kiện từ 1 sheet và giữ nguyên sheets khác

[LinhNguyen06]

Nhờ mọi người giúp em với ạ.

Em có 1 file gồm 5 sheets:
1. Sendemail: Gồm thông tin Khối- tiêu chí filter, pass: password của file.
2. Database: Gồm thông tin cần filter. Cột D
3. AttachEmail: sheet hiện thị thông tin filter
4. Fix: Sheet cố định.

Em muốn tách ra file khác nhau, mỗi file gồm 2 sheets: sheet1: Tách theo tiêu chí filter từ sheets Database, sheet2: Sheet Fix, cố định tại tất cả các file.
Hiện tại phần code đã tách thành các file theo tiêu chí filter rồi, nhưng chưa lồng được phần ghép Sheet Fix vào. Em đã thử các cách insert copy sheet vào rồi vẫn chưa được ạ.
Mong mọi người giúp em với ạ.
Em cảm ơn mọi người nhiều.

 

[vanthinh3101]

Nhờ mọi người giúp em với ạ.

Em có 1 file gồm 5 sheets:
1. Sendemail: Gồm thông tin Khối- tiêu chí filter, pass: password của file.
2. Database: Gồm thông tin cần filter. Cột D
3. AttachEmail: sheet hiện thị thông tin filter
4. Fix: Sheet cố định.

Em muốn tách ra file khác nhau, mỗi file gồm 2 sheets: sheet1: Tách theo tiêu chí filter từ sheets Database, sheet2: Sheet Fix, cố định tại tất cả các file.
Hiện tại phần code đã tách thành các file theo tiêu chí filter rồi, nhưng chưa lồng được phần ghép Sheet Fix vào. Em đã thử các cách insert copy sheet vào rồi vẫn chưa được ạ.
Mong mọi người giúp em với ạ.
Em cảm ơn mọi người nhiều.

Bạn thêm 3 dòng code:

Sourcewb.Activate
Sourcewb.Sheets("Fix").Copy after:=Destwb.Sheets(1)

Destwb.Activate

vào trước dòng này:

TempFilePath = "D:\TestComine\mail" & "\"
TempFileName = Sheet1.Cells(i, 1).Value

 

[LinhNguyen06]

Bạn thêm 3 dòng code:

Sourcewb.Activate
Sourcewb.Sheets("Fix").Copy after:=Destwb.Sheets(1)

Destwb.Activate

vào trước dòng này:

TempFilePath = "D:\TestComine\mail" & "\"
TempFileName = Sheet1.Cells(i, 1).Value

Em cảm ơn anh nhiều ạ.