[Help] Save File mới lấy tên của Range trong File (1 người xem)

[ngoctuyen1995]

Chào cả nhà GPEX!
Mong cả nhà giúp em một việc ạ..!

Hiện tại File Data của em có 03 sheet A , B , C, em muốn save Sheet A thành 01 File khác với tên của Ô (J8) nối với Ô (P28) (em có 02 line vàng) (Giống tên của File em đính kèm ạ)… và File Data cũ vẫn giữ nguyên ạ..

Mong cả nhà giúp em ạ..

Cảm ơn cả nhà nhiều...!

 

[huuthang_bd]

Chào cả nhà GPEX!
Mong cả nhà giúp em một việc ạ..!

Hiện tại File Data của em có 03 sheet A , B , C, em muốn save Sheet A thành 01 File khác với tên của Ô (J8) nối với Ô (P28) (em có 02 line vàng) (Giống tên của File em đính kèm ạ)… và File Data cũ vẫn giữ nguyên ạ..

Mong cả nhà giúp em ạ..

Cảm ơn cả nhà nhiều...!

Sub SaveSheetAs()
Sheets("A").Copy
ActiveWorkbook.Close True, ThisWorkbook.Path & "\" & Range("J8").Value & "_" & Range("P28").Value & ".xlsx"
End Sub

Nhớ đổi tên file chứa code.

 

[ngoctuyen1995]

Sub SaveSheetAs()
Sheets("A").Copy
ActiveWorkbook.Close True, ThisWorkbook.Path & "\" & Range("J8").Value & "_" & Range("P28").Value & ".xlsx"
End Sub

Nhớ đổi tên file chứa code.

em cảm ơn anh ạ.. code ngắn gọn mà rất hay ạ...
sẵn cho em hỏi nếu em muốn coppy từ 02 sheet trở lên thì sửa code sao ạ

 

[huuthang_bd]

em cảm ơn anh ạ.. code ngắn gọn mà rất hay ạ...
sẵn cho em hỏi nếu em muốn coppy từ 02 sheet trở lên thì sửa code sao ạ

Sheets(Array("A", "B")).Copy