UserForm ComboBox1,ComboBox2,ComboBox3 Göre ListBox' a Veri Gelmesi

[Hantor]

Kolay gelsin;

UserForm' lu bir dosyamda ComboBox1,ComboBox2,ComboBox3 Göre ListBox' a Veri Gelmesi mümkün müdür. Mesala ComboBox1 de seçim yaptım ComboBox2 yada ComboBox3 de yoksa boş gözüksün şimdiden teşekkür ederim.

 

[Hantor]

Günadın Herkese;

Konum anlaşılmadı mı? Acaba siteden ilgili bir arkadaş yardımcı olabilir mi?

 

[Hantor]

Yardımcı olabilecek misiniz.

 

[Hantor]

Arkadaşlar bir allahın kulu olabilir yada olamaz diye bir mesaj atabilirmi

 

[Zeki Gürsoy]

Olabilir. Örnek dosya ekleyerek sorunuzu biraz daha açın. Örneğin Combolar birbirleriyle bağlantılı mı?

 

[Hantor]

Evet Bağlantılı Fakat Örnek dosyamız mevcut değildir. Sadece Kodu gerekmektedir.

 

[Hantor]

İyi Çalışmalar;

Yukarıda göndermiş olduğum sizden yardım istediğim soruya teşekkürler kimse cevap vermedi neyse sağdan soldan araştırma ile kodu buldum fakat bir hata vermektedir. Acaba tarafınıza göndermiş olduğum kodu inceleyebilir misiniz hata neden kaynaklanmaktadır. Bari bu konu hakkında yardımcı olunuz.



Private Sub ComboBox1_Change()
ListBox1.RowSource = Empty
ListBox1.Clear
ListBox1.ColumnCount = 25

For Each isim In Worksheets("TümAnaData").Range("C2:C" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("C2:C100000")) + 1)
If UCase(LCase(isim)) Like UCase(LCase(ComboBox1)) & "*" Then
liste = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(liste, 0) = isim
ListBox1.List(liste, 1) = isim.Offset(0, 1)
ListBox1.List(liste, 2) = isim.Offset(0, 2)
ListBox1.List(liste, 3) = isim.Offset(0, 3)
End If
Next
End Sub
Private Sub ComboBox2_Change()
ListBox1.RowSource = Empty
ListBox1.Clear
ListBox1.ColumnCount = 25

For Each isim In Worksheets("TümAnaData").Range("D3" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("D3100000")) + 1)
If UCase(LCase(isim)) Like UCase(LCase(ComboBox2)) & "*" Then
liste = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(liste, 0) = isim.Offset(0, -1)
ListBox1.List(liste, 1) = isim
ListBox1.List(liste, 2) = isim.Offset(0, 1)
ListBox1.List(liste, 3) = isim.Offset(0, 2)

End If
Next
End Sub
Private Sub UserForm_Initialize()

ComboBox1.RowSource = "TümAnaData!C3:C" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("C3:C100000"))
ComboBox2.RowSource = "TümAnaData!D2" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("D3100000"))

ListBox1.RowSource = "TümAnaData!B3:Z" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("C3:C100000"))
ListBox1.ColumnCount = 25
ListBox1.ColumnWidths = "50;50;50;50;80;40;60;100;70;90;90;157;157;50;50;50;50;50;100;157;157;157;157;100;100"
ComboBox1.SetFocus

End Sub

 

[Hantor]

Göndermiş olduğum Dosyada ComboBox1,ComboBox2,ComboBox3 te seçtiğim verilere göre ListBoxta gözükmesi ve ComboBox ta gözüken veriler çift kayıt ise tek olarak gözükmesi mümkünmüdür.