Combobox1'in Combobox2 ile süzülmesi

[EKREM1661]

Değerli arkadaşlar..! Ekli dosyada, Combobox1 de seçilen verinin, sadece karşılıklarını Combobox2 de listelemek konusunda yardımcı olursanız.. (Forumdaki bazı örnekler buldum, fakat istediğim anlamda uyarlayamadım)

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Change()
Dim i As Long, sh As Worksheet, sonsat As Long
Set sh = Sheets("Sayfa1")
ComboBox2.Clear
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
For i = 11 To sonsat
    If sh.Cells(i, "B").Value = ComboBox1.Value Then
        ComboBox2.AddItem sh.Cells(i, "D").Value
    End If
Next i
End Sub

Private Sub ComboBox2_Change()
Dim i As Long, sh As Worksheet, sonsat As Long
Set sh = Sheets("Sayfa1")
ComboBox3.Clear
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
For i = 11 To sonsat
    If sh.Cells(i, "B").Value = ComboBox1.Value And sh.Cells(i, "D").Value = ComboBox2.Value Then
        ComboBox3.AddItem sh.Cells(i, "E").Value
        ComboBox3.ListIndex = 0
    End If
Next i
End Sub

 

[EKREM1661]

Saygıdeğer Evren hocam, tek kelimeyle harika olmuş.. Elinize ve bilginize sağlık..Çok teşekkür ediyorum.. Son olarak şunu sormuş olayım.. Tasarladığım, fakat kafa karıştırmamak için sormadığım bir ayrıntı var. (olabilecekse..olmayacaksa sorun değil)

Şöyleki; Combobox2 listesindeki verilerin, E sütunundaki karşılığı Combobox3 de görüntüye geldiği gibi, Combobox2 listesinin yanında da görüntüye getirilebilir mi?

(Yani bir nevi, D ve E sütunlarını combobox2 içerisine almak gibi bir şey oluyor..) Maksat, combobox2 listesine tıklamadan önce, combobox3 e ne geleceğini görmek..)

 

[Orion1]

Saygıdeğer Evren hocam, tek kelimeyle harika olmuş.. Elinize ve bilginize sağlık..Çok teşekkür ediyorum.. Son olarak şunu sormuş olayım.. Tasarladığım, fakat kafa karıştırmamak için sormadığım bir ayrıntı var. (olabilecekse..olmayacaksa sorun değil)

Şöyleki; Combobox2 listesindeki verilerin, E sütunundaki karşılığı Combobox3 de görüntüye geldiği gibi, Combobox2 listesinin yanında da görüntüye getirilebilir mi?

(Yani bir nevi, D ve E sütunlarını combobox2 içerisine almak gibi bir şey oluyor..) Maksat, combobox2 listesine tıklamadan önce, combobox3 e ne geleceğini görmek..)

Combobox2 nin propertiesten columnCount özelliğini 2 yaptım.
Dosyanız ektedir.

Private Sub ComboBox1_Change()
Dim i As Long, sh As Worksheet, sonsat As Long[B][COLOR="red"], x As Long[/COLOR][/B]
Set sh = Sheets("Sayfa1")
ComboBox2.Clear
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
For i = 11 To sonsat
    If sh.Cells(i, "B").Value = ComboBox1.Value Then
       [B][COLOR="Red"] ComboBox2.AddItem
        ComboBox2.List(x, 0) = sh.Cells(i, "D").Value
        ComboBox2.List(x, 1) = sh.Cells(i, "E").Value
        x = x + 1[/COLOR][/B]
    End If
Next i
End Sub

 

[EKREM1661]

Sn.Evren hocam, hakikaten teşekkürler..Allah razı olsun..

 

[Orion1]

Sn.Evren hocam, hakikaten teşekkürler..Allah razı olsun..

Rica ederim.
İyi çalışmalar.