Excel de çoklu arama hakkın da .

[mustilem23]

merhabalar,

Elimde 5000 satırlık bir excel var burası benim maliyet listem ,ve bazen tekliflerde üst yönetim maliyetleride görmek istiyor indirim tutarını belirlemek için ,teklifte 20 satır olduğunu düşünürsek tek tek maliyetleri bulmak epey vakit alıyor.

ekte ki örnek dosyamda anlatmaya çalıştım kısaca anlatmak gerekir ise örnek 10 adet satırı bir kerede sorgulama yapıp sonuç listesinde sıralama yaptırtmak istiyorum ve sorgulamada bulunamayanları bulunamadı olarak ayrı hücrede görüntülemek istiyorum yada aynı hücrede farklı renkte de olabilir yardımcı olabilir misiniz teşekkürler.,

Not: arananlar bazen örnek S-3507005011 yada SERVISCILIK, GİBİ Harf içerebiliyor fakat genelde 3507005011 gibi sadece sayılar.

Örnek dosya ,

http://s3.dosya.tc/server9/bbz7rb/ornek_coklu_arama.rar.html

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Dim alan()

Sub buluver()
   Sheets("VERİ").Select
   verisonsatir = Cells(Rows.Count, "A").End(3).Row
   secim = "A2:D" & verisonsatir
   alan = Range(secim)

   Sheets("SONUC").Select
   sonucsonsatir = Cells(Rows.Count, "A").End(3).Row

   secim = "C2:F" & sonucsonsatir
   Range(secim).Select
   Application.CutCopyMode = False
   Selection.ClearContents
   Range("C2").Select
    
   satir = 1
   For i = 2 To sonucsonsatir
     aranan = Cells(i, 1).Value
     buldu = False
     For j = 1 To verisonsatir - 1
       bakilan = alan(j, 1)
       If aranan = bakilan Then
         satir = satir + 1
         Cells(satir, "C").Value = alan(j, 1)
         Cells(satir, "D").Value = alan(j, 2)
         Cells(satir, "E").Value = alan(j, 3)
         Cells(satir, "F").Value = alan(j, 4)
         buldu = True
       End If
     Next
     If buldu Then Cells(i, 2).Value = "Buldu" Else Cells(i, 2).Value = "Bulamadı"
   Next i
      
End Sub

 

[mustilem23]

Asri bey ,yardımlarınız için teşekkürler ,

kod çalışıyor fakat olanı da buldu olarak yazıyor olmayanı da amacım sonuç sayfasına a2 a3 a4 a5 a6 vs sütununa satış malzemesi kodunu yazdığım da alt alt a satırları , veri sayfasın da arayıp bulduklarını buldu yazıp sonuç sayfasına bulduğu satırın tümünü kopyalamasını rica ediyorum(a,b,c,d,e,vs) ,bulunamayanları da bulanamadı dese yeter,


koda göre sonuç
http://s3.dosya.tc/server10/rcvobl/1ornek_coklu_arama.rar.html

 

[Asri]

Asri bey ,yardımlarınız için teşekkürler ,

kod çalışıyor fakat olanı da buldu olarak yazıyor olmayanı da amacım sonuç sayfasına a2 a3 a4 a5 a6 vs sütununa satış malzemesi kodunu yazdığım da alt alt a satırları , veri sayfasın da arayıp bulduklarını buldu yazıp sonuç sayfasına bulduğu satırın tümünü kopyalamasını rica ediyorum(a,b,c,d,e,vs) ,bulunamayanları da bulanamadı dese yeter,


koda göre sonuç
http://s3.dosya.tc/server10/rcvobl/1ornek_coklu_arama.rar.html

Kodu modul1 e yapıştırıp deneyiniz.
Kod anlattığınız şekilde çalışıyor.

 

[mustilem23]

Asri bey günaydın,

Haklısınız modüle ekleyince tam istediğim gibi çalışıyor emeğinizi sağlık çek teşekkürler.