economizando no excel sem fórmula

Question

Eu uso o seguinte código na minha planilha:

Sub savesheet2()

Application.ScreenUpdating = False
ActiveSheet.Select
ActiveSheet.Copy
ThisFile = Range("A1").Text
Dim fileName As String
fileName = "H:\PUS\Overhead\Planning&Control\Planning\Leveranciers core\bestellingen\" & ThisFile
ActiveSheet.SaveAs fileName:=fileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.ScreenUpdating = True

End Sub

O que eu gostaria é que, para a nova pasta de trabalho salva, todas as fórmulas sejam salvas como valores, portanto nenhuma fórmula visível está nas células.

Espero que alguém possa me ajudar?

Obrigado antecipadamente!

    

Answer 1

Logo após:

ActiveSheet.Copy

inclui:

Cells.Copy
Cells.PasteSpecial xlPasteValues

    

Answer 2

Você pode experimentar este código VBA simples e converter todas as fórmulas em Value & Salve a pasta de trabalho.

Sub Saveasvalue()

    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
    Application.ActiveWorkbook.SaveAs Filename:="YOUR PATH\" & YOURWorkbookName, FileFormat:= xlNormal, CreateBackup:=False
End Sub

Ou isso também pode ser usado,

    Dim wsh As Worksheet
    For Each wsh In ActiveWorkbook.Sheets
        wsh.UsedRange.Value = wsh.UsedRange.Value
    Next
   ThisWorkbook.Save