Microsoft Exel Makro ile Seçili Alanı PDF Kaydetme

Resim -1-

Selamlar Arkadaşlar,

Bu gün sizlerle exelde Makrolar ile nasıl pdf dosyası kaydedildiğini göstereceğim. Exelde Seçtiğimiz alanı nasıl Otomatik isim vererek pdf olarak kaydedebiliriz? ilk önce bunu iki yöntem ile yapabiliriz.

1.Yöntem Manuel Olarak exel de  seçili alanı Dosya / Farklı Kaydet / Dosya Adı Yazdıktan Sonra Kayıt Türünden PDF Seçerek İstediğimiz Yere PDF Olarak Kaydedebiliriz.

2.Yöntem Makro İle PDF Kaydetme Bu Dersimizde Exel Dosyasındaki Seçili veriyi PDF Olarak İstediğimiz isimde Hızlı Bir Şekilde Makro ile Nasıl Kaydederiz Onu Anlatacağım.

Resim -1- Şeklinde Elimizde Bir Tablo ve Bir Firmanın Teklif Formu var Belirli Formüller ile Ekrana Getirdiğimiz verileri Bir Tane PDF kaydet butonu oluşturarak.

Firma ismi / Teklif Tarihi ve Döküma nın ne Olduğunu (Teklif, Fatura vb.) Şeklinde pdf ismimize yazdıracağız.

Aşağıdaki Makro muzu Yazdığımız da Resim -2- de ki PDF Dosyalarının Nasıl Kaydedildiği Şeklindeki Görüntüyü Elde Edeceğiz.

Resim -2-

PDF ile Kaydetme Sonucu Oluşan Dosyalar Resim -2- deki Gibidir. Oluşturulan PDF yi Açtığımızda Ekran Görüntüsü Resim -3- deki Gibidir.

Resim -3-

Peki Bu Makroyu nasıl yazacağız?

Öncelikle bir "PdfKaydet" adında Bir yordam oluşturup Bu yordam içerisine gerekli parametreleri gireceğiz.

1. Sub PdfKaydet()
2. '
3. ' PdfKaydet Makro
4. '
5. ' Klavye Kısayolu: Ctrl+Shift+P
6. '
7.    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
8.         "C:\" & Sheets("Teklif Formu").Range("c3") & "-" & Range("s13") & "-" & Range("a11").Value, Quality:=xlQualityStandard, IncludeDocProperties _
9.         :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
10. End Sub

Yukardaki Kodlarımızda Satır Numarası verdim Detaylı olarak Satır Satır Açıklama yapacağım. Kodun Tamamını Açıklama Sonundan Alabilirsiniz.

1. Satır da PdfKaydet Şeklinde Yordam Oluşturuyoruz Yani Makromuzun Adı Bu.

5. Satırda Makromuzun Kısayolu Yani Exel Sayfasında Resim -1- de Görüldüğü gibi "PDF Oluştur" Şeklinde buton oluşturup yazdığımız makroyu butona atamıştık. burda kısayolu "Ctrl+Shift+P" Bunu isterseniz "Ctrl+x" olarakda değiştirebilirsiniz. size kalmış.

7. Satırda Belirlediğimiz Exel Sayfası, Seçilen Alan ve Nereye kaydedilecek Yolumuzu Görüyoruz.

8. Satırda ise 7. Satırda vermiş olduğumuz komutların neler olacağını görüyoruz. burda C:\ Dizinimize Kaydedilsin. "Teklif Formu" Sayfamızdaki Seçilmiş Alan  Kaydedilsin.ve Oluşturacağımız PDF Dosyasının adı Bizim İstediğimiz Hücrelerdeki yani C3,S13 ve A11 hücrelerindeki veriler Olacak ve Bu veriler  - işareti ile Ayrılacaktır Bu veriler ile pdf dosyamızın ismini yaz diyoruz. 

9. Satırda Pdf olarak kaydedildiğinde PDF dosyasının açılmasını istiyorsanız. "OpenAfterPublish:=False" Kodundaki "False" Olan Kısmı "True" olarak değiştirmeniz gerekecek.

10. Satırda "End Sub" diyerek makromuzu bitiriyoruz.

Makro Kodu : 

Sub PdfKaydet()
'
' PdfKaydet Makro
'
' Klavye Kısayolu: Ctrl+Shift+P
'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\" & Sheets("Teklif Formu").Range("c3") & "-" & Range("s13") & "-" & Range("a11").Value, Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Microsoft Exel Makro ile Seçili Alanı PDF Kaydetme Yazımızın sonuna geldik.

Örnek dosyamızı indirebilirsiniz.

Kod yazımı sonrasında sorun ile karşılaşanlar konu altı yorumlardan ulaşarak çözüm sağlayabilir.

Bir sonraki yazıda görüşmek üzere.