Comboboxlar arası ilişki

[orkuncan5]

adı-soyadı ve lakabı comboboxlarına veri aldığımda bu comboboxlarda gözüken verileri bilgiler comboboxunda nasıl gösteririm.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
ComboBox4 = ComboBox1
End Sub

Private Sub ComboBox2_Change()
ComboBox4 = ComboBox1 & "  " & ComboBox2
End Sub

Private Sub ComboBox3_Change()
ComboBox4 = ComboBox1 & "  " & ComboBox2 & "  " & ComboBox3
End Sub

 

[orkuncan5]

Comboboxlarda görülen veriler bilgiler comboboxunda yanyana değilde altalta nasıl gösteririz.Yani veriler sanki satır kaynağından geliyormuş gibi ama comboboxlarda ne seçili ise bilgiler comboboxu o seçili olanları altalta göstersin istemiştim.İlginiz için teşekkür ederim Ziya Bey.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
Call UserForm_Activate
End Sub

Private Sub ComboBox2_Change()
Call UserForm_Activate
End Sub

Private Sub ComboBox3_Change()
Call UserForm_Activate
End Sub

Private Sub UserForm_Activate()
ComboBox4.Clear
son = Cells(Rows.Count, "a").End(xlUp).Row
For Each alan In Range("a2:c" & son)
For COMBO = 1 To 3
    If Controls("ComboBox" & COMBO) Like alan Then
    ComboBox4.AddItem alan
    End If
Next
Next
End Sub

 

[orkuncan5]

teşekkür ederim tam istediğim gibi.

 

[orkuncan5]

Verdiğiniz kodları ekteki proğrama uyarlamaya çalıştım ama sorun çıkardı.Yardımcı olabilirmisiniz.

 

[Orion1]

aşaıdaki kodu userformun modülünde en alta yazın.
Ve 4 combobox tan exit olayından o prosedürü çağırın.

Sub cmbsay()
ComboBox5.Clear
ComboBox5.AddItem ComboBox3.Text
ComboBox5.AddItem ComboBox1.Text
ComboBox5.AddItem ComboBox4.Text
ComboBox5.AddItem ComboBox2.Text
ComboBox5.ListIndex = 0
End Sub

 

[orkuncan5]

Evren Bey uğraştım ama yapamadım.Yardımcı olurmusunuz.

 

[teknadir]

Çalışmamda 25 tane combobox var. 25 comboboxta aynı değerin 2 kere seçilememesi için ne yapmam lazım?