ComboBox çalışma

[polis-53]

Merhaba arkadaşlar ekte gönderdiğim dosyada 2 adet combo buton vardır ben commobox1 e hangi ili seçersem sayfa 2 deki o ilin karşılığındaki isimleri comboboxa gösretsin yardım ederseniz çok sevineceğim.

 

[snx111]

not :açıklama yetersiz ;
biraz üzerinde ugraşırsanız bu eski kod işinize yarayabilir ;

Private Sub ComboBox1_Change()

Dim son, sonb As Long
 son = Sayfa2.Cells(Rows.Count, 5).End(xlUp).Row
 sonb = Sayfa2.Cells(Rows.Count, 6).End(xlUp).Row

'If ActiveCell.Range("e2:e65") Is Nothing Then Exit Sub

Dim cll As Variant
Dim dizi As Range
x = ComboBox1.Text
 Set dizi = Sayfa2.Range("e1:e" & sonb)

For Each cll In dizi
If Not cll Is Nothing Then
If cll = x Then
If Not ActiveCell.Comment Is Nothing Then
ActiveCell.Comment.Delete
End If
com = Sayfa2.Cells(cll.Row, 6).Text
ComboBox2.Text = com

End If
End If
Next

End Sub

 

[polis-53]

Günaydın snx111 benim istediğim combobox1 hangi il seçilirse combobox2 ye sadece o ile karşılık gelen isimler gelsin diğerleri gelmesin ve combobox2 gelen ismilerin hangisini çecersem B2 hücresine yazsın

 

[snx111]

Merhaba arkadaşlar ekte gönderdiğim dosyada 2 adet combo buton vardır ben commobox1 e hangi ili seçersem sayfa 2 deki o ilin karşılığındaki isimleri comboboxa gösretsin yardım ederseniz çok sevineceğim.

aynen böyle yazmışşınız;
Kırmızıda geçmişsiniz;
sol sinyal lambası yanmıyor...
böylebir açıklamada yazmıyor "combobox2 gelen ismilerin hangisini çecersem B2 hücresine yazsın"

 

[asi_kral]

Günaydın snx111 benim istediğim combobox1 hangi il seçilirse combobox2 ye sadece o ile karşılık gelen isimler gelsin diğerleri gelmesin ve combobox2 gelen ismilerin hangisini çecersem B2 hücresine yazsın

Merrhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub ComboBox1_Change()
'Konu       :   Seçtiğim ile Göre Ad Getir
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim SAT As Long, S1 As Worksheet
Set S1 = Sheets("Sayfa2")
ComboBox2.Clear: ComboBox2 = Empty
For SAT = 6 To S1.Cells(Rows.Count, "E").End(xlUp).Row
If S1.Cells(SAT, "E") = ComboBox1 Then
ComboBox2.AddItem S1.Cells(SAT, "F")
End If: Next
End Sub
Private Sub ComboBox2_Change()
Range("B2") = ComboBox2
End Sub

Dosyanız Ekte.

 

[polis-53]

asi_kral_1967

çok teşekkür ederim siz gerçekten kral... BİR SORUN DAHA VAR İL COMBOBOX1 E İLLERİ BİRDEN FAZLA GÖSRERİYOR

 

[asi_kral]

çok teşekkür ederim siz gerçekten kral...

Kolay Gelsin.