Çalışma Sayfasını farklı kaydet

[igultekin2000]

iyi akşamlar;
çalışma kitabında çalışma sayfasını (aktif) masaüstüne farklı kaydet olarak kullandığım makro var. sorunsuz çalışyor ancak çalışma sayfasındaki formüllü hücreleri de formüllü olarak yeni çalışma sayfasına kaydediyor. formülsüz çalışma sayfasını farklı kaydetmek için bu koda nasıl bir ilave yapabilirim.

Sub Excel_Kaydet()

Klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")

dosya_adi = "deneme"
say = CreateObject("Scripting.FileSystemObject").getfolder(Klasor).Files.Count + 1

Sheets(ActiveSheet.Name).Copy
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Klasor & "\" & dosya_adi & say & ".xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
MsgBox "işlem tamam"

End Sub

 

[ÖmerBey]

İyi akşamlar,
Kayıt satırından önce şu satırı ilave ediniz: ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

 

[igultekin2000]

İyi akşamlar,
Kayıt satırından önce şu satırı ilave ediniz: ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

teşekkür ederim, sorunsuz çalışıyor. iyi çalışmalar. bu şekilde sorunsuz çalışıyor ama sonradan fark ettim. bu işlemde vergi ve tc nolarda var farklı değer olarak kaydedilince başında " sıfır " olan numaraların "sıfır" ları da siliniyor, heralde bunu önlemenin bir kolayı olmaz.

 

[ÖmerBey]

Bir de şu kodlarla deneyiniz.

With ActiveSheet.UsedRange
    .Copy
    .PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False