Birden fazla değeri arayıp süzmek

[bilalakdeniz]

Merhaba, veri sayfasındaki verileri, bul sayfasında, belirlemiş olduğumuz kreiterle uyan bilgileri rapor sayfasına yazmasını istiyoruz. Teşekkürler.

 

[bilalakdeniz]

Bf hücresinden sonraki makroların değişeceği yerleri çözemedim. Teşekkürler

 

[bilalakdeniz]

Set s1 = Sheets("liste")
Set s2 = Sheets("rapor")
basla = Time
s2.[a2:ad65536].ClearContents
For a = 2 To [b65536].End(3).Row
For d = 7 To 11
Select Case d
Case 7: If s1.[ba2] <> "" And s1.Cells(a, "a") <> s1.[ba2] Then GoTo 20
Case 8: If s1.[bb2] <> "" And s1.Cells(a, "b") <> s1.[bb2] Then GoTo 20
Case 9: If s1.[bc2] <> "" And s1.Cells(a, "c") <> s1.[bc2] Then GoTo 20
Case 10: If s1.[bd2] <> "" And s1.Cells(a, "d") <> s1.[bd2] Then GoTo 20
Case 11: If s1.[be2] <> "" And s1.Cells(a, "e") <> s1.[be2] Then GoTo 20
Case 12: If s1.[bf2] <> "" And s1.Cells(a, "f") <> s1.[bf2] Then GoTo 20
Case 13: If s1.[bg2] <> "" And s1.Cells(a, "g") <> s1.[bg2] Then GoTo 20
Case 14: If s1.[bh2] <> "" And s1.Cells(a, "h") <> s1.[bh2] Then GoTo 20
Case 15: If s1.[bı2] <> "" And s1.Cells(a, "ı") <> s1.[bı2] Then GoTo 20
Case 16: If s1.[bj2] <> "" And s1.Cells(a, "j") <> s1.[bj2] Then GoTo 20
Case 17: If s1.[bk2] <> "" And s1.Cells(a, "k") <> s1.[bk2] Then GoTo 20
Case 18: If s1.[bl2] <> "" And s1.Cells(a, "l") <> s1.[bl2] Then GoTo 20
Case 19: If s1.[bm2] <> "" And s1.Cells(a, "m") <> s1.[bm2] Then GoTo 20
Case 20: If s1.[bn2] <> "" And s1.Cells(a, "n") <> s1.[bn2] Then GoTo 20
Case 21: If s1.[bo2] <> "" And s1.Cells(a, "o") <> s1.[bo2] Then GoTo 20
Case 22: If s1.[bp2] <> "" And s1.Cells(a, "p") <> s1.[bp2] Then GoTo 20
Case 23: If s1.[bq2] <> "" And s1.Cells(a, "q") <> s1.[bq2] Then GoTo 20
Case 24: If s1.[br2] <> "" And s1.Cells(a, "r") <> s1.[br2] Then GoTo 20
Case 25: If s1.[bs2] <> "" And s1.Cells(a, "s") <> s1.[bs2] Then GoTo 20
Case 26: If s1.[bt2] <> "" And s1.Cells(a, "t") <> s1.[bt2] Then GoTo 20
Case 27: If s1.[bu2] <> "" And s1.Cells(a, "u") <> s1.[bu2] Then GoTo 20
Case 28: If s1.[bv2] <> "" And s1.Cells(a, "v") <> s1.[bv2] Then GoTo 20
Case 29: If s1.[bw2] <> "" And s1.Cells(a, "w") <> s1.[bw2] Then GoTo 20
Case 30: If s1.[bx2] <> "" And s1.Cells(a, "x") <> s1.[bx2] Then GoTo 20
Case 31: If s1.[by2] <> "" And s1.Cells(a, "y") <> s1.[by2] Then GoTo 20
Case 32: If s1.[bz2] <> "" And s1.Cells(a, "z") <> s1.[bz2] Then GoTo 20
Case 33: If s1.[ca2] <> "" And s1.Cells(a, "aa") <> s1.[ca2] Then GoTo 20
Case 34: If s1.[cb2] <> "" And s1.Cells(a, "ab") <> s1.[cb2] Then GoTo 20
Case 35: If s1.[cc2] <> "" And s1.Cells(a, "ac") <> s1.[cc2] Then GoTo 20
Case 36: If s1.[cd2] <> "" And s1.Cells(a, "ad") <> s1.[cd2] Then GoTo 20
End Select
Next
c = c + 1
s2.Range("a" & c + 1 & ":ad" & c + 1) = s1.Range("a" & a & ":ad" & a).Value
20 Next
bitis = Time
MsgBox c & " adet veri bulunmuştur." & Chr(13) & Chr(13) & "Sorgulama Süresi: " & Format(bitis - basla, "hh:mm:ss")
End Sub


Merhaba arkadaşlar örnekdeki dosyaya uyarlayabilmek için hangi satırı değiştireceğimi bulamadım. BF hücresinden sonraki değerleri bulması için,

 

[Ergün Güler]

Merhaba, veri sayfasındaki verileri, bul sayfasında, belirlemiş olduğumuz kreiterle uyan bilgileri rapor sayfasına yazmasını istiyoruz. Teşekkürler.

Selam,
"FİYAT TEKLİFİ" adlı dosyanızdaki "BUL" sayfanın B3:B29 aralığına bir veya birden fazla aranacak kelime girip "veri" sayfasında aranıp, bulunan bir veya daha fazla bilgilerin "rapor sayfasında görüntülenmesini mi istiyorsunuz?

Eğer istediğiniz bu ise yapılabilir. Hatta bul sayfası olmadan rapor sayfasını da değiştirmeden sadece 1.satıra açılır kutu koyup, bu kutularıda veri sayfasınınilgili sütunlarından benzersiz ve sıralı mevcut listeler yapıp güzel bir sorgulama sayfası yapabilirim.

Siz isteklerinizi tazeleyiniz beraber bir çalışma yapalım.

İyi çalışmalar.

 

[bilalakdeniz]

Sayın Ergün Güler, Öncelikle çok teşekkür ederim. Net olarak istediğim. Fiyat Teklifi dosyasında bulunan, Veri sayfasındaki verileri, Bul sayfasında Seçmiş olduğum kriterlere uyan satırları Rapor sayfasında bulmasını istiyorum. Sunmuş olduğunuz öneriyi tam olarak kafamda nasıl olacağını canlandıramadım. Umarım anlatabilmişimdir. Teşekkürler,

 

[kratos06]

selam ben bir sorum var nasıl soracam gönderecem yardımcı olurmusunuz