Klasördeki PDF Belgelerin Listedeki Sırayla Çıktısını Alma

Ömer BARAN

• 29 Şub 2020

• #2

Merhaba Sayın @mertatakan_3838 .

Yazdırılacak belge isimlerinin standart olduğu anlaşılıyor doğru mudur?
Peki bu belgelerin uzantıları da belli midir (*.xlsx, *.xlsm gibi) ?
Belgelerde birden fazla sayfa var mıdır? Evet ise tüm sayfalar mı yazdırılacak?

Biraz detay verirseniz iyi olur sanırım.

 

Oyla 0 Olumsuz oyla

mertatakan3838

• 29 Şub 2020

• #3

Ömer hocam belgeler TC kimlik numaraları ile isimlendirilmiş PDF uzantılı evraklardir. Evet bazılarında sayfa sayısı birden fazladir ve tüm sayfalar yazdirilacak

 

Oyla 0 Olumsuz oyla

Ömer BARAN

• 1 Mar 2020

• #4

Sayın @mertatakan_3838 , aşağıdaki kod ile istediğinizin olması lazım.

Kodu, TC Kimlik numarası listesinin bulunduğu sayfanın kod bölümüne yapıştırın.
Listenin A2 hücresinden itibaren (1'inci satır başlık diye düşündüm) A sütununda olduğu varsayıldı.
Listenizde 12345678901.pdf gibi TC Kimlik numarasından sonra dosya uzantısı yazılıysa,
kodda kırmızı renklendirdiğim kısmı silin.

VBA:

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

 

Oyla 0 Olumsuz oyla

mertatakan3838

• 1 Mar 2020

• #5

Pazartesi iş yerinde deneyim size dönüş yapacağım Ömer hocam inşallah olur benim işimi çok kolaylaştıracak teşekkür ederim.

 

Oyla 0 Olumsuz oyla

mertatakan3838

• 1 Mar 2020

• #6

Klasörün içindeki evraklar 12345678901.pdf şeklinde bu duruma göre makrodaki kırmızı renkle belirttiğiniz yeri silecekmiyim Ömer hocam

 

Oyla 0 Olumsuz oyla

mertatakan3838

• 2 Mar 2020

• #7

Makroyu denedim Ömer hocam makro herhangi bir tepki vermiyor hatada vermiyor ancak verileri yazdirmiyor.

 

Oyla 0 Olumsuz oyla

AhmetRasim

• 2 Mar 2020

• #8

Merhabalar Sn. @mertatakan3838
Makroyu denediğiniz dosyanın Örnek Halini paylaşır mısınız?

 

Oyla 0 Olumsuz oyla

mertatakan3838

• 2 Mar 2020

• #9

Örnek dosya.

 

Ekli dosyalar

• DENEME.xlsx

  9.5 KB · Görüntüleme: 4

Oyla 0 Olumsuz oyla

mertatakan3838

• 2 Mar 2020

• #10

Makro bu şekilde olursa yazdırıyor ancak bu seferde A sutunundaki sıraya uymuyor karışık cikariyor

VBA:

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

 

Oyla 0 Olumsuz oyla

tahsinanarat

• 2 Mar 2020

• #11

VBA:

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

Sn. @Ömer BARAN hocam 4 nolu mesajınızdaki kodunuzu yukarıdaki şekilde çalıştırdık, bire bir eşleşme durumunda A sutununda bulunan (eşleşenleri) yazdırabiliyoruz, ancak ben ile başlayan şeklinde yazdırmak istiyorum, Bu konuda bana yardımcı olabilir misiniz. Teşekkürler.

 

Oyla 0 Olumsuz oyla

Ömer BARAN

• 2 Mar 2020

• #12

Sayın @mertatakan3838,
Bilgisayarıma bağlı yazıcı olmadığından deneme şansım yok.
Kodu denediğimde, belgenin yazdırma kuyruğuna alındığını gördüğüm için sorun yaşanmayacağını düşünerek cevabı göndermiştim.
İsterseniz; kodun ilgili kısmını bir de aşağıdaki gibi değiştirerek deneyin. (5 saniye bekleme ekledim, süreyi değiştirerek de denersiniz.)

VBA:

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

Merhaba Sayın @tahsinanarat
Kodda ilgili satırı aşağıdaki gibi (.pdf ibaresinden önce çift tırnağın sağına YILDIZ karakteri eklenecek) değiştirerek dener misiniz?
Ayrıca If satırının sonundaki _ (alt tire) işaretini silip, wait satırından sonra da End If diye bir satır ekleyin.

belge = "C:\AYRILANLAR\" & Cells(sat, 1).Text & "*.pdf"

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

 

Oyla 0 Olumsuz oyla

Çözüm

tahsinanarat

• 2 Mar 2020

• #13

VBA:

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

Sn. @Ömer BARAN Hocam dediğiniz gibi yukarıda olduğu gibi yaptım, ancak sonuç alamadım.

 

Oyla 0 Olumsuz oyla

mertatakan3838

• 24 Haz 2024

• #14

Teşekkürler Ömer hocam 5 sn işi işe yaradı çok teşekkür ederim.

 

Oyla 0 Olumsuz oyla