Çalışma Kitabını Kaydet ve Çık Makrosunda Düzenleme

[1Al2Ver]

Merhaba,

Aşağıdaki microsoft'un sitesinde, linkte gördüğüm kod, açık olan tüm çalışma kitaplarını kayıt edip kapatıyor,

Kodu, sadece üzerinde çalışılan çalışma kitabına uygulamak istedim,

Application.Workbooks'u, Application.ThisWorkbook yaptım ama hata aldım, "w" değişkeninin de değişmesi mi gerekiyor bilemedim,

Sadece çalışılan kitabı kapatması için kodda düzenleme rica ediyorum,

Application.Quit method (Excel) | Microsoft Docs

For Each w In Application.Workbooks
 w.Save
Next w
Application.Quit

Teşekkür ederim.

 

[muygun]

Merhaba;
Tüm dosyalara döngüye gerek yok ki
aşağıdaki iki satır hangi dosyada çalışırsa o dosyayı kaydeder ve kapatır.

ThisWorkbook.Save
ThisWorkbook.Close

 

[1Al2Ver]

Sayın muygun merhaba,

Öneri için teşekkür ederim,

Saygılarımla.