Ayrı Sayfalardan Tek PDF Oluşturma

Çözüldü Ayrı Sayfalardan Tek PDF Oluşturma

merakli

Site Üyesi
Excel Versiyonu
Excel 2019
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,

Örnek dosyada bir önceki konumdaki çıktıları PDF şeklinde kaydetmeye çalışıyorum.
Yıllar önce böyle bir VBA kodunu @Ömer BARAN hocam oluşturmuştu.
Bu örnekte 3 sayfa vardı sadeleştirip çalışır hale getirmekte başarılı olamadım.
Yapmaya çalıştığım işin anlaşılması için @Ömer BARAN Bey kodunu da ekliyorum.

Örnek dosyada PDF Kaydet'e tıklayınca $G$2 Hücresinde bulunan tüm isimlerin sırasıyla seçilerek sonuçları ayrı PDF sayfalarda ancak tek bir PDF olarak kaydetmeye çalışıyorum.

Veri!$B$2:$B$41 arasında 40 öğretmen var 40 defalık bir döngü oluşturulup Tek PDF dosyasında toplam 40 sayfa (39 sayfada oluşabilir) lık her bir öğretmenin sonucunu gösteren çıktı almaya çalışıyorum.

ilk 5 ismi içeren örnek çıktı bir pdf ekledim. (Manuel olarak oluşturdum)
Bu konuda desteğinizi rica ediyorum.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(29 satır)

soru.webp
 

Ekli dosyalar

@merakli

-- Ornek isimli sayfanın kod bölümündeki Worksheet_Change kodunu şöyle değiştirin.

Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

-- Aynı yerdeki listele isimli makro kodundaki
MsgBox "Kritere uygun veri yok", vbCritical
kısmını silin

-- Ornek sayfasının kod bölümüne aşağıdaki makro kodunu ekleyip,
sayfadaki PDF Kaydet düğmesiyle bu kodu ilişkilendirin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(22 satır)
 
Üst