Soru Pdf Dosyasından Veri Alma

[okan32]

KLASÖRDEKİ PDF DOSYASINDAN RENKLİ İŞARETLENEN YERLERİ TABLODAKİ İLGİLİ HÜCRELERE ALDIRMAK İSTİYORUM.
ÇOK UĞRAŞTIM AMA YAPAMADIM. YARDIMLARINIZ İÇİN ŞİMDİDEN ÇOK TEŞEKKÜR EDERİM.

Not: Kişisel veri içeren dosyanız tarafımdan silinmiştir. (Korhan AYHAN)

 

[okan32]

Konu günceldir

 

[halit3]

Kodlar birazcık uzun oldu ama sonucu veriyor.bu rar dosyasını çıkart hepside aynı klasörün içinde olsun ve dosyayı aç kodu çalıştır.

 

[halit3]

Kod evdeki bilgisayarda çalıştı iş yerindeki bilgisayarda çalışmadı aşağıdaki kodun kırmızı yazan yeri 17 yapıp deneyiniz.

For r = 16 To Worksheets("rapor").Cells(Rows.Count, "b").End(3).Row Step 5

 

[okan32]

Halit hocam bende çalıştı. Çok Teşekkür ederim. Gerçekten bir harikasınız.....................

 

[okan32]

Halit hocam ben pdf dosyasındaki başka kısımlarıda excel dosyama aldırmak istesem kodların neresinde düzenleme yapmam gerekiyor. kısa bir bilgi verirseniz sevinirim.

 

[halit3]

Halit hocam ben pdf dosyasındaki başka kısımlarıda excel dosyama aldırmak istesem kodların neresinde düzenleme yapmam gerekiyor. kısa bir bilgi verirseniz sevinirim.

Veriler rapor sayfasında kodlar ise bu bölümden verileri aktarıyor.

son = Worksheets("veri").Cells(Rows.Count, "b").End(3).Row + 1
For r = 16 To Worksheets("rapor").Cells(Rows.Count, "b").End(3).Row Step 5
Worksheets("veri").Cells(son, 2).Value = Worksheets("rapor").Cells(r + 2, 2).Value
ver2 = Worksheets("rapor").Cells(r, 3).Value
deg4 = Split(ver2, "-")
Worksheets("veri").Cells(son, 3).Value = deg4(1)
ver = Worksheets("rapor").Cells(r + 3, 4).Value
deg3 = Split(ver, "-")
Worksheets("veri").Cells(son, 4).Value = deg3(0)
Worksheets("veri").Cells(son, 5).Value = deg3(1)
Worksheets("veri").Cells(son, 6).Value = Worksheets("rapor").Cells(r + 4, 10).Value
son = son + 1
Next r

 

[okan32]

Teşekkür ederim Halit hocam bir sorum daha olacaktı. Ben örnek olarak PDF dosyasını 1sayfa yüklemiştim. Halbuki 4 sayfa ve yaklaşık 40 personel var bu şekilde ben pdf dosyasının tamamında demedim ama yine 4 kişiyi getirdi. Bu yüzden PDF dosyasını excele aktarmadaki kodlarda nasıl bir düzenleme yapabilirimki personelin hepsini aktarabileyim.Biliyorum dizide çok uğraştırdım.kusuruma bakmayın hocam.

 

[halit3]

bir tane 4 sayfalık örnek dosya ekle bakalım.

 

[okan32]

Şimdi evdeyim ve teldn yazıyorum. Yarın inşaallah göndereyim hocam yalnız personelin tüm bilgileri var eğer verirseniz mail adresinize göndersem hocam.

 

[Haluk]

Okan Bey;

1 No'lu mesajınız ekindeki PDF dosyasında bazı kişisel verileri gizlemeye çalışmışsınız ama hepsi alınabiliyor..... (Kurum adı, Kurum kodu, personel adı-soyadı, kurum sicil, TC Kimlik No ..... vb)

Söz konusu dosyayı forumdan kaldırmanız iyi olur ....

.

 

[okan32]

Nasıl kaldırabilir im haluk hocam

 

[spacebar]

konu ilgimi çekti. benzer uygulama benim için de gerekli. acaba örnek bir pdf dosya ve kodların olduğu excel dosyası eklenebilir mi.
teşekkürler...

 

[Haluk]

Nasıl kaldırabilir im haluk hocam

Moderatörler gereğini yapmış görünüyor.... Onlara da teşekkürler.

.

 

[tahsinanarat]

Ben Halit Hocamın verdiği kodları göremedim. Kaldırılmış sanırım.

 

[okan32]

Çok Teşekkürler bizim için her şeyi düşünüyorlar....

 

[Tevfik_Kursun]

Sayın Halit3 Hocam,
Office 2010 64bit kulanımında hata veriyor
Saygılarımla