igultekin2000
Altın Üye
- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,239
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
hayırlı bayramlar;
çalışma sayfasından bu makro ile çalışılan sayfayı masaüstüne farklı kaydet yapıyorum. Farklı kaydedilen sayfayı açtığımda "Veri güncelleme" hatası veriyor. Bu mesajı önlemek için makroya kod ilave edilebilir mi? Teşekkürler.
çalışma sayfasından bu makro ile çalışılan sayfayı masaüstüne farklı kaydet yapıyorum. Farklı kaydedilen sayfayı açtığımda "Veri güncelleme" hatası veriyor. Bu mesajı önlemek için makroya kod ilave edilebilir mi? Teşekkürler.
Kod:
Sub Excel_Kaydet()
Klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
dosya_adi = "Excel_"
say = CreateObject("Scripting.FileSystemObject").getfolder(Klasor).Files.Count + 1
Sheets(ActiveSheet.Name).Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value ' formülsüz değer olarak kayıt
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Klasor & "\" & dosya_adi & say & ".xlsx", FileFormat:=51
ActiveWindow.Close
MsgBox "işlem tamam"
End Sub
Ekli dosyalar
-
155.6 KB Görüntüleme: 13
-
23.6 KB Görüntüleme: 10