Comboboxla Süzme içinde Süzme

[drkdrk]

arkadaşlar merhaba

ekli dosyamda yapmak istediğimi anlattım. Kısaca bahsedeyim;

comboboxtan seçilen veriler listboxta sıralanıyor. Bir comboboxtan veri süzülmüşse diğer comboboxlarda süzlen veri içinden süzme yapsın istiyorum.
yani süzme içinde süzme yapsın. Ben listelenen veriyi güncellediğimde comboboxların içindeki veri tekrarlanmasın. Bunu nasıl yapabilirim?

teşekkür ediyorum.

Bu arada formda arama yaptım fakat bulduklarım hep textbox üzerinden yapılmış. Comboboxla istediğim yada benzer bir süzme bulamadım.

 

[Korhan Ayhan]

Siz ne diye aradınız bilemiyorum ama bu konu forumda daha önce birçok kez işlendi.

Aşağıdaki linkleri inceleyiniz.

Formda 3 Comboboxla Süzme
Birbirine bağlantılı comboboxlar

 

[drkdrk]

Siz ne diye aradınız bilemiyorum ama bu konu forumda daha önce birçok kez işlendi.

Aşağıdaki linkleri inceleyiniz.

Formda 3 Comboboxla Süzme
Birbirine bağlantılı comboboxlar

hocam teşekkür ederim. işime yaracak veriler bulabildim. allah razı olsun. Ben combobox süzme diye arattığım için verileri eksik buluyormuşum.

 

[hesibolu]

İyi günler, ben elimdeki 781 tane veriyi combobox ile süzdürdüm fakat yapmak istediğim şey combobox1 içinde sectiğim alternatıfe gore dıger comboboxların sekıl alması yanı dıger comboboxlardaki önume acılan verının benım belırledıgım alternatıfe gore olmasını ıstıyorum.
Verıler doğrultusunda söyle bır kod yazdım ama bırbırı ıle baglantısını nasıl yapıcam işin içinden cıkamıyorum.Yardımcı olursanız cok mutlu olurum.İyi calısmalar.
Kodlarım :
Private Sub Userform_Initialize()
Dim i As Long
For i = 2 To Cells(65536, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A").Value) = 1 Then
ComboBox1.AddItem Cells(i, "A").Value
End If
Next i
Dim k As Long
For k = 2 To Cells(65536, "E").End(xlUp).Row
If WorksheetFunction.CountIf(Range("E2:E" & k), Cells(k, "E").Value) = 1 Then
ComboBox5.AddItem Cells(k, "E").Value
End If
Next k
Dim j As Long
For j = 2 To Cells(65536, "F").End(xlUp).Row
If WorksheetFunction.CountIf(Range("F2:F" & j), Cells(j, "F").Value) = 1 Then
ComboBox6.AddItem Cells(j, "F").Value
End If
Next j
Dim l As Long
For l = 2 To Cells(65536, "G").End(xlUp).Row
If WorksheetFunction.CountIf(Range("G2:G" & l), Cells(l, "G").Value) = 1 Then
ComboBox7.AddItem Cells(l, "G").Value
End If
Next l

End Sub