İstenilen sayfaları pdf yapmak

Aleyküm selam kardeşim,

Kullandığınız Excel versiyonu destekler mi bilmiyorum ama bunu Excel'in kendi özelliği ile yapabilirsiniz.
Adımlar:

1. Hangi sayfalar PDF'e çevrilecekse, Ctrl tuşuna basılı tutup, o sayfalar fare ile tıklatın.
2. Şerit Menü -> Dosya menüsünden Dışarı Aktar seçeneğini tıklatın.
3. Ekrana gelen pencereden, PDF/XPS Oluştur seçeneğini tıklayın.
4. Açılan pencereden dosya adınızı, yolu vs seçtikten sonra, Seçenekler'e tıklayın ve açılan pencerede aşağıdaki gibi yapın.
   
   
   

Ben bu işlem ile 4 sayfalık bir Excel dosyasının 1-2-4 isimli sayfaları PDF'e dönüştürdüm. 3 isimli sayfa dışarıda sorunsuz olarak bırakıldı.
Ama 2010 bunu destekler mi kısmına emin değilim.

Admin' Alıntı:

Aleyküm selam kardeşim,

Kullandığınız Excel versiyonu destekler mi bilmiyorum ama bunu Excel'in kendi özelliği ile yapabilirsiniz.
Adımlar:

1. Hangi sayfalar PDF'e çevrilecekse, Ctrl tuşuna basılı tutup, o sayfalar fare ile tıklatın.
2. Şerit Menü -> Dosya menüsünden Dışarı Aktar seçeneğini tıklatın.
3. Ekrana gelen pencereden, PDF/XPS Oluştur seçeneğini tıklayın.
4. Açılan pencereden dosya adınızı, yolu vs seçtikten sonra, Seçenekler'e tıklayın ve açılan pencerede aşağıdaki gibi yapın.
   
   

Ben bu işlem ile 4 sayfalık bir Excel dosyasının 1-2-4 isimli sayfaları PDF'e dönüştürdüm. 3 isimli sayfa dışarıda sorunsuz olarak bırakıldı.
Ama 2010 bunu destekler mi kısmına emin değilim.

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

Destekliyor ama bir buton ile yapmak istiyorum. Kolaylık olsun diye

Makro Kaydet ile deneyelim bakalım, nasıl bir sonuç çıkacak.

Geliştirici sekmesindeki "Makro Kaydet" tuşuna basarak ilk mesajımda yaptığım işlemleri yaptığımda üstteki kodları oluşturdu.
Manuel kaydettiğim Kitap1 isimli PDF dosyasını silip, kodlar çalıştırdığımda sorunsuzca PDF çıktısını verdi.
Buradaki kodu çalıştırmadan önce sayfaları manuel olarak seçmeniz gerek.
O alanda tabi kodlanabilir.

Admin' Alıntı:

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(11 satır)

Geliştirici sekmesindeki "Makro Kaydet" tuşuna basarak ilk mesajımda yaptığım işlemleri yaptığımda üstteki kodları oluşturdu.
Manuel kaydettiğim Kitap1 isimli PDF dosyasını silip, kodlar çalıştırdığımda sorunsuzca PDF çıktısını verdi.
Buradaki kodu çalıştırmadan önce sayfaları manuel olarak seçmeniz gerek.
O alanda tabi kodlanabilir.

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

Bunda genelde hata veriyor arada denedim bunu ama 4 sayfayı nasıl alabilirz başka ki

Aldığınız hata mesajını ya da dosyanızı eklerseniz ancak daha gerçekçi geri dönüş sağlayabilirim.
Ben de verdiğim kodlar sorunsuz olarak kayıt işlemini yaptı çünkü.

Yolu değiştirdim böyle hata vermeye başladı kayıt ismini I3 den almasını istiyorum

".pdf" şeklinde olan (kırmızı yazının bir üst satırının en sonu) kısmı ".pdf" & olarak dener misiniz?
Ya da kırmızı satırı üste alın, _ işaretini silin bakalım.

İki kod arasındaki esas fark şu; birinde PDF yapılan şey Selection......diğerinde ise ActiveSheet.

Sayın @Teknotek ,
-- ekran görüntüsündeki Sheets("ed").Activate satırını silip,
-- hata veren satırda da, satırın başındaki Activesheet kısmını Selection olarak değiştirip,
-- FileName:= path & isim kısmını da FileName:= path & "/" & isim şeklinde değiştirerek deneyin.

Ayrıca ekran görüntüsü yerine örnek belge üzerinden çözüm aranmasında yarar olduğunu belirteyim.
Cevap olarak makro kodu istiyorsunuz ama gönderdiğiniz şey örnek belge değil, ekran görüntüsü.
Bana bu durumlar ilginç geliyor doğrusu.

Cevabımın altındaki İMZA bölümünü okuyunuz

.

Yolu değiştirdim böyle hata vermeye başladı kayıt ismini I3 den almasını istiyorum

Admin' Alıntı:

".pdf" şeklinde olan (kırmızı yazının bir üst satırının en sonu) kısmı ".pdf" & olarak dener misiniz?
Ya da kırmızı satırı üste alın, _ işaretini silin bakalım.

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

Filenme:= "c:\deskop\yeni klasör\" & path & ".pdf"
Yaptım düzeldi başka yeri oynamadım teşekkür ederim herkese I3 den kayıt adını alıyor

Sonuç olarak sorununuz çözüldü mü?
Eğer ok ise, doğru cevap olan kısımdaki Check simgesine tıklarsanız sevinirim.

Bu örneğide inceleyebilirsin.