Dosya Köprüleme

[onurbeyaz]

Merhaba daha önce sitede bulduğum dosya köpürüleme işlemleri yapılmış excel dosyası var çok işime yarıyor ama geliştirmek için şunları istiyorum acaba olabilir mi?
1.sorum başlata tıkladıktan sonra dosya yolu sabit yapılabilir mi?(her seferinde seçmek istemiyorum
2.sorum ise başlat dosya yolu seçtikten sonra başlat komutu kayboluyor kenarda dursun tekrar dosyama pdf eklediğimde tekrar başlat dediğimde yeni pdflere köprüleme yapsın istiyorum acaba mümkün mü destekleriniz için şimdiden çok teşekkür ederim,

 

[Korhan Ayhan]

Kullandığınız kodda klasör seçme aslında yok.

Inputbox ile sizin yazmanız bekleniyor. Fakat default olarak "C" sürücüsü tanımlanmış.

BaslangicKlasor = Application.InputBox(prompt:="Arama yapılacak klasör yolunu girin" & vbCrLf & "Örneğin" & vbCrLf & "C:\", Title:="Klasör belirt", Default:="C:\")

Bold yere müdahale ederek düzenleyebilirsiniz.

Ama siz Inputbox hiç gelmesin diyorsanız ilgili satırı aşağıdaki gibi düzenleyin. Adres satırını kendinize göre düzenlersiniz.

BaslangicKlasor = "C:\Belgelerim\Yedek\"

İkinci sorunuza gelirsek bu komutları Userform üzerinden kullanırsanız formu kapatmadan yeniden işlem yaptırabilirsiniz.

 

[Korhan Ayhan]

Siz sadece PDF dosyalarıyla mı işlem yapmak istiyorsunuz?

 

[onurbeyaz]

Siz sadece PDF dosyalarıyla mı işlem yapmak istiyorsunuz?

Merhaba Korhan Bey asıl amacım şu ben muhasebeciyim E-fatura ekranımızı göremeyen kişilere pdfleri indirip haftalık dosya içerisine alıp bu sistemle sıralamak istiyorum şuan önceliğim pdf için tabi altarnatifli yapılabilirse oda güzel ve kullanışlı olur

 

[Korhan Ayhan]

Paylaştığınız dosyada aşağıdaki koşul ile belirli uzantılar listelenmeye çalışılmış.

If Tmp = "PNG" Or Tmp = "MP3" Or "JPG" Or "JPEG" Then

Fakat yazım hatasından dolayı tüm uzantıları listeliyor.

Ekli dosyada B1 hücresine işlem yapmak istediğiniz klasörü yazdıktan sora butona tıkladığınızda karşınıza form gelecektir. Bu formdaki butona tıkladığınızda ise klasörde PDF dosyası varsa yeni bir excel dosyasına listeleme yapılacaktır.

Form ekranın sağ üst köşesinde açık duracaktır.

 

[onurbeyaz]

Paylaştığınız dosyada aşağıdaki koşul ile belirli uzantılar listelenmeye çalışılmış.

If Tmp = "PNG" Or Tmp = "MP3" Or "JPG" Or "JPEG" Then

Fakat yazım hatasından dolayı tüm uzantıları listeliyor.

Ekli dosyada B1 hücresine işlem yapmak istediğiniz klasörü yazdıktan sora butona tıkladığınızda karşınıza form gelecektir. Bu formdaki butona tıkladığınızda ise klasörde PDF dosyası varsa yeni bir excel dosyasına listeleme yapılacaktır.

Form ekranın sağ üst köşesinde açık duracaktır.

Korhan Bey çok güzel ve gayet kullanışlı olmuş tekrar elinize Emeğinize sağlık,
Geliştirmek amaçlı birkaç sorum daha olacak olabilir mi olamaz mı tam olarak bilmiyorum Benim asıl amacım şirkette E-fatura portalın dan bir şey anlamayan kişiler var bende onlara gelen hizmet ve mal faturalarını haftalık portalden indirip şirket ortak ağ üzerindeki dosyadan dosya adresi bildirerek her hafta faturaları yükleyeceğim, köpürüleme yapılan excelin yanınada başka bir sutun açıp onların o fatura hakkında ki yorumlarını alacağım ona göre faturaları kayıtlara alacağım, aynı isimde pdf yüklenirse sistem aynısından olanı mükerrer diyerek listelemese olur mu acaba?

 

[Korhan Ayhan]

Aynı isimde PDF nereye yükleniyor?

Örnek vererek açıklarsanız daha sağlıklı ilerleriz.

 

[onurbeyaz]

Aynı isimde PDF nereye yükleniyor?

Örnek vererek açıklarsanız daha sağlıklı ilerleriz.

E-fatura portalından indir dediğimde indirdiğim PDF adı diyelim ki MB202000000658- Ben sonraki haftalar tekrar indir dediğimde aynı dosya içine ineceği için pdf aynı numaralı seriyle mükerrer olur listede boşuna yer kaplaya bilir,

 

[Korhan Ayhan]

İki tane dosyaya aynı ismi veremezsiniz. Windows uyarı vererek sizin onayınızla sonuna ek yapar.

 

[yunus788]

Paylaştığınız dosyada aşağıdaki koşul ile belirli uzantılar listelenmeye çalışılmış.

If Tmp = "PNG" Or Tmp = "MP3" Or "JPG" Or "JPEG" Then

Fakat yazım hatasından dolayı tüm uzantıları listeliyor.

Ekli dosyada B1 hücresine işlem yapmak istediğiniz klasörü yazdıktan sora butona tıkladığınızda karşınıza form gelecektir. Bu formdaki butona tıkladığınızda ise klasörde PDF dosyası varsa yeni bir excel dosyasına listeleme yapılacaktır.

Form ekranın sağ üst köşesinde açık duracaktır.

Değerli bir çalışma olmuş teşekkürler.

 

[c_235]

Paylaştığınız dosyada aşağıdaki koşul ile belirli uzantılar listelenmeye çalışılmış.

If Tmp = "PNG" Or Tmp = "MP3" Or "JPG" Or "JPEG" Then

Fakat yazım hatasından dolayı tüm uzantıları listeliyor.

Ekli dosyada B1 hücresine işlem yapmak istediğiniz klasörü yazdıktan sora butona tıkladığınızda karşınıza form gelecektir. Bu formdaki butona tıkladığınızda ise klasörde PDF dosyası varsa yeni bir excel dosyasına listeleme yapılacaktır.

Form ekranın sağ üst köşesinde açık duracaktır.

Koray bey değerli çalışmanız için teşekkürler.