Birden fazla veriyi aynı anda ayrı ayrı arama

[altan147]

ben aynı anda birden fazla veriyi bütün sayfalarda aratmak istiyorum. Eki incelerseniz sorunumu daha iyi anlarsınız sanırım

 

[N.Ziya Hiçdurmaz]

Aratılacak veriler her sayfada değişik sütunlarda olması işi biraz karıştırıyor.

 

[xxcell]

Ben şöyle bir örnek yaptım, ama kendimde fazla beğenmedim. :mrgreen:
Belki fikir verir.

 

[Korhan Ayhan]

Selamlar,

Veriler farklı sayfalarda mevcutsa hangi bilgi "arama" sayfasına yazdırılacak.

 

[veyselemre]

Scripting.Dictionary kullanarak bir çözüm hazırladım, umarım doğru çalışıyordur.
Scripting.Dictionary mükemmel bir script. Forumda ilk kez kullanılıyor sanırım, şimdiye kadar kullanılmaması çok büyük bir kayıp.

 

[Merhum İdris SERDAR]

Scripting.Dictionary kullanarak bir çözüm hazırladım, umarım doğru çalışıyordur.
Scripting.Dictionary mükemmel bir script. Forumda ilk kez kullanılıyor sanırım, şimdiye kadar kullanılmaması çok büyük bir kayıp.

Sayın veyselemre,

Bunu hangi programla açacağız?

Ben açamadım.

..

 

[veyselemre]

Sayın veyselemre,

Bunu hangi programla açacağız?

Ben açamadım.

..

Kusura Bakmayın uzantısı zip olacaktı, dosyayı güncelliyorum

Edit: dosya ismi uzun olduğu için uzantısı gözükmüyor forumda, bunu da öğrenmiş olduk,
dosya ismini kısaltıp (bu mesajda) yeniden gönderiyorum.

 

[altan147]

Kusura bakmayın bir süredir çok yoğun olduğum için foruma giremedim. Sayın veyselemre makronun içeriğini anlayamasamda işe yaradığını test ettim hemde çok kısa sürelerde yanıt veriyor. yanlız bir şey daha soracağım bu aramayı kısmi olarakta yapamazmı yani ctrl + f komutundaki gibi hücrenin içeriğinide araması mümkün değilmi?

 

[Korhan Ayhan]

Selamlar,

Sn. veyselemre beyin kullanmış olduğu yöntem daha hızlı listelemekte fakat alternatif olması açısından aşağıdaki koduda kullanabilirsiniz.

Sub ARA_BUL_LİSTELE()
    Set SA = Sheets("arama")
    Set WF = WorksheetFunction
    SA.[B:IV].ClearContents
    For X = 1 To SA.[A65536].End(3).Row
    For Y = 1 To Sheets.Count - 1
    If WF.CountIf(Sheets(Y).[A:Z], "*" & SA.Cells(X, 1) & "*") > 0 Then
    SATIR = Sheets(Y).Cells.Find(SA.Cells(X, 1), LookAt:=xlPart).Row
    SÜTUN = SA.Cells(X, 256).End(xlToLeft).Column + 1
    SA.Cells(X, SÜTUN) = Sheets(Y).Cells(SATIR, 1)
    End If: Next: Next
    Set SA = Nothing
    Set WF = Nothing
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[ASMET67]

Selamlar.
Benimde buna benze r bir sorunum var. Biraz varlıklı.
Sn. veyselemre beyin çalışmasını buna nasıl uyarlayabiliriz.


Hazırlamakta olduğum stok programı için takıldığım bir konuvar.

Excel dosyamda giris ve stok olarak iki sayfa var.

Giriş sayfası sutun başlıkları.
A = ürün No
B = ürün adı
C = sim
D = Adet

Stok sayfası
A = ürün No
B = ürün adı
C = sim
D = Adet


Yapmak istediğim.
1- Giriş sayfasındaki ürünleri stok sayfasında arayacak.
2- Bulduğu ürün için stok sayfasındaki D sutununundaki değer ile Giriş sayafasının D sutundaki değri toplacak ve D sutununa yazacak.

3- Giriş sayfasındaki ürün stok sayfasında yok ise stok sayfasının enson satırına ekleyecek.
Not. Giriş sayfasında aynı üründen birden fazla bulunabiliyor.

Umarımki sizi fazla uğraştıracak bil çalışma değildir.

 

[Korhan Ayhan]

Selamlar,

Sn. ASMET67,

Örnek bir dosya eklermisiniz.

 

[altan147]

Sayın COST_CONTROL
Sizin verdiğiniz kodda çok işlevsel fakat kullanacaklar için bir bilgi vermek gerekiyor sanırım çünkü son sayfadakileri tam olarak taramıyor.yani verinin aratılacağı sayfalardan sıra olarak sonuncu sayfadakileri çıkarmıyor. yada aranılan verinin aynısını veriyor bu yüzden en sona boş bi sayfa eklemek işe yarayabiliyor.
Yalnız Sayın veyselemre nin verdiği kodda hücrenin içeriğini arayacak şekilde düzenlenemezmi acaba? Zira o daha hızlı tarıyor sanırım.

 

[ASMET67]

Örnek çalışma ektedir.
Yardımlarınız için teşekkürler.

http://www.2shared.com/file/1967690/6d486fb9/dene.html

 

[Korhan Ayhan]

Selamlar,

Sn. altan147,

Benim önerdiğim kodda "arama" isimli sayfa en sonda olmalı. Bu şekilde çalıştırdığınızda bir problem çıkarmayacaktır.

 

[Korhan Ayhan]

Selamlar,

Sn. ASMET67,

Eklediğiniz dosyadaki bilgiler farklı. Sorunuzun 3. kısmı için hangi bilgiler nereye aktarılacak.

 

[ASMET67]

Hocam İrsaliye sayfasında bir sutun silinmiş onu ekledim.
Aynı bilgiler alnı sutunlara denk gelecek.

 

[altan147]

Sayın COST_CONTROL
Çok teşekkür ederim. Yalnız size bir sorum daha olacak arama sayfasına arattıracağım verileri başka bir tablodan kopyalıyorum fakat tabloda çok mükerrer kayıt var. bir kısayolla mükerrer kayıtları silmem veya direk mükerrer kayıtlar olmadan kopyalamam mümkünmü?

 

[altan147]

Forumda bir çözüm buldum. Yardımlarınız için çok teşekkür ederim.

 

[altan147]

Yalnız bu kod 20 dakikadır veri arıyor Sayın veyselemre nin gönderdiği kodda aynı şekilde hücre içeriğini taratacak şekilde değiştirilemezmi acaba.

 

[ASMET67]

Sayın COST_CONTROL
Dosyayı inceleye bildiniz mi?