başka kitap kapatma

[muratozmenler]

açık olan excel dosyasını

Dim pir

pir = MsgBox("Sayın :Yönetici " & Chr(10) & Chr(10) & _
            "İyi günler diler..." & Chr(10) & Chr(10) & _
            "Dosya Kaydedilsin mi?", vbQuestion + vbYesNo, "Çıkış")
Select Case pir
    Case vbYes
    Application.DisplayFullScreen = False
       
         ActiveWorkbook.Save
        Application.Quit
    Case vbNo
        Application.DisplayAlerts = False
End Select

bu kodlarla dosyayı kapatıyorum fakat bu dosya kapanmadan önce BİLGİ isimli çalışma kitabını save edip kapatıp sonra normal dosyayı kapatma işlemi yapabilirmiyiz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod yapısını kullanabilirsiniz.

Option Explicit
 
Sub KAPAT()
    Workbooks("BİLGİ.xls").Close True
    ThisWorkbook.Save
    Application.Quit
End Sub

 

[muratozmenler]

Teşekkür

Teşekkür ederim korhan bey..