birden fazla kitabı aynı anda kaydetme

[y.selim]

merhabalar
birden fazla excel kitabı açıkken aynı anda kayıt yapılabilir mi?
işim gereği bir çok excel programı açık olarak çalışıyorum ve dosyalar büyük olduğu için kayıt uzun sürüyor. her birini tek tek kaydetmek ise sıkıcı. bütün dosyaları kapatırken aynı anda kaydetmek mümkün peki dosyaları kapatmadan aynı anda kayıt mümküm mü?
araştırma yaptım, sanırım bu konuyu daha önce açan olmamış.
ilginize teşekkür ederim.

 

[Baggwell]

Takip........

 

[y.selim]

ne takibi neyi takip?

 

[y.selim]

bu konuyu bilen yada merak eden kimse yokmu?

 

[excelokyanus500]

Merhaba

Bu kodlar sanırım işinizi görecektir...

Sub HepsiniKaydet()
Dim wb As Workbook
'Hepsini kaydeder ve açık bırakır
Application.DisplayAlerts = False
For Each wb In Application.Workbooks
wb.Save
Next wb
Application.DisplayAlerts = True
'Application.Quit 'Excelden çıkmak istenirse aktif edilir.
End Sub

 

[Efkan.]

excelin oto kayit süresini 1 dk olarak ayarlasanız işinizi görmez mi ?

 

[y.selim]

olabilir tabi ama fazla zaman kaybına neden olabilir. syn excelokyanus500 un verdiği kod gayet iyi iş görüyor teşekkürler.elinize sağlık.

 

[Baggwell]

Bu kodlar sanırım işinizi görecektir...

Sub HepsiniKaydet()
Dim wb As Workbook
'Hepsini kaydeder ve açık bırakır
Application.DisplayAlerts = False
For Each wb In Application.Workbooks
wb.Save
Next wb
Application.DisplayAlerts = True
'Application.Quit 'Excelden çıkmak istenirse aktif edilir.
End Sub

Bende teşekkür ederim işime yarayan bir kod çalışması oldu.

 

[Baggwell]

Aynı kodu birde "tüm çalışma kitaplarını kaydetmeden kapat" şeklinde yapabilir miyiz ?

Kendime özel bir menü yapıyorum da o yüzden lazım

http://prntscr.com/5yyykt