Giúp em code Copy sheet có giá trị (1 người xem)

[quoc nhat]

Em có đoạn code copy sheet từ file củ sang File mới như sau:"
Sub Copysheet()
ActiveSheet.Copy
With Application.FileDialog(2)
.Show: .AllowMultiSelect = False
ActiveWorkbook.SaveAs .SelectedItems(1)
End With
ExitSub:
ActiveWorkbook.Close (False)
End Sub

Bây giờ em phải thêm đoạn code như thế nào nữa để copy sheet từ file củ có các cell chứa hàm excel thành sheet (file mới) có giá trị là Value ạ?( Không còn hàm excel nữa)
Mong các anh chị chỉ giùm em với!!

 

[vu_tuan_manh_linh]

Em có đoạn code copy sheet từ file củ sang File mới như sau:"
Sub Copysheet()
ActiveSheet.Copy
With Application.FileDialog(2)
.Show: .AllowMultiSelect = False
ActiveWorkbook.SaveAs .SelectedItems(1)
End With
ExitSub:
ActiveWorkbook.Close (False)
End Sub

Bây giờ em phải thêm đoạn code như thế nào nữa để copy sheet từ file củ có các cell chứa hàm excel thành sheet (file mới) có giá trị là Value ạ?( Không còn hàm excel nữa)
Mong các anh chị chỉ giùm em với!!

Bạn ghi macro: copy --> paste special đi!! Sẽ có đoạn code bạn muốn!

 

[Gia_Khue]

Bạn ghi macro: copy --> paste special đi!! Sẽ có đoạn code bạn muốn!

Sửa sao bạn ơi? Mình sửa đủ kiểu mà bị báo lỗi hoài à.

 

[vu_tuan_manh_linh]

Sửa sao bạn ơi? Mình sửa đủ kiểu mà bị báo lỗi hoài à.

Code thế này nhé bạn!

Sub Copysheet()
ActiveSheet.Copy
With Application.FileDialog(2)
.Show: .AllowMultiSelect = False
'Ban chi can them doan code nay. Doan code nay hoan toan lay tu Record Macro thoi
Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Them cai nay de thoat lenh copy
Application.CutCopyMode = False
'Tu day den het cung la code cua ban nhe!!
ActiveWorkbook.SaveAs .SelectedItems(1)
End With
ExitSub:
ActiveWorkbook.Close (False)
End Sub