Soru Klasör içindeki excel dosyalarını açmadan arama yapmak

[blackinci]

Merhaba değerli arkadaşlar öncelike kandiliniz mübarek olsun
Ben kısaca başlıkta belirttiğim gibi klasordeki sayfalarda arama yapmak istiyorum Ve istediğim gibi bir ornek buldum fakat eklemek istediğim bir şey var fakat bunu yapamadım kodlar anlamıyorum formül olsa çözebiliyorum
Şimdi aradığımı şu sayfada buldum

Search all workbooks in a folder and sub folders – VBA

This article demonstrates macros that allow you to search for a text string(s) in multiple worksheets and workbooks located in a folder or a subfolder. W

www.get-digital-help.com

Ve çalıştırdım güzel çalışıyor ben buna ek olarak
Aradığı sayfalarda ki C E F G sutunlarini eklesin istiyorum bu konuda yardımcı olursanız çok sevinirim

 

[Korhan Ayhan]

Konu başlığınızda dosyaları açmadan diye belirtmişsiniz. Fakat verdiğiniz linkteki kodlar dosyaları açarak arama yapıyor.

 

[blackinci]

Evet doğru Korhan bey yani demek istediğim ben 300den fazla dosyayı elle açmıyorum o kendisi yapıyor onu yani oda işimi görüyor ha açmadan da mümkünse o daha da güzel olur korhan bey

 

[Korhan Ayhan]

Forumda daha önce benzer konular açılmıştı.

Birden fazla kapalı dosya da arama yapmak

Hocam İyi Akşamlar, Forumda aradım konuları ama benim aradığımı bulamadım. Elimde bir klasör içerisinde çok sayıda excel dosyası bulunmakta. Benim isteğim bu klasör içindeki excel dosyalarından benim kullandığım excel dosyasındaki 1. sütundaki değerleri araması ve hangi dosyada bulursa o...

www.excel.web.tr

Aranan kelime veya sayıyı kapalı dosyalar içerisinde bulma

Merhaba hayırlı geceler. Ekte bir örnek gönderdim. Ağ içerisinde çeşitli klasörler var, bu klasörler içerisinde de 1000'e yakın excel dosyası var, ben bu kapalı dosyalar içerisinde TC veya isim aramak ve bulduğunda da dosyanın adresini almak istiyorum, bu dosyaları tek tek açıp kontrol etmek...

www.excel.web.tr

 

[blackinci]

Bu sayfaları incelemiştim iş yerinde ama örnekleri indiremedigim için anlamayamdim nasıl çalıştığını
kodları da ekleyip denedim onda da başarılı olamadım
Is yerinde tekrar deneme yaparım

 

[Korhan Ayhan]

İlk mesajınızda ki "Aradığı sayfalarda ki C E F G sutunlarini eklesin istiyorum" ifadenizden bu sütunları listelemek istediğinizi anlıyorum.

Sizin paylaştığınız linkteki kodlarda aşağıdaki satırı bulun.

Set c = sht.Cells.FindNext(c)

Hemen üstüne aşağıdaki satırları ekleyip deneyin.

WS.Range("F1").Offset(Lrow, 0).Value = sht.Cells(c.Row, "C")
WS.Range("G1").Offset(Lrow, 0).Value = sht.Cells(c.Row, "E")
WS.Range("H1").Offset(Lrow, 0).Value = sht.Cells(c.Row, "F")
WS.Range("I1").Offset(Lrow, 0).Value = sht.Cells(c.Row, "G")

 

[blackinci]

Korhan bey oldu çok teşekkür ederim yardımlarınız için
eskiden forumlar da rep denen bir puanlama vardı hala varsa puan vermek isterim