Çözüldü Pdf kaydet ve sayfaları email gönder

Sayın Uzman arkadaşlar,

Ekteki örnek çalışmada ilk mesajda istenenlerden bazılarını yapabildim.
Eksik kalan senaryoları tamamlamak için yardımlarınızı rica ediyorum.
Aktif sayfa yerine "LICENSE", "TEMPLATE", "PARAMETRE", "SETTINGS" sayfaları hariç, diğer sayfaları tek bir pdf dosyası olarak gönderilmelidir.
"SETTINGS" sayfasının "H23", "H25", "H31" hücrelerinde metinleri alt alta sıralanmsını sağlamak için mevcut kodları nasıl revize etmeliyim.

Saygılarımla.

Örnek belgenizi incelemedim.
Aşağıdaki konu sayfasında Sayın @AhmetRasim 'in verdiği 23 numaralı cevaptaki kod aradığınız sorunun cevabı sanıyorum.
İlgili cevap metnine de bakarsanız, PDF yapılırken hariç tutulacak sayfa isimlerinin koda nasıl dahil edieceği de belirtilmiş.
İncelersiniz.

Sayın Uzman arkadaşlar,

Konu aktif olup, henüz kendi uğraşlarım neticesinde herhangi bir sonuca ulaşamadım.
Benim için çok değerli olan yardımlarınızı rica ederim.

Saygılarımla.

Sayın Ömer bey,

Ömer BARAN' Alıntı:

Örnek belgenizi incelemedim.
Aşağıdaki konu sayfasında Sayın @AhmetRasim 'in verdiği 23 numaralı cevaptaki kod aradığınız sorunun cevabı sanıyorum.
İlgili cevap metnine de bakarsanız, PDF yapılırken hariç tutulacak sayfa isimlerinin koda nasıl dahil edieceği de belirtilmiş.
İncelersiniz.

https://www.exceldestek.com/konu/ca...itaba-kopyalama-sorunu.3868/page-2#post-25131

Genişletmek için tıklayın ...

Sayın Ömer bey,

Maalesef müsbet bir neticeye ulaşamadım.
Sadece dijital imzamı görselleri ile eklemeyi sağlayabildim
".HTMLBody = Range("H23") & .HTMLBody"
Aşağıda kalan iki senaryoyu çözemedim.
Tüm sayfalar yerine "LICENSE", "TEMPLATE", "PARAMETRE", "SETTINGS" isimli sayfaları hariç, diğer sayfaları tek bir pdf dosyası olarak gönderilmelidir.
"SETTINGS" sayfasının "H23", "H25", "H31" hücrelerinde metinleri alt alta sıralanmasını sağlamak için mevcut kodları nasıl revize etmeliyim.
Benim için çok kıymetli olan yardımlarınızı rica ediyorum.

Saygılarımla.

Bilgisayarımda OUTLLOOK kullanılmadığı için deneme şansım yok.

Tahmin üzerine yazıyorum.
-- HTMLBODY: Kırmızı renklendirdiğiniz satırdan önce, ilgili hücrelerin içeriği olan metinleri aralara satırbaşı karakteri ekleyerek birleştirip mesaj = .... şeklinde bir değişkene alsanız ve HtmlBody satırını da HtmlBody = mesaj şeklinde yazmayı,
-- PDF'de yer almayacak sayfaları kodun en başında GİZLİ hale getirseniz (sadece e-postayla gönderilecek safalar görünür halde kalsa) ve Activesheet.ExportAsFixedFormat Typ..... yerine Activeworkbook.ExportAsFixedFormat Typ......... şeklinde işlem yapmayı ve PDF satırından sonra da gizlenen sayfaları tekrar görünür hale getirecek kod satırları eklemeyi,
dener misiniz?

Aşağıdaki gibi dener misiniz Sayın @Believing .

Sayın Ömer bey,

Ellerinize ve emeğinize sağlık oldukça güzel olmuş. Ayrıca eski kodları silmeden yaptığınız çalışma benim için çok öğretici olmuştur.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınızı helal ediniz lütfen.
Ramazan ayının sizlere hayırlar getirmesini dilerim.

Saygılarımla,