combobox1 e göre combobox 2 ye veri yükleme

[celine]

selam arkadaşlar combobox1 içindeki değere göre, combobox2 ye değer göndermek istiyorum. nasıl yapabilirim?

 

[Levent Menteşoğlu]

Sn celine

Sorularınızı çok kısa ve oldukça yetersiz bilgi vererek soruyorsunuz. Bu şekilde cevap almanız mümkün değil. Bizleride her seferinde "Lütfen biraz daha detay bilgi verin" , "Bir örnek dosya eklermisiniz" gibi cümleler yazmak zorunda bırakmayın. Sorularınızı ne kadar açık ifade ederseniz o derece hızlı cevap alırsınız.

 

[celine]

Benim yapmak istediğim combobox1'den ili seçtiğimde, combobox2'de sadece seçtiğim ilin ilçelerinin yeralmasını istiyorum ve aynı şekilde combobox3'te de sadece seçtiğim ilçenin semtlerinin olması. Umarım yeterince açıklayıcı olmuştur. Bunu nasıl yapabilirim?

 

[Qene]

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "ist"
.AddItem "izmir"
.AddItem "manisa"
End With
End Sub
Private Sub ComboBox1_Click()
ComboBox2.Clear
say = Sayfa1.Range("B65536").End(xlUp).Row
For a = 2 To say
If Sayfa1.Cells(a, "A") = ComboBox1.Value Then
ComboBox2.AddItem Sayfa1.Cells(a, "b")
End If
Next
End Sub
Private Sub ComboBox2_Click()
ComboBox3.Clear
say = Sayfa1.Range("C65536").End(xlUp).Row
For a = 2 To say
If Sayfa1.Cells(a, "B") = ComboBox2.Value Then
ComboBox3.AddItem Sayfa1.Cells(a, "C")
End If
Next
End Sub

 

[dersmx]

sayın gene
örneği inceledim ve dediğiniz kodu dosyaya uyguladım
herşey güzel çalışıyor fakat diyelim ki
a9 hücresine ist b9 hücresine üsküdar c9 hücresine de zeynepkamil yazdığımızda
ikinci comboboxta üsküdar verisi iki kere görünüyor. Bunu nasıl tek veriye düşürebiliriz?

 

[Qene]

Kodları kendinize göre uyarlayın. Eğer Veritabanında Başlık Alanını varsa ve göstermesin istiyorsanız.. "A1:A100" gibi olan kodları "A2:A100" olarak değişin..

Private Sub ComboBox1_Change()
Dim i, son As Integer
son = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("a1:a100")) + 1
For i = 1 To son
If Cells(i, 1).Value = ComboBox1.Value And WorksheetFunction.CountIf(Worksheets("Sayfa1").Range("b1:b" & i), Worksheets("Sayfa1").Cells(i, 2).Value) = 1 Then
UserForm2.ComboBox2.AddItem Cells(i, 1).Offset(0, 1)
End If
Next i
End Sub

Private Sub UserForm_Initialize()
Dim i, son As Integer
son = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("a1:a100")) + 1
For i = 1 To son
If WorksheetFunction.CountIf(Worksheets("Sayfa1").Range("a1:a" & i), Worksheets("Sayfa1").Cells(i, 1).Value) = 1 Then
UserForm2.ComboBox1.AddItem Worksheets("Sayfa1").Cells(i, 1)
End If
Next i
End Sub

 

[orcunerkek54]

Private Sub ComboBox1_Change()
Dim i, son As Integer
son = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("a1:a100")) + 1
For i = 1 To son
If Cells(i, 1).Value = ComboBox1.Value And WorksheetFunction.CountIf(Worksheets("Sayfa1").Range("b1:b" & i), Worksheets("Sayfa1").Cells(i, 2).Value) = 1 Then
UserForm2.ComboBox2.AddItem Cells(i, 1).Offset(0, 1)
End If
Next i
End Sub

Private Sub UserForm_Initialize()
Dim i, son As Integer
son = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("a1:a100")) + 1
For i = 1 To son
If WorksheetFunction.CountIf(Worksheets("Sayfa1").Range("a1:a" & i), Worksheets("Sayfa1").Cells(i, 1).Value) = 1 Then
UserForm2.ComboBox1.AddItem Worksheets("Sayfa1").Cells(i, 1)
End If
Next i
End Sub

bu kodda combolara alınacak veriler sayı ise veriler combolarda gözükmüyor sadece sayıları comboda süzme işlemlerini nasıl yapabiliriz
birde burada UserForm2.ComboBox1.AddItem Worksheets("Sayfa1").Cells(i, 1) şeklinde formülü kullanmamız şartmı başka bir yolu varmı 3 comboboxla

çalışmanın teşekkürler

 

[yanginci34]

With ComboBox1
.AddItem "ist"
.AddItem "izmir"
.AddItem "manisa"

selam arkadaşlar ben örnek dosyayı açamadım yukarıdaki il isimleri sayfa sayfamı acaba?

 

[Erdem Akdemir]

Merhaba,

Örnek dosya silinmiş, sizin nasıl bir çalışma istiyorsunuz.
Yeni konu açarsanız yardımcı olunur.

 

[yanginci34]

Ekli dosyayı görüntüle faaliyet icmalSON.xlsm
Öncelikle ilginiz için ço teşekkür ederim. Dosyam bu ben üç ilçede sorumlu olduğumuz yolların listesini iki combobox la halletmeye çalıştım ama olmadı beceremedim, işin ana adına göre işin detayı listelene bilirmi? birde bul düzelt sil özelliklerini ekleye bilirmiyiz ?

 

[yanginci34]

Merhaba,

Örnek dosya silinmiş, sizin nasıl bir çalışma istiyorsunuz.
Yeni konu açarsanız yardımcı olunur.

Ben bu konuya cevap olarak gönderdim umarım ters birşey değildir.