birden fazla açık dosyayı kaydetme

zkzc9999

Altın Üye
Katılım
14 Eylül 2007
Mesajlar
9
Excel Vers. ve Dili
2003
ingilizce
Altın Üyelik Bitiş Tarihi
21-03-2028
Birden fazla açık dosyayı dosyaları kapatmadan nasıl kaydedebilirim?
Lotus123'te bu işlem \File \Save All komutlarıyla yapılabiliyordu
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kod ile açık olan tüm excel dosyalarınızı sırasıyla kaydedebilirsiniz.

Kod:
Sub AÇIK_OLAN_DOSYALARI_KAYDET()
    SAY = Excel.Application.Windows.Count
    If SAY > 0 Then
    For X = 1 To SAY
    Workbooks(X).Save
    MsgBox Workbooks(X).Name & " İSİMLİ DOSYA KAYDEDİLDİ.", vbInformation
    Next
    End If
End Sub
 

zkzc9999

Altın Üye
Katılım
14 Eylül 2007
Mesajlar
9
Excel Vers. ve Dili
2003
ingilizce
Altın Üyelik Bitiş Tarihi
21-03-2028
çok teşekkür ederim
 
Üst