Birden Çok sayfada veri bulma Düşeyara

[ecaparo]

Merhabalar arkadaşlar
aşağıdaki gibi bir formulumuz var veriyi 17 sayfada aramak istiyorum fakat veri çok olunca bilgisayar kilitleniyor bu formulu makro olarak nasıl yaparız
aranan değer 60000 adet aranacak yer 17 adet sayfa içinde 900000 adet veri içinde

=DÜŞEYARA(J2;DOLAYLI("'"&İNDİS({"a"\"b"\"c"\"e"\"f"\"g"\"h"\"ı"\"i"\"j"\"k"\"l"\"m"\"n"\"o"\"ö"\"p"};KAÇINCI(1;--(
EĞERSAY(DOLAYLI("'"&{"a"\"b"\"c"\"e"\"f"\"g"\"h"\"ı"\"i"\"j"\"k"\"l"\"m"\"n"\"o"\"ö"\"p"}&"'!A2:C1039998");J2)>0);0))&"'!
A2:C1039998");2;0)

 

[ecaparo]

50.000 adet veriyi 17 adet sayfada 900.000 adet içinden bulmak 5 saat sürüyor

 

[ecaparo]

lütfen arkadaşlar

 

[Korhan Ayhan]

Küçük bir örnek dosya eklerseniz çözüm bulmanız kolaylaşır.

 

[ecaparo]

https://yadi.sk/d/xkCFo5O9tBALa
örnek dosya linkte

 

[ecaparo]

Kimse yokmu ?

 

[Korhan Ayhan]

Deneyiniz.

Sub SAYFALARDA_BUL()
    Dim X As Byte, Y As Long, Sayfa(), Adres As Range, S1 As Worksheet, Bul As Range, Son As Long
    
    Set S1 = Sheets("Sheet1")
    Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
    
    Sayfa = Array("a", "b", "c", "e", "f", "g", "h", "ı", "i", "j", "k", "l", "m", "n", "o", "ö", "p")
    
    For Y = 2 To Son
        For X = LBound(Sayfa) To UBound(Sayfa)
            Set Adres = Sheets(Sayfa(X)).Range("A:A")
            Set Bul = Adres.Find(S1.Cells(Y, "J"), , , xlWhole)
            If Not Bul Is Nothing Then
                S1.Cells(Y, "L") = Bul.Offset(0, 1)
                Exit For
            End If
        Next
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ecaparo]

Teşekkürler Korhan Bey
Fakat çok uzun sürüyor daha bitmedi bunun başka kolayı yokmu

 

[alicimri]

Eğer bir defalık bir iş ise makronun bitmesini sabırla bekleyin. Eğer devamlı tekrarlanan bir iş ise MS Access'de çözüm üretile bilinir.

 

[bogerman]

arkadaşlar, yaklaşık 200 sayfada, her birinde aynı satır ve sütuna denk gelmek üzere veri çekmem gerekiyor başka bir çalışma kitabından. açıkçası excel'de makro yazmayı henüz bilmiyorum. bir kez derme çatma denemiştim yani henüz başlangıç seviyesi denen seviyede dahi değilim. ancak bu işi acilen yetiştirmem gerekiyor. öbür türlü yetişmeyecek. lütfen yardımcı olun.

 

[YUSUF44]

arkadaşlar, yaklaşık 200 sayfada, her birinde aynı satır ve sütuna denk gelmek üzere veri çekmem gerekiyor başka bir çalışma kitabından. açıkçası excel'de makro yazmayı henüz bilmiyorum. bir kez derme çatma denemiştim yani henüz başlangıç seviyesi denen seviyede dahi değilim. ancak bu işi acilen yetiştirmem gerekiyor. öbür türlü yetişmeyecek. lütfen yardımcı olun.

Foruma hoşgeldiniz. sorularınızı örnek dosya ile desteklerseniz daha iyi olur. Dosyanızı dosya yükleme sitelerinden birine yükleyip burada paylaşabilirsiniz. Örnek dosyanız gerçek dosyanızla aynı olsun ve içerisinde tam olarak ne istediğinizi açık bir şekilde belirtin ve birkaç örnek gösterin.