Combobox tan seçilen sınıfa bilgileri listboxa aktarma

[moresby]

Combobox tan seçilen sınıfa bilgileri listboxa aktarmak istiyorum Yani 7/A sınıfını seçtiğim zaman 7/Asınıfı öğrencileri ListBox a gelsin bunu nasıl yapabiliriz. Birde notlar kısmındaki comboboxta sıra nolar değilde öğrenci nolar gelsin
Ben öğrenmek istiyorum sadece amacım bu ve size verdiğim zahmetten dolayıda özür dilerim şimdiden teşekkürler

 

[moresby]

Arkadaşlar yardım edecek yokmu

 

[recep]

örnek

bir örnek yollayabilir misin üzerine biraz çalışıp istediğin seklinde düzenleyebilme imkanı olur sa elimizden geldiği kadar yardım ederiz

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[moresby]

örnek yolladım ogrencitakip.xls kayıtlı

 

[moresby]

tş ederim ama bu seferde şöyle bir sıkıntı var oda listboxa gelen liste tıklandığında bilgiler aktarılmıyor hangi örenci seçilirse seçilsin bir öğrencinin bilgileri aktarılıyor

 

[moresby]

birde notlar kısmında öğreci noları gelsin istemiştim ama bu sefer öğrenci notları hiç gelmiyor artık ilginize teşekkürler

 

[Levent Menteşoğlu]

Yukarıdaki eki yeniledim tekrar inceleyebilirsiniz.

 

[moresby]

Notlar kısmında combobax a sıraların değilde öğrenci nolarının gelmesini istemiştim geldi ama bu sefer öğrencilerin notlarını çağırdığım zaman gelmiyor bu sorunumu da halledersen çok memun olurum

 

[moresby]

moresby, tşk

 

[moresby]

Notlar kısmında combobax a sıraların değilde öğrenci nolarının gelmesini istemiştim geldi ama bu sefer öğrencilerin notlarını çağırdığım zaman gelmiyor bu sorunumu da halledersen çok memun olurum

 

[moresby]

hala bekliyorum

 

[moresby]

arkadaşlar birazacil bana yardımcı olursanız sevinirim

 

[Levent Menteşoğlu]

Notlar pageindeki combobox1 e aşağıdaki kodu yazarak deneyin.

[vb:1:ac99490966]Private Sub ComboBox1_Click()
satir = ComboBox1.ListIndex + 2
For x = 12 To 95
Controls("textbox" & x + 1) = Cells(satir, x).Value
Next
End Sub[/vb:1:ac99490966]

 

[moresby]

tşk ederim sorunumu büyük ölçüde çözdü ama özür dileyerek bu seferde label çıkan isimler kayboldu onu çözmeye çalıştım fakat olmadı biliyorum biraz fazla oldum ama

 

[Levent Menteşoğlu]

Yukarıdaki kodu aşağıdaki ile değiştirin.

[vb:1:8247007100]Private Sub ComboBox1_Click()
satir = ComboBox1.ListIndex + 2
For x = 12 To 95
Controls("textbox" & x + 1) = Cells(satir, x).Value
Next
Label29 = Cells(satir, 4).Value
End Sub[/vb:1:8247007100]

 

[moresby]

çok teşkürler sorunum çözüldü size zahmet verdiğim içim özür dilerim

 

[Levent Menteşoğlu]

Rica ederim. Sorununuzun çözüldüğüne sevindim.

 

[moresby]

kusura bakma bir sorum daha olacak dosyada sadece 7/A seçtiğim halde neden 8//A daki bazılarının ismi geliyor

 

[moresby]

bu sorun sonradan kaydedilen kişiler için geçerli önceden kaydedilenler harhangi bir problem yaratmıyor