Tek Tuşla PDF

[aydingul]

Merhaba,

Aynı kitaptaki iki farklı çalışma sayfasını tek tuşla PDF yapabilecek bir kod mümkün mü? Birkaç video izledim ama yapamadım. Yardımcı olabilecek birileri varsa çok sevinirim. Şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Deneyiniz.

Sub kod()
Sheets(Array("Sayfa1", "Sayfa2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=ThisWorkbook.Path & "\Dosya.pdf", _
            OpenAfterPublish:=True
End Sub

 

[aydingul]

Merhaba,

Öncelikle yardımınız için teşekkür ederim. Sayfa isimlerini kendime göre değiştirip kaydetmeye çalıştığımda "runtime error 9" hatası alıyorum. Örnek dosyayı ekledim.

 

[ÖmerBey]

Örnek dosyanızda makrolar yer almıyor, paylaştığım kodu kopyalayıp düzenlediğimde ben hata almadım.
Sekme isimlerini yanlış yazmış olabilir misiniz?
Sekme isimlerini dosya üzerinden kopyala-yapıştır ile almayı deneyiniz.

 

[aydingul]

Hocam merhaba, tekrar denedim ama bu kez de 1004 hatası aldım

 

[ÖmerBey]

Oluşturulan pdf dosyası excel dosyasının bulunduğu dizine kaydediliyor. Dosyanız C sürücüsünde ise kayıt için yönetici iznine ihtiyaç duyuyor olabilirsiniz. Klasör seçeneklerinden yazma iznini düzenleyebilirsiniz. Ya da excel uygulamasını yönetici olarak çalıştırmayı deneyebilirsiniz.
Veya dosya yolunu yazma izni olan bir klasöre ayarlayabilirsiniz. Filename:="‪D:\Dosya.pdf" gibi...