Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 24-07-2013, 13:34   #1
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 280
Excel Vers. ve Dili:
office 2010
Varsayılan Bir klasör içerisin de çoklu arama yapmak

merhabalar ,

bir klasörüm içerin de 100 lerce excel dosyam var ve bu dosyaların içerin de malzeme nosu diye bir kavram var ben bazen 10 adet malzeme kodu aramam gerekiyor mecburen tek tek arayıp buluyorum .çoklu arama nasıl yapabilirim yardımcı olabilir misiniz.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-07-2013, 16:13   #2
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 280
Excel Vers. ve Dili:
office 2010
Varsayılan

ilgilenebilir iseniz çok makbule geçecek benim için.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-08-2013, 16:39   #3
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 280
Excel Vers. ve Dili:
office 2010
Varsayılan

üstadlar bu konuda yardımcı olabilir iseniz çok makbule geçecek.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-08-2013, 16:41   #4
omerceri
 
omerceri kullanıcısının avatarı
 
Giriş: 06/02/2005
Şehir: Gökova/Akyaka
Mesaj: 1,474
Varsayılan

Arama yapılacak dosya yapısını görmek için örnek dosya eklerseniz, daha kolay yardım alırsınız.
__________________
(Excel 2003 - Türkçe)
omerceri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-08-2013, 18:21   #5
nikferli
 
Giriş: 22/11/2006
Mesaj: 3
Excel Vers. ve Dili:
xp turkce
Varsayılan windows aramayı kullan

windows arama programı kullan.
indeks oluştursun. sonra aradığın ismi bütün dosyalarda bulur.
nikferli Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-08-2013, 02:52   #6
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,640
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

Dosyayı masaüstüne indirin.
Dosyayı açın butona tıklayın.
İlgili klasörü seçin.
Aramak istediğiniz kodu yazın.
Arkanıza yaslanıp işlemin bitmesini bekleyin.

Kullanılan kod;

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

Sub KLASORDE_COKLU_KOD_ARAMA()
    Dim Klasor As Object, Dosya As String, Aranan  As Variant
    Dim Hedef_Kitap As Workbook, Sayfa As Worksheet, Satir As Long
    Dim K1 As Workbook, S1 As Worksheet, Bul As Range, Adres As String
    
    Set K1 = ThisWorkbook
    Set S1 = K1.Sheets("Sayfa1")
    
    Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Klasör seçiniz !", 1)
    If Klasor Is Nothing Then Exit Sub
    
    Aranan = InputBox("Lütfen aradığınız kodu giriniz...", "Kod arama işlemi...")
    If Aranan = False Or Aranan = "" Then Exit Sub
    
    Application.ScreenUpdating = False
    
    S1.Range("A2:D" & Rows.Count).Clear
    Dosya = Dir(Klasor.Self.Path & "\*.*")
    
    While Dosya <> ""
        Set Hedef_Kitap = Workbooks.Open(Klasor.Self.Path & "\" & Dosya, False, False)
        DoEvents
        For Each Sayfa In Hedef_Kitap.Worksheets
            Set Bul = Sayfa.Cells.Find(Aranan, , , xlWhole)
            If Not Bul Is Nothing Then
            Adres = Bul.Address
                Do
                    Satir = S1.Cells(Rows.Count, 1).End(3).Row + 1
                    S1.Cells(Satir, 1) = Dosya
                    S1.Cells(Satir, 2) = Sayfa.Name
                    S1.Cells(Satir, 3) = Bul.Address(False, False)
                    S1.Hyperlinks.Add Anchor:=S1.Cells(Satir, 4), _
                    Address:=Klasor.Self.Path & "\" & Dosya, SubAddress:=Sayfa.Name & "!" & S1.Cells(Satir, 3), _
                    TextToDisplay:="Ulaşmak için tıklayınız..."
                    Set Bul = Sayfa.Cells.FindNext(Bul)
                Loop While Not Bul Is Nothing And Bul.Address <> Adres
            End If
        Next
        Hedef_Kitap.Close 0
        Dosya = Dir
    Wend
    
    S1.Range("A:D").EntireColumn.AutoFit
    
    Set Bul = Nothing
    Set K1 = Nothing
    Set S1 = Nothing
    Set Klasor = Nothing

    Application.ScreenUpdating = True

    If Satir > 1 Then
        MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Else
        MsgBox Aranan & " numaralı kod bulunamamıştır!", vbCritical
    End If
End Sub
Eklenmiş Dosyalar
Dosya Türü: xlsm ÖRNEK.xlsm (22.0 KB, 68 Görüntülenme)
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-01-2015, 09:57   #7
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 280
Excel Vers. ve Dili:
office 2010
Varsayılan

Sayın Korhan Bey ,

biliyorum konu hakkında dönüşüm çok geç oldu fakat sanırım email hatıraltıcısı bilgi iletmemiş eski konularımı ararken rastladım ,öncelikle ilginiz için çok tesşekkür ederim ,

rica etsem örnek dosyayı başka bir paylaşım serverine ekleyebilir misiniz.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-01-2015, 10:19   #8
feridici_genc
 
feridici_genc kullanıcısının avatarı
 
Giriş: 28/02/2011
Mesaj: 602
Excel Vers. ve Dili:
2010 - Türkçe - Win10 x64
Varsayılan

buyrun,
http://s3.dosya.tc/server30/CHCcMT/_RNEK.rar.html
__________________
Yeni hayat, Yeni sayfa, Yeni yaşam.
feridici_genc Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-01-2015, 17:08   #9
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 280
Excel Vers. ve Dili:
office 2010
Varsayılan

sayın feridici_genc ilginiz için teşekkürler.

Sayın korhan Bey
makro çok güzel çalışıyor fakat sadece gösterilen klasörde arama yapıyor ,o klasöre ait bir alt klasör var ise hata veriyor birde aşağıda resimde bahsetmek istediğim gibi klasör içerisinde excelden farklı bir dosya türü olursa aşağıdaki debug hatasını veriyor.

http://www.resimupload.net.tr/image.php?di=TQ6T

rica etsem butona tıkladığımız da klasöre göz at dediğimiz de bilgisayarımı komple gösterdiğim de referans nosunu yazdığımızda excelleri bulacak şekilde düzenleyeilmeniz mümkün müdür.

amacım ,örneğin bir refarans nosunun kodu değiştiğinde sistemde bu bana bilgi olarak geliyor fakat bilgisayarımda bulunan excellerin içindeki refaransların da değiştirmem gerekiyoryardımcı olabilirseniz çok mkbule geçecek iyi günler.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-01-2015, 14:25   #10
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 280
Excel Vers. ve Dili:
office 2010
Varsayılan

Korhan Bey rica etsem inceleyebilme imkanınız var mıdır
mustilem23 Ç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 15:42


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-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden