ListBox'un içindeki isme tıkladığım zaman UserForm2 açılsın

[ahmett46]

Slm Sayın Hocalarım ve Arkadaşlar. Herkese iyi akşamlar diliyorum.
Ekte gönderdiğim dosyada ana sayfada sınıf listesinden listbox içindeki ismin üzerine tıkladığımda UserForm3 ün açılmasını istiyorum. UserForm3 te üstteki 3 adet kutucuğada numarasını adını ve soyadını yazmasını istiyorum. Yardımlarınızı bekliyorum. Teşekkürler.

 

[hamitcan]

Eki inceler misiniz?

Not:Adı ve soyadı kısımlarını ayırdım.

 

[ahmett46]

Teşekkür ederim peki sınıf kısmını ayırabilirmiyiz? bu isimlerin üstüne tıkladığımızda UserForm2 açılması mümkün değilmi?

 

[ahmett46]

Slm arkadaşlar
Yardım edecek kimse yokmuuuuu?

 

[ahmett46]

Sayın Leventm hocam yardım lütfen

 

[ahmett46]

İlgilenen kimse yok mu arkadaşlar. Tıkandım.

 

[ahmett46]

Slm arkadaşlar herkese günaydın
Bu konuda yardım edecek kimse mi yok, yoksa istediğim imkansız bir olay mı?

 

[Hakan ERDOST]

Sınıf kısmını ayırmaktaki kastınız nedir? Sanırım sorunu tam ifade edemediğiniz için yanıt alamıyorsunuz.

 

[Levent Menteşoğlu]

......Ekte gönderdiğim dosyada ana sayfada sınıf listesinden listbox içindeki ismin üzerine tıkladığımda UserForm3 ün açılmasını istiyorum. UserForm3 te üstteki 3 adet kutucuğada numarasını adını ve soyadını yazmasını istiyorum. ........

Sorunuzu yanlış ifade etmişsiniz. Ana sayfadaki "Sınıf listesi" butonunu tıklayınca zaten userform3 açılıyor. Sorunuzu düzeltirseniz ona göre yardımcı olamaya çalışırız.

 

[ahmett46]

Sayın hocam Ana sayfadan sınıf listesine tıkladığımızda UserForm3 açılıyor. Burdan sınıf ve şube seçimi yaptığımız zaman UserForm3 teki Listbox ta o sınıfa ait sınıf listesi oluşturuyor. Sormak istediğim burdaki isimlerin üstüne tıkladığımızda UserForm2 açılsın ve UserForm2 deki (üstteki) üç kutuya öğrenci no adı ve soyadı gelsin istiyorum.Umarım daha açık ifade etmişimdir. Saygılarımla

 

[ahmett46]

Sınıf kısmını ayırmaktaki kastınız nedir? Sanırım sorunu tam ifade edemediğiniz için yanıt alamıyorsunuz.

Dikkat ettiyseniz UserForm2 de şube seçiminde "/A" şeklinde seçiyorum.Sınıf sadece 1,2,3... şeklinde şubeyi de A,B,C şeklinde kayıt yapıyoruz. Sınıf listesinde Sınıf listesi sayfasında "ch" sütununa birleştir(b1;c1) formülünü koymak zorunda kaldım gereksiz yere. Bilmem anlatabildim mi?

 

[Levent Menteşoğlu]

Dosyanızda biraz düzenleme yaptım, Ayrı bir sütunda birleştirerek verileri alma yönteminizi değiştirdim. Böylece bu sütunlara gerek kalmadı. Listboxta seçilen veriye çift tıkladığınızda userform2 açılacaktır.

 

[ahmett46]

Sayın Hocam çok teşekkür ediyorum elinize sağlık İyi çalışmalar

 

[ahmett46]

Sayın Hocam bu konuda sizden bir ricam daha olacak.Dosyayı ekte gönderiyorum. İncelerseniz not girişlerinde 1,2,3. sınıflar da proje, performans ve ders içi performans direk ortalaması alınıyor. 4,5,6,7 ve 8. sınıflarda önce proje, performans ve ders içi performansın ayrı ayrı ortalaması daha sonra bu ortalamalarla yazılıların ortalaması alınıyor. Notları aynı bölümden girdiğimiz zaman yanlış hesaplanmış oluyor. Onun için 1,2 ve 3. sınıflar için ayrı bir bölüm ekledim. ama sınıf listesinden isim üzerine çift tıkladığımızda sadece 4,5,6,7,8. sınıfların not girişi açılıyor. Sizden ricam eğer sınıf<4 ise not123, değilse not45678 açılsın yani sınıf listesinden 1,2,3. sınıfları seçip isim üzerine tıkladığımızda not123 4,5,6,7,8. sınıflardan birini seçip isim üzerine tıkladığımızda not45678 açılsın. Tabi mümkünse Teşekkürler

 

[ahmett46]

Slm arkadaşlar
Yok mu Yardım edecek kimse!

 

[ahmett46]

Arkadaşlar yardım lütfen

 

[ahmett46]

Arkadaşlar şu sorunu çözecek yokmu
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For a = 1 To 1
UserForm2.Controls("textbox" & a) = ListBox1.Column(a - 1)
If ComboBox1 < 4 Then
UserForm4.Show
If ComboBox1 >= 4 Then Exit Sub
UserForm2.Show
End If
Next
End Sub
şeklinde bir kod yazdım ama olmuyo:yardim:

 

[ahmett46]

Slm arkadaşlar ACİL:yardim:

 

[Levent Menteşoğlu]

A&#351;a&#287;&#305;daki gibi deneyin.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For a = 1 To 3
UserForm2.Controls("textbox" & a) = ListBox1.Column(a - 1)
UserForm4.Controls("textbox" & a) = ListBox1.Column(a - 1)
Next
If ComboBox1 * 1 < 4 Then UserForm4.Show
If ComboBox1 * 1 > 3 Then UserForm2.Show
End Sub

 

[ahmett46]

Te&#351;ekk&#252;rler Hocam. Kusura bakmay&#305;n ama bir sorum daha olacak. S&#305;n&#305;f se&#231;imi yapt&#305;ktan sonra UserForm u kapatmadan tekrar ba&#351;ka bir s&#305;n&#305;f se&#231;ti&#287;imizde s&#305;n&#305;f&#305; de&#287;i&#351;tirmiyor.Ancak UserForm u kapat&#305;p tekrar a&#231;&#305;nca de&#287;i&#351;tiriyor. Neden kaynaklan&#305;yor. Tekrar te&#351;ekk&#252;rler