Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 15-10-2010, 09:37   #1
figutive
 
Giriş: 20/06/2007
Şehir: istanbul
Mesaj: 19
Excel Vers. ve Dili:
excel 2007
Varsayılan Sayfaları PDF formatında kaydetme

Merhabalar

Excelde mevcut bir çalışmayı sayfalar halinde farklı PDF dosyası olarak kaydetmek istiyorum. Yazdığım macroyu aşağıda görebilirsiniz. Dosyaları oluşturuyor ancak her dosyada aynı sayfayı kaydediyor. Nerde yanlışlık yaptığım hakkında yardımcı olur musunuz?

Selamlar&Teşekkürler
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub PDF()
Dim bas As Range
Dim bit As Range
Dim ilk As Integer
Dim son As Integer
Dim a As Integer
Dim say As Integer
Dim sayfaadi As Long


ilk = Sheets("CK").Range("B1").End(xlDown).Row
son = Sheets("CK").Range("A1").SpecialCells(xlCellTypeLastCell).Row
Application.ScreenUpdating = False

For a = ilk To son Step 27

For sayfaadi = 1 To 5

        Set bas = Sheets("CK").Range("B" & a)
        Set bit = Sheets("CK").Range("E" & a + 26)
        ActiveSheet.PageSetup.PrintArea = bas.Address & ":" & bit.Address
        With ActiveSheet.PageSetup
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
        
        
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\190500\Desktop\KG" & sayfaadi & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

    say = say + 1

Next sayfaadi

Next a

ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.Zoom = 100
Application.ScreenUpdating = True
MsgBox "PDF Alma İslemi Tamamlandı." & vbCrLf & say & " Sayfa masa ustune kaydedildi", vbInformation, "Y A Z D I R"
End Sub
figutive Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2010, 09:45   #2
Failimechul
 
Giriş: 14/03/2008
Şehir: Samsun
Mesaj: 119
Excel Vers. ve Dili:
XP TR
Varsayılan

Merhabalar
Acaba sürekli aynı tip fakat farklı özelliklerde belge mi alıyorsunuz? Misal depo çıkışı,sevk irsaliyesi gibi.. Eğer öyleyse dosyanın kayıt ismini değiştirirseniz sorun ortadan kalkabilir

Alıntı:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\190500\Desktop\KG" & sayfaadi & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

say = say + 1

Next sayfaadi

Next a
Kaydedilecek dosyanın adı şu şekilde olsun mesela ; sayfaadi_tarih.pdf
Failimechul Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2010, 10:01   #3
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,602
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

örnek dosyanız olmadığı için alternatif kod buna bakarak kendinize uyarlıyabilirsiniz

Alıntı:
Sub PDF_kaydet()
For i = 1 To ActiveWorkbook.Sheets.Count
sayfaadi = Sheets(i).Name ' dosya adı
Range("B27:E53").Select ' Kayıt yapılacak Bölüm
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\190500\Desktop\KG" & sayfaadi, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2010, 10:13   #4
figutive
 
Giriş: 20/06/2007
Şehir: istanbul
Mesaj: 19
Excel Vers. ve Dili:
excel 2007
Varsayılan

Alıntı:
Failimechul tarafından gönderildi Mesajı Görüntüle
Merhabalar
Acaba sürekli aynı tip fakat farklı özelliklerde belge mi alıyorsunuz? Misal depo çıkışı,sevk irsaliyesi gibi.. Eğer öyleyse dosyanın kayıt ismini değiştirirseniz sorun ortadan kalkabilir



Kaydedilecek dosyanın adı şu şekilde olsun mesela ; sayfaadi_tarih.pdf

Merhabalar

Ben excelde aynı sayfa içinde aynı formatta alt alta sıralı olan sayfaları tek tek pdf ye atmak istiyorum.
figutive Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2010, 11:01   #5
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,602
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

ActiveSheet.PageSetup.PrintArea = bas.Address & ":" & bit.Address

yukarı koddan sonra aşağıdaki kodu ekleyiniz durumda bir değişiklik olacakmı

Sheets("CK").Range(bas.Address & ":" & bit.Address).Select
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2010, 12:34   #6
figutive
 
Giriş: 20/06/2007
Şehir: istanbul
Mesaj: 19
Excel Vers. ve Dili:
excel 2007
Varsayılan

Söylediğiniz şekilde denedim ancak olmadı. Dosyayı ekte gönderiyorum

Teşekkürler
Eklenmiş Dosyalar
Dosya Türü: xls Macro Calisma22.xls (33.0 KB, 50 Görüntülenme)
figutive Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2010, 13:30   #7
uzmanamele
Uzman
 
uzmanamele kullanıcısının avatarı
 
Giriş: 26/09/2007
Şehir: Süleyman Özyüksel / Ankara
Mesaj: 8,795
Excel Vers. ve Dili:
excel 2010
Varsayılan

merhaba

alternatif olarak aşağıdaki linkten de yararlanabilirsiniz.
http://www.excel.web.tr/f48/farkly-k...me-t88504.html
__________________
Türk genci, İnkılapların ve rejimin sahibi ve bekçisidir.
Atatürk
uzmanamele Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2010, 14:47   #8
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,602
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

şimdi iş yerindeyim buradaki pc de ofis2003 kurulu deneme imkanım olmadı bu kod ofis2007 de çalışıyor

bunu denermisiniz.

Alıntı:
Sub PDF_kaydet()
say = 0
For i = 1 To 2
say = say + 1
If say = 1 Then
yer = Range("B2:E28").Select
ElseIf say = 2 Then
yer = Range("B33:E59").Select
End If
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\190500\Desktop\KG" & say, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub
ayrıca kodun ofis2007 de çalışması için aşağıdaki linkdeki eklentiyi yüklemeniz gerekiyor.

http://www.microsoft.com/downloads/d...displayLang=tr
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2010, 14:52   #9
figutive
 
Giriş: 20/06/2007
Şehir: istanbul
Mesaj: 19
Excel Vers. ve Dili:
excel 2007
Varsayılan

Alıntı:
uzmanamele tarafından gönderildi Mesajı Görüntüle
merhaba

alternatif olarak aşağıdaki linkten de yararlanabilirsiniz.
http://www.excel.web.tr/f48/farkly-k...me-t88504.html
Benim yapmaya çalıştığım işlemle bu linkteki işlem arasında küçük bir fark var ve bunu aşamıyorum.

Benim dosyamdaki sayfada pdf alacağım sayfalar ayarlı olmadığı için öncelikle her sayfayı fit to page 1,1,1, yapmam gerekiyor. Sanırım bunu yaparken 2 tane for ve next kullanırken bir şeyleri yanlış yapıyorum.
figutive Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2010, 14:56   #10
figutive
 
Giriş: 20/06/2007
Şehir: istanbul
Mesaj: 19
Excel Vers. ve Dili:
excel 2007
Varsayılan

Alıntı:
halit3 tarafından gönderildi Mesajı Görüntüle
şimdi iş yerindeyim buradaki pc de ofis2003 kurulu deneme imkanım olmadı bu kod ofis2007 de çalışıyor

bunu denermisiniz.



ayrıca kodun ofis2007 de çalışması için aşağıdaki linkdeki eklentiyi yüklemeniz gerekiyor.

http://www.microsoft.com/downloads/d...displayLang=tr
Merhabalar

Teşekkürler. Bu kod işe yaradı ancak bu defada sayfaları tek sayfaya sıkıştırmadığı için pdf sayfa formatları bozuk geliyor.

Düzeltme: teşekkürler. Sayfa sorununuda hallettim. Emek veren herkese çok çok teşekkürler.
Ellerinize sağlık
figutive Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 21:44


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden