[ÇÖZÜLDÜ] ComboBox'la çoklu sorgulama

[mahmutbeyli]

Ekteki örnekte olduğu gibi;
7 combobox la veri almak istiyorum daha önce yaptığım çalışmalardaki makroları uyarlayamadım..çok benzer olmarına rağmen
Forumda benzer çok uygulama olamasına rağmen de yapamadım...
Şimdiden emekleriniz için teşekkür..ve Herkesin Mübarek "RAMAZAN" Bayramını Kutlarım

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "veri!h2:h" & Sheets("veri").Cells(65536, "h").End(xlUp).Row
ComboBox2.RowSource = "veri!I2:I" & Sheets("veri").Cells(65536, "I").End(xlUp).Row
ComboBox6.RowSource = "veri!j2:j" & Sheets("veri").Cells(65536, "J").End(xlUp).Row
End Sub

 

[mahmutbeyli]

ComboBox'la çoklu

Sayın Hiçdurmaz,Kendimi çok iyi ifade edemedim..Sayfadan Comboboxlara veri alıyorum yanlız örneğin combobox1 ili seçiyorum ne karad ilçe varsa o kadar il adaı çıkıyor...örnek dosyayı incelermşsnşz

 

[Orion1]

Ne yapmak istediğiniz anlaşılmıyor.
Daha detaylı anlatırsanız sanırım arkadaşlar çözüm bulacaktır.

 

[mahmutbeyli]

Sayfadan ComboBox lara veri alma

Yapmak isyediğim;il , ilçe ve diğer bilgileri combolara aldımak yalnız yapamadığım il de "adana" yazdığımda kadar ilçe varsa o kere il"adana"adı çıkıyor..örnek dosya ekte

Plaka Kod İl İlçe
01 322 ADANA Aladağ
01 322 ADANA Ceyhan
01 322 ADANA Çukurova
01 322 ADANA Feke
01 322 ADANA İmamoğlu
01 322 ADANA Karaisalı
01 322 ADANA Karataş
01 322 ADANA Kozan
01 322 ADANA Pozantı
01 322 ADANA Saimbeyli
01 322 ADANA Sarıçam
01 322 ADANA Seyhan
01 322 ADANA Tufanbeyli
01 322 ADANA Yumurtalık
01 322 ADANA Yüreğir
02 416 ADIYAMAN Besni
02 416 ADIYAMAN Çelikhan
02 416 ADIYAMAN Gerger
02 416 ADIYAMAN Gölbaşı

 

[Orion1]

Dosyanız Ekte.

Private Sub ComboBox6_Change()
Dim k As Range, son As Long
Set k = Range("C1:C65536").Find(ComboBox6.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    son = WorksheetFunction.CountIf(Range("C2:C65536"), ComboBox6.Value)
    ComboBox7.RowSource = "D" & k.Row & ":D" & k.Row + son - 1
    ComboBox7.ListIndex = 0
End If

End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Farklı kodlama örneği olması açısından

Private Sub ComboBox6_Change()
Dim SAT As Integer
ComboBox7.Clear
For SAT = 2 To Cells(65536, "C").End(xlUp).Row
If WorksheetFunction.CountIf(Cells(SAT, "C"), ComboBox6) Then
ComboBox7.AddItem Cells(SAT, "D")
End If
Next
ComboBox7.ListIndex = 0
End Sub

 

[mahmutbeyli]

Çok teşekkür ederim.. bize zaman ve emek ayırdığınız için sağolun