[Help] Move or Copy 1 sheet hoặc group sheet từ File đang chọn sang File mới (1 người xem)

[trongnd09]

E chào các bác,
Có một vấn đề mà e tìm hiểu nhưng chưa giải quyết được nên nhờ mọi người giúp đơ. E có tìm hiểu 1 số chủ đề ví dụ như http://www.giaiphapexcel.com/forum/showthread.php?104118-Tạo-code-thay-cho-Move-or-Copy&highlight=
Nhưng mà mới chỉ có thể copy được 1 sheet đang mở sang file mới mà chưa thể copy 1 group sheet đang chọn sang sheet mới .

Sub CopyMove()
With ActiveSheets
Sheets(ActiveSheet.Name).Select
Sheets(ActiveSheet.Name).Copy
End With
End Sub

Nhờ mọi người giúp đỡ !

 

[killitmore]

Bạn tự sửa lại code để lấy đúng các sheets mà bạn muốn copy nhé, nó sẽ tự động lưu vào folder mặc định trong Excel option

Sub Move_or_copy()
    Sheets(Array(Sheet1.Name, Sheet2.Name)).Copy
    ActiveWorkbook.SaveAs
    ActiveWorkbook.Close
End Sub

 

[killitmore]

Bạn tham khảo thêm ở link sau nữa nè
https://support.microsoft.com/en-us/kb/288402

 

[trongnd09]

Bạn tự sửa lại code để lấy đúng các sheets mà bạn muốn copy nhé, nó sẽ tự động lưu vào folder mặc định trong Excel option

Sub Move_or_copy()
    Sheets(Array(Sheet1.Name, Sheet2.Name)).Copy
    ActiveWorkbook.SaveAs
    ActiveWorkbook.Close
End Sub

Tks bác. Đây là mình đã chọn sẵn những sheet nào sẽ xuất ra file mới, còn trường hợp e chọn các sheet bất kỳ thì không được đúng ko bác

 

[killitmore]

Tks bác. Đây là mình đã chọn sẵn những sheet nào sẽ xuất ra file mới, còn trường hợp e chọn các sheet bất kỳ thì không được đúng ko bác

Theo mình tìm hiểu thì là không được vì lệnh Activesheet trong VBA nó chỉ lấy cái sheet đang hiển thị thui , cùng lắm thì làm cái UserForm cho người dùng nhập tên sheet vậy

 

[ndu96081631]

Tks bác. Đây là mình đã chọn sẵn những sheet nào sẽ xuất ra file mới, còn trường hợp e chọn các sheet bất kỳ thì không được đúng ko bác

Nó chinh là ActiveWindow.SelectedSheets

[COLOR=#ff0000]ActiveWindow.SelectedSheets[/COLOR].Copy

 

[trongnd09]

Ôi e đúng là gà

Sub Move_or_copy()
ActiveWindow.SelectedSheets.Copy
ActiveWorkbook.SaveAs
End Sub

Cảm ơn các bác nhiều !!!