Excel de Mevcut Sayfayı Mevcut Dosya Adı ile PDF formatta dışa aktarma

[McDregin]

Merhaba değerli adminlerim,
PDF aktarımları ile konular gördüm bazılarını kopyaladım ama istediğim sonuca ulaşamadım.
Destek olmanız mümkünmüdür.

Aradığım şekil şudur ki;
>Mevcut sayfayı ( bu macro butonunu hangi sayfaya kopyalarsam o sayfa için işlem yapacak şekilde )
>Mevcut çalışma kitabı adı ile
>Mevcut klasörü içine PDF formatında kaydetmesi

Hatta Mümkünse farklı kayıtların karışmaması için sonuna gün&ay&yıl eklemesi
Bu PDF açtığı "Mevcut Çalışma Kitabı adı ile "Teklif dosya" adı ile yeni bir klasör açıp içine kaydetmesi.

Örnek;
Excel Çalışma Kitabı Adı "Artas A.Ş. Teklif Tablosu"
Sayfa Adı "Maliyet Analizi"

Aktarım sonrası PDF;
>Bu Çalışma Kitabının bulunduğu ayni Klasöre
>"Artas A.Ş. Teklif Tablosu - Maliyet Analizi -21032019" isimli olarak PDF formatında dışa aktarması

Mümkün müdür?
Bilgi ve desteklerinize sunarım.
Saygılarımla.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz. Hangi sayfa aktifse o sayfayı çalışma kitabının bulunduğu dizine kaydeder.
Gün içinde birden fazla kayıt yapıldığında hata oluşmaması için kayıt saati de ekledim. Gerek görmezseniz kırmızı kısmı silersiniz.
İyi çalışmalar...

Sub PdfKaydet()
yol = ThisWorkbook.Path & "\"
isim = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & " - " & _
        ThisWorkbook.ActiveSheet.Name & " - " & Format(Now, "ddmmyyyy_hhss") & ".pdf"
ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & isim
End Sub

 

[McDregin]

Ömer hocam çok teşekkür ederim.
Hatta kendime de güldüm sadeliğini görünce..
Ben yazdıkça yazmıştım..
Ne diyim .. Emeğe saygı.
Tekrar teşekkürler.

 

[bjk55]

Merhaba,
Aşağıdaki kodu deneyiniz. Hangi sayfa aktifse o sayfayı çalışma kitabının bulunduğu dizine kaydeder.
Gün içinde birden fazla kayıt yapıldığında hata oluşmaması için kayıt saati de ekledim. Gerek görmezseniz kırmızı kısmı silersiniz.
İyi çalışmalar...

Sub PdfKaydet()
yol = ThisWorkbook.Path & "\"
isim = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & " - " & _
        ThisWorkbook.ActiveSheet.Name & " - " & Format(Now, "ddmmyyyy_hhss") & ".pdf"
ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & isim
End Sub

Çalışma sayfası yerine "C15" Sütununda yazan isim olarak nasıl değiştirebiliriz

 

[ÖmerBey]

Sayın @McDregin rica ederim. Sizin uzun uzadıya anlatımınız sayesinde isteğiniz anlaşılır oldu ve tek denemede çözüme kavuştu.
Sayın @bjk55 ThisWorkbook.ActiveSheet.Name yerine ThisWorkbook.ActiveSheet.Range("C15").Text şeklinde deneyiniz.