Çalışan Dosyayı Buton Aracılığı ve Belirli Kriterlere Göre Masa Üstüne Farklı Kaydetmek

[fledermaus]

Merhaba,

Excel çalışma sayfamda bir butona tıklandığında belirli kriterlere göre dosyam aşağıdaki koda göre masa üstüne pdf olarak kayıt edilmektedir ?
Aynı çalışma sayfasında farklı bir buton daha açacağım ve masa üstüne farklı kaydet komutu vereceğim. Buna göre aşağıdaki kodu nasıl güncellemem gerekli olduğu konusunda yardımlarınızı rica ederim.


Sub PDF_KAYDET()
If Range("BC7") = "" Then
MsgBox "Lütfen dosya adını yazınız!", vbCritical
Exit Sub
End If

Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Dosya_Adi = Range("BC7") & ".pdf"

Range("Print_Area").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Yol & "\" & Dosya_Adi, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

MsgBox "Dosya Masa Üstüne Kayıt Edilmiştir."
End Sub



Yardımlarınız için şimdiden teşekkür ederim.

 

[yanginci34]

Aşağıdaki gibi denermisiniz.

Sub PDF_KAYDET()
If Range("BC7") = "" Then
MsgBox "Lütfen dosya adını yazınız!", vbCritical
Exit Sub
End If

Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Dosya_Adi = Range("BC7") & ".xlsm"


ActiveWorkbook.SaveAs Filename:=Yol & "\" & Dosya_Adi, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False




MsgBox "Dosya Masa Üstüne Kayıt Edilmiştir."
End Sub