• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Combobox'ta Birden Fazla Veri Arama

D

delibedri78

Katılım
10 Ağustos 2015
Mesajlar
26
Excel Vers. ve Dili
2016 English - Googlesheet
Combobox'ta Birden Fazla Veri Arama yaptırmak istiyorum. Daha doğrusu üç tane combobaxı aratıyorum fakat dördüncüyü ekleyemiyorum. Nasıl yapabilirim?

Yaptırdığım 3 lü

Kod: 
If Bir > 0 And Iki > 0 And Sifir > 0 Then

bu şekilde. dördüncüyü ekleyemiyorum..
 
saban20152015' Alıntı:
Örneği inceleyiniz...

Link : http://dosya.web.tr/KBYjqN
Genişletmek için tıkla ...

öncelikle ilginize teşekkürler.

dosyam büyük atamıyorum o yüzden..
kodları göstereyim.

Kod: 
Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox12_Change()


End Sub

Private Sub ComboBox4_Change()

End Sub

Private Sub ComboBox6_Change()

End Sub

Private Sub CommandButton1_Click()
Dim ToplamKayit, Satir, i As Variant
Dim Ev, deplasman, Oranbir, Oransifir, Oraniki, ilkbir, ilksifir, ilkiki, alt, ust, varr, yok, ilky, ligg, tarih As String
Dim Bir, Iki, Sifir, Skor, altt, ustt, varrr, yokk, ibir, isifir, iiki, lig, liggg, sonucsayisi, sonucbirsifir, sonucbirbir, sonucsifirbir, sonucsifirsifir, sonuikisifir, sonucbiriki, sonucikibir, sonucikiki, sonucsifiriki    As Variant
Dim sonuclar(9) As String
sonuclar(1) = "1/1"
sonuclar(2) = "0/1"
sonuclar(3) = "2/1"
sonuclar(4) = "1/2"
sonuclar(5) = "2/0"
sonuclar(6) = "0/0"
sonuclar(7) = "0/2"
sonuclar(8) = "1/0"
sonuclar(9) = "2/2"




ToplamKayit = Sheets("iddaa").Cells(Rows.Count, "P").End(xlUp).Row
i = 100
For Satir = 6 To ToplamKayit
Bir = InStr(1, ComboBox1.Value, Sheets("iddaa").Range("P" & Satir))
Iki = InStr(1, ComboBox6.Value, Sheets("iddaa").Range("Q" & Satir))
Sifir = InStr(1, ComboBox5.Value, Sheets("iddaa").Range("R" & Satir))
ustt = InStr(1, ComboBox10.Value, Sheets("iddaa").Range("AR" & Satir))
varrr = InStr(1, ComboBox4.Value, Sheets("iddaa").Range("AD" & Satir))
yokk = InStr(1, ComboBox3.Value, Sheets("iddaa").Range("AE" & Satir))
ibir = InStr(1, ComboBox8.Value, Sheets("iddaa").Range("T" & Satir))
isifir = InStr(1, ComboBox7.Value, Sheets("iddaa").Range("U" & Satir))
iiki = InStr(1, ComboBox11.Value, Sheets("iddaa").Range("V" & Satir))
lig = InStr(1, ComboBox12.Value, Sheets("iddaa").Range("G" & Satir))





If Bir > 0 And Iki > 0 And Sifir > 0 Then
sonucsayisi = sonucsayisi + 1
Ev = Sheets("iddaa").Range("K" & Satir)
deplasman = Sheets("iddaa").Range("L" & Satir)
Skor = Sheets("iddaa").Range("N" & Satir)
Im = Sheets("iddaa").Range("O" & Satir)
Oranbir = Sheets("iddaa").Range("P" & Satir)
Oransifir = Sheets("iddaa").Range("Q" & Satir)
Oraniki = Sheets("iddaa").Range("R" & Satir)
ilkbir = Sheets("iddaa").Range("T" & Satir)
ilksifir = Sheets("iddaa").Range("U" & Satir)
ilkiki = Sheets("iddaa").Range("V" & Satir)
alt = Sheets("iddaa").Range("AQ" & Satir)
ust = Sheets("iddaa").Range("AR" & Satir)
varr = Sheets("iddaa").Range("AD" & Satir)
yok = Sheets("iddaa").Range("AE" & Satir)
ilky = Sheets("iddaa").Range("M" & Satir)
ligg = Sheets("iddaa").Range("G" & Satir)
tarih = Sheets("iddaa").Range("E" & Satir)



If sonuclar(1) = Im Then
sonucbirbir = sonucbirbir + 1
End If

If sonuclar(2) = Im Then
sonucsifirbir = sonucsifirbir + 1
End If

If sonuclar(3) = Im Then
sonucikibir = sonucikibir + 1
End If

If sonuclar(4) = Im Then
sonucbiriki = sonucbiriki + 1
End If

If sonuclar(5) = Im Then
sonucikisifir = sonucikisifir + 1
End If

If sonuclar(6) = Im Then
sonucsifirsifir = sonucsifirsifir + 1
End If

If sonuclar(7) = Im Then
sonucsifiriki = sonucsifiriki + 1
End If

If sonuclar(8) = Im Then
sonucbirsifir = sonucbirsifir + 1
End If

If sonuclar(9) = Im Then
sonucikiiki = sonucikiiki + 1
End If



ListBox1.AddItem ligg & "----" & Ev & "-" & deplasman & "-" & tarih
ListBox2.AddItem ilky & "-----" & Skor & "-----" & Im & "-----" & Oranbir & "-----" & Oransifir & "-----" & Oraniki & "-----" & ilkbir & "-----" & ilksifir & "-----" & ilkiki & "-----" & alt & "-----" & ust & "-----" & varr & "-----" & yok


End If
Next Satir
TextBox1.Text = Satir

ListBox3.AddItem "toplammac" & "    " & "=" & sonucsayisi


For Satir = 0 To 9


If Satir = 1 Then
ListBox3.AddItem "1/1" & "    " & "=" & sonucbirbir

End If

If Satir = 2 Then
ListBox3.AddItem "1/2" & "    " & "=" & sonucbiriki

End If

If Satir = 3 Then
ListBox3.AddItem "2/1" & "    " & "=" & sonucikibir

End If

If Satir = 4 Then
ListBox3.AddItem "1/0" & "    " & "=" & sonucbirsifir

End If

If Satir = 5 Then
ListBox3.AddItem "0/0" & "    " & "=" & sonucsifirsifir

End If

If Satir = 6 Then
ListBox3.AddItem "2/0" & "    " & "=" & sonucikisifir

End If

If Satir = 7 Then
ListBox3.AddItem "0/2" & "    " & "=" & sonucsifiriki
End If

If Satir = 8 Then
ListBox3.AddItem "0/1" & "    " & "=" & sonucsifirbir

End If

If Satir = 9 Then
ListBox3.AddItem "2/2" & "    " & "=" & sonucikiiki

End If

Next Satir





End Sub



Private Sub CommandButton2_Click()

ListBox1.Clear

ListBox2.Clear

ListBox3.Clear

End Sub

Private Sub CommandButton3_Click()
filtre.Show
End Sub



Private Sub Label12_Click()

End Sub

Private Sub Label15_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub ListBox1_AfterUpdate()

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()



End Sub

buraya nasıl uygularım.
 
If Bir > 0 And Iki > 0 And Sifir > 0 and ustt>0 Then

Bu şekilde denediğinizde olmuyor mu ?

Dosyanızı www.dosya.web.tr gibi bir upload sitesine yükleyerek link verebilirsiniz. Dosya üzerinden deneyerek daha rahat yardımcı olmaya çalışırız.
 
yalnız şöyle bir problem var. ustt kısmını aramaya katmazsam sonuç bulmuyor.
 
Merhaba.
Kod işini pek bilemiyorum ancak, 0'dan büyük derken kastınız 1 ve üstü ise matematik açıdan bir öneride bulunmak istiyorum.
Dört tane açılır listeniz var ve bunların dördü birden 1 ve büyükseyi şöyle düşünseniz olurmu?

Dört tane açılır listenin en az alacağı değer(if koşulu için söylüyorum elbette) 1 olduğuna göre bunların aldığı değerleri & imleciyle yanyana metin gibi birleştirip 0 ile topladığınızda bulacağınız değer 1111 eşit veya büyük bir değer olur. Koddaki işlem koşulunu bu 1111 sayısına bağlayabilirsiniz.
 
Son düzenleme:
omer.baran' Alıntı:
Merhaba.
Kod işini pek bilemiyorum ancak, 0'dan büyük derken kastınız 1 ve üstü ise matematik açıdan bir öneride bulunmak istiyorum.
Dört tane açılır listeniz var ve bunların dördü birden 1 ve büyükseyi şöyle düşünseniz olurmu?

Dört tane açılır listenin en az alacağı değer(if koşulu için söylüyorum elbette) 1 olduğuna göre bunların aldığı değerleri & imleciyle yanyana metin gibi birleştirip 0 ile topladığınızda bulacağınız değer 1111 eşit veya büyük bir değer olur. Koddaki işlem koşulunu bu 1111 sayısına bağlayabilirsiniz.
Genişletmek için tıkla ...

öncelkle ilginize teşekkürler. demek istediğinizi tam anlayamadım. kod ile verebilirmisiniz acaba..
 
Çalışır mı bilmiyorum. Aaşağıdaki şekilde denemek lazım.
(şayet olmazsa her bir ComboBox adından sonra .Value veya .Text olarak da deneyiniz)
Kod: 
If (ComboBox1[B][COLOR="Red"]&[/COLOR][/B]ComboBox2[B][COLOR="Red"]&[/COLOR][/B]ComboBox3[B][COLOR="Red"]&[/COLOR][/B]ComboBox4)+0 > 1111 Then
 
Küçük bir örnek dosya hazırlayarak ekleyebilir misiniz?
 
Gönderdiğim kod satırı metnindeki 1111 sayısını 1110 olarak değiştirmek lazım, o zaman düşünememişim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst