igultekin2000
Altın Üye
- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,238
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
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.
ç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.
Kod:
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