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 29-08-2010, 11:16   #1
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan farklı kaydetten PDF olarak kaydetme

merhaba arkadaşlar,
office 2007 gerekli güncellemeleri yapınca excel ve word den farklı kaydet yaparak PDF olarak kaydedilebiliyor.

ancak şöyle bir işlem yaptırmamız mümkün mü;
sayfa2 ye buton ekleyip, sayfa1 de daha önceden belirlediğimiz yazdırma alanını masaüstüne PDF olarak gönderebilirmiyiz.

yardım ve fikirlerinizi bekliyorum.
Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-08-2010, 15:10   #2
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

bu kod işinizi görür mü?

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sayfayi_pdf_kaydet()

'Range("A1:J23").Select Rem isterseniz pdf alanını daha önceden seçebilirsiniz
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\suleyman\Desktop\sayfayi pdf kaydet.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub
not:
kırmızı ile belirtilen satır, pdf sayfasının kaydedileceği adrestir.
__________________
Türk genci, İnkılapların ve rejimin sahibi ve bekçisidir.
Atatürk
uzmanamele Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-08-2010, 17:40   #3
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

Sayın Uzman,
evet sayfaları PDF olarak kaydediyor, teşekürler

konuya makroyu uygulatacağım tabloyu ekledim,
bu tabluyu toplu senet yazdırmak için kullanıyorum.
en fazla 20 tane senet yazdırılabiliyor.

senetlerin yazıları "senetyazı" kitabında
"giriş" kitabında tutar girdiğim senetleri PDF olarak kaydettirebilirmiyiz
örneğin ilk 10 senete giriş yaptım sadece bunları kaydettirmemiz ve PDF ismini "AM14" hücresindeki ismi vermemiz mümkün mü?
Eklenmiş Dosyalar
Dosya Türü: rar senet_seri_son_PDF.rar (81.9 KB, 104 Görüntülenme)
Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-08-2010, 19:19   #4
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

bu kod işinizi görür mü?
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub pdf_senet()
For i = 2 To 133 Step 43
j = j + 1
Sheets("senetyazı").Range("F" & i & ":CZ" & i + 43).Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\home_pc\Desktop\senet pdf" & j & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
Next
End Sub
not:
excel2007 için kod , excel2003 de çalışmaz.
__________________
Türk genci, İnkılapların ve rejimin sahibi ve bekçisidir.
Atatürk
uzmanamele Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-08-2010, 19:37   #5
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

" run-time error '1004':
Range sınıfının select yönetimi başarısız "

diye "microsoft visual basic" hatası verdi.

hataya gidince

"Sheets("senetyazı").Range("F" & i & ":CZ" & i + 43).Select" satırını sarı ile boyamıştı,
sorun nedir sizce
Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-08-2010, 22:53   #6
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

Alıntı:
huseyincoban tarafından gönderildi Mesajı Görüntüle
" run-time error '1004':
Range sınıfının select yönetimi başarısız "

diye "microsoft visual basic" hatası verdi.

hataya gidince

"Sheets("senetyazı").Range("F" & i & ":CZ" & i + 43).Select" satırını sarı ile boyamıştı,
sorun nedir sizce
merhaba
örnek dosyanızda kod çalışıyor.
başka dosyada denemişseniz ilgili sayfanın adını kontrol ediniz.
__________________
Türk genci, İnkılapların ve rejimin sahibi ve bekçisidir.
Atatürk
uzmanamele Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-08-2010, 13:15   #7
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

hatanın sebebi butonu giriş sayfasına eklediğimizden kaynaklanıyor, pdf e çevrilecek sayfaya ekleyip çalıştırdığımızda sorun yok ancak, ilk 4 seneti çeviriyor ve hepsini ayrı bi pdf dosyası yapıyor, diğer senetleri pdf yapmıyor.
Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-08-2010, 15:22   #8
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

Alıntı:
huseyincoban tarafından gönderildi Mesajı Görüntüle
hatanın sebebi butonu giriş sayfasına eklediğimizden kaynaklanıyor, pdf e çevrilecek sayfaya ekleyip çalıştırdığımızda sorun yok ancak, ilk 4 seneti çeviriyor ve hepsini ayrı bi pdf dosyası yapıyor, diğer senetleri pdf yapmıyor.


merhaba
For i = 2 To 133 Step 43
buraya son satır nosunu yazın.
senet pdf" & j & ".pdf
senet pdf1,senet pdf2... diye ad verir, dosya adlarını değiştirebilirsiniz.
__________________
Türk genci, İnkılapların ve rejimin sahibi ve bekçisidir.
Atatürk
uzmanamele Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 20:17   #9
cem116
 
Giriş: 12/11/2010
Şehir: istanbul
Mesaj: 39
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

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

bu kod işinizi görür mü?

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sayfayi_pdf_kaydet()

'Range("A1:J23").Select Rem isterseniz pdf alanını daha önceden seçebilirsiniz
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\suleyman\Desktop\sayfayi pdf kaydet.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub
not:
kırmızı ile belirtilen satır, pdf sayfasının kaydedileceği adrestir.
iyi akşamlar, forumda neredeyse okumadığım ve aramadığım yer kalmadı ancak benim sorunuma çözüm olacak bir paylaşıma denk gelemedim. Şöyle ki yaklaşık 20 sayfadan oluşan bir excel çalışma kitabında, pdf olarak kaydetmek için makroya ihtiyacım var. Ancak benim bulduğum tüm makrolar hücre seçmeyi baz alarak çalışıyor. Benim ise sayfa seçmeye ihtiyacım var. Amatör olduğum için de o makroları istediğim şekle dönüştüremedim. Acaba örneğin bir buton aracılığı ile pdf olarak kaydetmeden önce hangi sayfaları pdf olarak kaydeceğimi soran ve buna göre de seçtim sayfa ya da sayfaları pdf olarak kaydeden bir makro oluşturabilir miyiz? şimdiden teşekkürler.
cem116 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 21:54   #10
cem116
 
Giriş: 12/11/2010
Şehir: istanbul
Mesaj: 39
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

Yardımcı olabilecek kimse var mı acaba ?
cem116 Ç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 13:11


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden