ListBox

[ahmett46]

Slm arkadaşlar
1 den 500 e kadar sıralanmış öğrenci numaraları (A sütunu), karışık şekilde dağılmış 1 den 8 e kadar sınıflar (B sütunu) ve öğrenci ismleri var.UserFormda ComboBoxs ve ListBoxs var. ListBoxs taki sınıflardan örneğin 5 seçtiğim zaman A sütunundan 5. sınıfları bulup ComboBoxs ta gösterecek. Nasıl yaparız? Başta Sayın Levent Hocam olmak üzere yardımlarınızı bekliyorum. TEŞEKKÜRLER

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[ahmett46]

Dosya ektedir. İlginiz için teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodları userformun kod sayfasına kopyalayın.

Private Sub ListBox1_Click()
ComboBox1.Clear
For a = 2 To [a65536].End(3).Row
If CStr(Cells(a, "b")) = ListBox1 Then ComboBox1.AddItem Cells(a, "a")
Next
End Sub 

Private Sub UserForm_Initialize()
For a = 1 To 8
ListBox1.AddItem a
Next
End Sub

 

[ahmett46]

Sayın Hocam Selamlar
Kodu yazdım oldu ama tam tersi oldu.ListBox ta öğrenci numarası ve isimler ComboBox ta sınıf seçimi yapacaktım. Yerlerini değiştirdim ama olmuyor. Tekrar bi göz atarsanız sevinirim. Teşekkürler.

 

[Levent Menteşoğlu]

Ben sizin sorunuza göre verdim kodları, tersi için aşağıdaki gibi düzenleyin. Yani listbox yazan yere combobox, combobox yazan yere listbox yazın.

[LEFT]Private Sub ComboBox1_Click()
ListBox1.Clear
For a = 2 To [a65536].End(3).Row
If CStr(Cells(a, "b")) = ComboBox1 Then ListBox1.AddItem Cells(a, "a")
Next
End Sub [/LEFT]
 
[LEFT]Private Sub UserForm_Initialize()
For a = 1 To 8
ComboxBox1.AddItem a
Next
End Sub[/LEFT]

 

[ahmett46]

Sayın Hocam bu seferde Düğme_Tıklat' a UserForm1.Show yazıyorum ama hata veriyo neden

 

[ahmett46]

Arkadaşlar hala çözüm arıyorum ilgilenen yok mu?

 

[Mahmut Bayram]

Sebebi şu;
Sn. levent m in en son kodlarındaki
ComboxBox1.AddItem a
bu ifadedeki ComboxBox1
ComboBox1 olacak.
Fazladan x yazılmış.

 

[ahmett46]

Teşekkür ediyorum bende hiç görmemişim. Kardeş bi sorum daha olacak numaraların karşısına isimleri nasıl ekleriz? Tekrar teşekkürler

 

[ahmett46]

Slm Arkadaşlar
UserForm a bir ComboBox daha ekleyip A,B,C şubelerini de eklemek istiyorum.ListBox ta Öğrenci No ve Adı Soyadının görünmesini istiyorum. Örnek ektedir yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[Mahmut Bayram]

İsteğiniz üzere bir kaç karalama yaptım.
Son hali ektedir.

 

[ahmett46]

Teşekkür ediyorum Hocam ama bu seferde numaralar ve isimler ListBox a gelmiyor

 

[Mahmut Bayram]

Ahmet bey sorun şundan kaynaklanıyor.
Siz sınıfı bölümündeki sınıfları 1A,1B,1C gibi yazmazsanız olmaz.
büyük küçük harf duyarlıdır oradaki sınıflar 1, 2, 3, 4, 5, 6, 7, 8 diye kalmasın.
1A
1B
.
.
.
diye değiştirin.
Yoksa bulup getirmez.

İyi geceler.

 

[ahmett46]

teşekkür ediyorum

 

[arslanyucel]

combobox

Mısır
Pamuk
Üzüm
Zeytin
Kırmızı Biber
Karışık Meyvelik
Karışık Sebzelik
Antep Fıstığı
Arpa
Elma

yukardaki ürünleri excelde açılır kutu(combobox) yapıp, comboboxta seçmiş olduğum veriyi aynı sayfadaki a1 hücresine yazdırmak istiyorum ama beceremiyorum. comboboxu yapıp içine listeyi atıyorum ama comboboxtaki listedeki veriyi hücreye yazdıramoyorum. kusuruma bakmayın bu işte yeniyim. yardım ederseniz sevinirim
__________________
ofis xp türkçe