Userform ile Çalışma Kitabını Kaydetmeden kapatma

[yselimyilmaz]

Selam Arkadaşlar;
Userform ile çalıştığım, çalışma kitabını; userform ve Çalışma kitabı ile birlikte kaydetmeden kapatmak istiyorum.

Kaydedilmesi gereken bilgileri aşağıdaki kod ile pdf olarak kaydediyorum. Orjinal makrolu dosyamın içeriğinin değişmemesi için kaydetmeden kapanması gerekmektedir. Bunun için aşağıdaki kod satırlarının devamına nasıl bir kod yazmam gerekiyor. Yardımlarınızı bekliyorum.


Private Sub CommandButton1_Click()

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\User\Desktop\YAVUZ\" & Format(Sheets("KASA").Range("C3"), "yyyy.mm.dd") & "_RAPORLARI" & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

 

[muygun]

Merhaba;
Ekteki gibi olabilir.
Gereken kodları dosyanızda kullanın.
İyi çalışmalar.

 

[yselimyilmaz]

Sayın, m.uygun;

İlginize ve yardımınıza teşekkür ederim. Ekli dosyanızı inceledim. Uygun olan kodlar ile sorunumu çözdüm.