Excel Userform 2 koşullu arama

[sonerergin93]

Merhaba , excel vba'da iki koşullu bir arama yaptırmak istiyorum. Örneğin textbox1 ve textbox2 ye ad soyad yazıp textbox3 e tc kimlik numarasını atamak istiyorum. Tek koşullu yapabildim, textbox1 e yazıyorum direkt atıyor textbox3 e ancak ben ad ve soyadın yazılıp eğer öyle bir kayıt varsa atamasını yapmak , textbox1 ve textbox2 den herhangi birisi eşleşemediği durumda kayıt bulunamadı hatası, eşleştiği durumda kayıt bulundu yazısı çıkarmak da istiyorum. Yardımlarınızı beklerim. Bir tane örnek macro yaptım bakabilir misiniz?

 

[Muzaffer Ali]

Merhaba.
Formdaki kodları silin aşağıdaki kodu ekleyin.

Private Sub CommandButton1_Click()
    Dim Bak As Long
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(Bak, "A") = TextBox2.Text And Cells(Bak, "B") = TextBox3.Text Then
            TextBox1.Text = Cells(Bak, "C")
            Exit Sub
        End If
    Next
    MsgBox "Bulunamadı."
End Sub

 

[sonerergin93]

Merhaba.
Formdaki kodları silin aşağıdaki kodu ekleyin.

Private Sub CommandButton1_Click()
    Dim Bak As Long
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(Bak, "A") = TextBox2.Text And Cells(Bak, "B") = TextBox3.Text Then
            TextBox1.Text = Cells(Bak, "C")
            Exit Sub
        End If
    Next
    MsgBox "Bulunamadı."
End Sub

Teşekkür ederim. Peki bu durumu sayısal veriler için nasıl yaparım.
B Sütununda çıktımız olsun, E sütununda ilk sayımız F sütununda 2.sayımız. Örneğin E sütununda 125 ve F Sütunundaki 5 in bulunduğu Satırındaki veri ERGİN( Çıktıların tamamı B sütununda) olduğunu varsayarsak 125 ve 5i yazıp bul dediğimizde ERGİN'i yazsın. Sizin yazdığınız kodu uyarlamaya çalıştım ama başarısız oldum.

 

[Muzaffer Ali]

Soruyu anlamadım.
Örnek dosya hazırlayınız.

 

[sonerergin93]

Örnek dosya aşağıdadır. 3.sekmede yer alan ada parsel yazdıldığında eşleşen durumun 3.kutucuğa yazdırabilmeyi istiyordum

 

[sonerergin93]

Soruyu anlamadım.
Örnek dosya hazırlayınız.

 

[Muzaffer Ali]

Ama biraz çaba göstermelisiniz.
Önceki dosyanızdaki sorunuz ile bu soru aynı.
Sadece TextBox ların adı ve sütunları yerleri değişik.

Burada bize iş yaptırmak yerine öğrenme amaçlı sorular sormalısınız.
Kolay gelsin.

 

[sonerergin93]

Ama biraz çaba göstermelisiniz.
Önceki dosyanızdaki sorunuz ile bu soru aynı.
Sadece TextBox ların adı ve sütunları yerleri değişik.

Burada bize iş yaptırmak yerine öğrenme amaçlı sorular sormalısınız.
Kolay gelsin.

Private Sub CommandButton3_Click()
Dim Bak As Long
For Bak = 2 To Cells(Rows.Count, "E").End(xlUp).Row
If Cells(Bak, "E") = TextBox23.Text And Cells(Bak, "F") = TextBox24.Text Then
TextBox25.Text = Cells(Bak, "B")
Exit Sub
End If
Next
MsgBox "Bulunamadı."
End Sub

Çabadan yana sıkıntım yokta textboxların numaralarını ters yazmısım problem oradaymış, amacım tabiki size iş yaptırmak değil teessüf ederim ve teşekkür ederim.

 

[sonerergin93]

Ama biraz çaba göstermelisiniz.
Önceki dosyanızdaki sorunuz ile bu soru aynı.
Sadece TextBox ların adı ve sütunları yerleri değişik.

Burada bize iş yaptırmak yerine öğrenme amaçlı sorular sormalısınız.
Kolay gelsin.

beni yanlış anlamanıza ayrıca üzüldüm

 

[Muzaffer Ali]

Üzülecek bir şey yok. Ben keyifle yardımcı oluyorum.
Önemli olan öğrenmenizdir yani sizsiniz. Yoksa ben bu tür işleri yapmaktan keyif alıyorum.
İstemesem zaten cevap vermez geçerim.

TextBox ve diğer kontrollerin isimlerine gelince, onların isimlerini anlamlı bir şekilde değiştirmenizi öneririm.

Örneğin "TextBox1" yerine "txtAda" yazabilirsiniz.
txt TextBox kısalması Ada da kullanıldığı yere işaret eder.

"CommandBıutton1" yerine "btnBul" yazabilirsiniz.

Diğer kontrolleri de buna benzer şekilde adlandırırsanız burada karşılaştığınız soruna benzer sorunlarla karşılaştığınızda çözmeniz kolaylaşır.

Kolay gelsin.

 

[sonerergin93]

Üzülecek bir şey yok. Ben keyifle yardımcı oluyorum.
Önemli olan öğrenmenizdir yani sizsiniz. Yoksa ben bu tür işleri yapmaktan keyif alıyorum.
İstemesem zaten cevap vermez geçerim.

TextBox ve diğer kontrollerin isimlerine gelince, onların isimlerini anlamlı bir şekilde değiştirmenizi öneririm.

Örneğin "TextBox1" yerine "txtAda" yazabilirsiniz.
txt TextBox kısalması Ada da kullanıldığı yere işaret eder.

"CommandBıutton1" yerine "btnBul" yazabilirsiniz.

Diğer kontrolleri de buna benzer şekilde adlandırırsanız burada karşılaştığınız soruna benzer sorunlarla karşılaştığınızda çözmeniz kolaylaşır.

Kolay gelsin.

verdiğiniz bilgiler için teşekkür ederim, önerilerinizi dikkate alacağım. Hayırlı günler diliyorum