Listboxta çoklu seçim ile süz

[asterix1234]

Merhaba Arkadaşlar,
Çok cebelleştim 1-2 örnek buldum ama karışık anlamadım yani...

Soru : sayfa1 a1:g arası veriler mevcut.
Listbox'a aldırıyorum, user formda 7 ad combobox var
her bir combobox 1 sütunu rowsource ediyor.
Örn. ComboBox1.RowSource = "turnike!a2:a65536"
ComboBox2.RowSource = "turnike!b2:b65536" gibi devam ediyor..

sorun şu; comboboxlara veri girince ait olduğu sütundaki seçilen bilgiyi listeliyorlar ama benim istediğim bunların hepsi birbirine bağlı olsun o şekilde süzme yapsın yani....

combobox1=combobox2=combobox3=combobox4=combobox5...gibi
comb3 veri girilmiş olsun comb4 de veri girildiğinde aramayı comb3 deki listelemeye göre yapsın.

yani süzme listboxtaki listeye göre yapılsın..


Yardımlarınızı esirgemeyin arakadaşlar................

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[asterix1234]

Örnek eklendi

Selamlar,

Örnek dosya eklermisiniz.

Korhan Hocam, ekli örnekteki userform3 te yapmak istedim userfor3 turnike adlı sayfa ile bağlantılı çalışıyor..

ilginiz için teşekkür ederim.

 

[asterix1234]

Cevap verecek yok mu ?

33 kişi bakmış cevap verecek arkadaşlar yok mu ?

 

[Korhan Ayhan]

Selamlar,

Userform3 te kullandığınız kodları aşağıdaki şekilde değiştirip denermisiniz.

Private Sub ComboBox1_Change()
    On Error Resume Next
    ListBox1.RowSource = ""
    Satır = 0
    For X = 2 To Cells(65536, "A").End(xlUp).Row
    If ComboBox1 <> "" And ComboBox2 = "" Then
    If LCase(Cells(X, 1)) Like LCase(ComboBox1) & "*" Then
            ListBox1.AddItem
            With ListBox1
            .List(Sat&#305;r, 0) = Cells(X, 1)
            .List(Sat&#305;r, 1) = Cells(X, 2)
            .List(Sat&#305;r, 2) = Cells(X, 3)
            .List(Sat&#305;r, 3) = Cells(X, 4)
            .List(Sat&#305;r, 4) = Format(Cells(X, 5), "hh:mm")
            .List(Sat&#305;r, 5) = Format(Cells(X, 6), "hh:mm")
            .List(Sat&#305;r, 6) = Format(Cells(X, 7), "dd.mm.yyyy")
            Sat&#305;r = Sat&#305;r + 1
        End With
    End If
    ElseIf ComboBox1 <> "" And ComboBox2 <> "" Then
    If LCase(Cells(X, 1)) Like LCase(ComboBox1) & "*" And LCase(Cells(X, 2)) Like LCase(ComboBox2) & "*" Then
            ListBox1.AddItem
            With ListBox1
            .List(Sat&#305;r, 0) = Cells(X, 1)
            .List(Sat&#305;r, 1) = Cells(X, 2)
            .List(Sat&#305;r, 2) = Cells(X, 3)
            .List(Sat&#305;r, 3) = Cells(X, 4)
            .List(Sat&#305;r, 4) = Format(Cells(X, 5), "hh:mm")
            .List(Sat&#305;r, 5) = Format(Cells(X, 6), "hh:mm")
            .List(Sat&#305;r, 6) = Format(Cells(X, 7), "dd.mm.yyyy")
            Sat&#305;r = Sat&#305;r + 1
        End With
    End If
    End If
    Next
End Sub
Private Sub ComboBox2_Change()
    On Error Resume Next
    ListBox1.RowSource = ""
    Sat&#305;r = 0
    For X = 2 To Cells(65536, "A").End(xlUp).Row
    If ComboBox2 <> "" And ComboBox1 = "" Then
    If LCase(Cells(X, 2)) Like LCase(ComboBox2) & "*" Then
            ListBox1.AddItem
            With ListBox1
            .List(Sat&#305;r, 0) = Cells(X, 1)
            .List(Sat&#305;r, 1) = Cells(X, 2)
            .List(Sat&#305;r, 2) = Cells(X, 3)
            .List(Sat&#305;r, 3) = Cells(X, 4)
            .List(Sat&#305;r, 4) = Format(Cells(X, 5), "hh:mm")
            .List(Sat&#305;r, 5) = Format(Cells(X, 6), "hh:mm")
            .List(Sat&#305;r, 6) = Format(Cells(X, 7), "dd.mm.yyyy")
            Sat&#305;r = Sat&#305;r + 1
        End With
    End If
    ElseIf ComboBox2 <> "" And ComboBox1 <> "" Then
    If LCase(Cells(X, 2)) Like LCase(ComboBox2) & "*" And LCase(Cells(X, 1)) Like LCase(ComboBox1) & "*" Then
            ListBox1.AddItem
            With ListBox1
            .List(Sat&#305;r, 0) = Cells(X, 1)
            .List(Sat&#305;r, 1) = Cells(X, 2)
            .List(Sat&#305;r, 2) = Cells(X, 3)
            .List(Sat&#305;r, 3) = Cells(X, 4)
            .List(Sat&#305;r, 4) = Format(Cells(X, 5), "hh:mm")
            .List(Sat&#305;r, 5) = Format(Cells(X, 6), "hh:mm")
            .List(Sat&#305;r, 6) = Format(Cells(X, 7), "dd.mm.yyyy")
            Sat&#305;r = Sat&#305;r + 1
        End With
    End If
    End If
    Next
End Sub

 

[asterix1234]

Hocam denedim olmuyor ziyaretçi adını yazarken buluyor 1. sütuna döküyor (diğer kolonlar boş ) diğer combobox'a veri giriyorum tık yok

 

[asterix1234]

Bir Örnek buldum ama uyarlıyamadım kendime karışık geldi.. Bakarmısınız..

Forumdaki arkadaşlardan birinin dosyası paylaşımı için teşekkür ederim.

Arkadaşın dosyasındaki userfom2 deki olay tam benim istediğim

gözümün önündeki hazır kodları ben kendi dosyamada uaylıyamıyorum o ayrı sorun...


Yardımlarınızı bekliyorum.....

 

[Korhan Ayhan]

Selamlar,

Eklemiş olduğunuz ilk örnek dosyada Userform3 için gerekli düzenlemeyi yaptım. İncelermisiniz.

 

[asterix1234]

Hocam eline emeğine sağlık

Selamlar,

Eklemiş olduğunuz ilk örnek dosyada Userform3 için gerekli düzenlemeyi yaptım. İncelermisiniz.

Ellerine sağlık bu işte, inşallah ben diğer comboboxlarıda bu örneğe göre çoğaltabilirim


Harikasın.................................. :mutlu: :mutlu:

 

[asterix1234]

Olmadı

Ellerine sağlık bu işte, inşallah ben diğer comboboxlarıda bu örneğe göre çoğaltabilirim


Harikasın.................................. :mutlu: :mutlu:

Hocam bu sorgulamaya 3. ve 4. comboxları nasıl ekliyeceğiz valla denedim en başata comb1 <> "" and comb2 "" and comb3 diye devam edip altındaki leride bu şekilde değiştirdim ama olmadı (artık kapasite meselesi diye görüyorum) bunuda çözersek program bitecek bende tövbe edecem