Birden Fazla Değişkene Göre Arama Yapma

[sleeper]

Başlıktan da anlaşılacağı gibi birden fazla değişkene göre (örneğin; ad soyad, d.tarihi, anne adı, baba adı vs.) hepsini birden sağlayan satırı bulan kodu yazmaya çalışıyorum ama bir türlü beceremedim.

Tek bir değişken ile aramayı kısaca;

Set bul = Range("E3:E20000").Find(TextBox5, lookat:=xlWhole)

şeklinde gerçekleştiriyorum.

Yardım edebilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

Diğer verileri hangi sütunlarda arayacak ?

. . .

 

[sleeper]

Aslında farketmez ama G,H,I ve J sütunlarında arayacak.

 

[Emir Hüseyin Çoban]

. . .

Farkeder. Size basitce kodun çalışma mantığını anlatayım.
Önce ana bir arama koşulumuz olacak. Sanırım bu Textbox5.

Bu veriyi arayacak bulduğunda, diğer koşullara bakacak. Bunun içinde.
Bahsettiğiniz

(örneğin; ad soyad, d.tarihi, anne adı, baba adı vs.)

sütunlarının harf karşılığını ve hangi textbox ile eşleştirilmesi gerektiğini bildiriniz.

Forumda Findnext diye aramaya yaparsanız bolca örnekte bulabilirsiniz.

. . .

 

[sleeper]

Beni yanlış anladınız. Farketmez derken siz örnek olarak A sütunuda deseniz ben onu kendime göre çevirirdim zaten. Yani bana göre farketmez dedim. Yoksa tabiki kodlarda tanımlayacağımız sütun adları önemli.

 

[sleeper]

Ayrıca tavsiyenize uyup sitede ve internette Findnext diye arama yaptım. Birçok sonuç çıktı fakat benim tam olarak istediğim gibi çoklu koşula göre arama yapan bir kod dizisi bulamadım. Eğer yardımcı olabilirseniz sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Bir örnek ekliyorum.
4 koşula göre arama yapar.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://yadi.sk/d/dWvJ60YiPcBPB

. . .

 

[sleeper]

Hüseyin Bey, cevabınız için teşekkür ederim.

Örneğinizi inceledikten sonra soruyu eksik sorduğumu farkettim.
Mesela arama kodu büyük/küçük harfe duyarlı. Ben duyarlı olmasını istemiyorum.
İkinci olarakta çalışmamı tamamen userformlar üzerinde gerçekleştirdiğimden bir userformda ilgili textbox(lar)da arama yaptıktan sonra arama sonuç verdiyse yeni bir userform açılıp aranan kişiye ait bilgiler ilgili textboxlara yazılı gelmesini eğer arama sonuç vermediyse uyarı vermesini istiyorum.

Örneğinizden yararlanarak aşağıdaki kodları yazdım ve yukarda bahsettiğim eksiklikleri nasıl aşacağım konusunda bu kodlar üzerinden yardımcı olursanız sevinirim.

Not: Arama yaptığım userformun ismi ara, yeni açılacak userformun ismi de ekle.

Private Sub kisiselara_Click()
Sheets("veritabanı").Select
Set Ara = Range("G3:G20000").Find(adsoyad, lookat:=xlWhole)
adres = Ara.Address
If Not Ara Is Nothing Then
adres = Ara.Address
        
        Do
            If dtarihi = Cells(Ara.Row, "H") And _
            anneadı = Cells(Ara.Row, "I") And _
            babaadı = Cells(Ara.Row, "J") Then
Ara.Hide
Ekle.Show

uyrugu = Cells(bul.Row, "D")
tckimlik = Cells(bul.Row, "E")
adsoyad = Cells(bul.Row, "F")
dogumtarihi = Cells(bul.Row, "G")
cinsiyet = Cells(bul.Row, "H")
anneadi = Cells(bul.Row, "I")
babaadi = Cells(bul.Row, "J")
muracaateden = Cells(bul.Row, "K")
muracaatedilen = Cells(bul.Row, "P")
ilkkabulturu = Cells(bul.Row, "X")
ilkkabul = Cells(bul.Row, "W")

 

[sleeper]

Zor bir şey istedim sanırım. Cevapsız kaldım. :/

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Yanıtınızı görmemişim.
Ancak bu şekilde çalışmak zor, örnek dosya yükleyiniz.

. . .

 

[sleeper]

Dosya ekte mevcuttur.

http://dosya.co/t6usmqtyunlp/arama.xlsm.html

 

[sleeper]

Ardarda yazmış (gibi) olacağım ama istediğim şeyin mümkün olup olmadığını bilseydim ona göre çalışmama devam ederdim.

Deneyimli arkadaşlar en azından bir yorum getirebilirseniz sevinirim

 

[sleeper]

Birden çok değişkene göre arama yapma ile yardım göremedim forumda ama ben başka bir konuda gene yardım umacağım. Umarım bu sefer yardımcı olacak bir iki arkadaş bulabilirim.

Konu kirliliği olmaması açısından ve benzer soru olduklarından dolayı daha önceden açmış olduğum bu konu üzerinden yeni sorumu sorayım dedim.

Userformu açtığımda Textbox1 'e A1 hücresinde yazılı olan TC Kimlik numarası otomatik geliyor. Textbox1 deki TC Kimlik numaralı kişiye ait birden çok başvuru olabileceği göz önünde bulundurarak aynı userform içine o başvurulardan birini seçebileceğim bir combobox yerleştirdim. Şimdi textbox1 deki veriye göre combobox a koşullu veri aktarabildim fakat comboboxta seçeceğim başvuruya göre aynı userform içerisinde bulunan textbox ve comboboxlara otomatik veri getiremedim.

Umarım detaylı bir şekilde sorunumu anlatabilmişimdir.