• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan ahmett46
  • Başlangıç tarihi Başlangıç tarihi
A

ahmett46

Katılım
1 Şubat 2007
Mesajlar
516
Excel Vers. ve Dili
excel2003
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.
 
Eki inceler misiniz?

Not:Adı ve soyadı kısımlarını ayırdım.
 
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?
 
Slm arkadaşlar herkese günaydın
Bu konuda yardım edecek kimse mi yok, yoksa istediğim imkansız bir olay mı?
 
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.
 
ahmett46' Alıntı:
......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. ........
Genişletmek için tıkla ...

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.
 
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
 
hexadesimal' Alıntı:
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.
Genişletmek için tıkla ...

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?
 
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.
 
Sayın Hocam çok teşekkür ediyorum elinize sağlık İyi çalışmalar
 
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
 
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:
 
A&#351;a&#287;&#305;daki gibi deneyin.

Kod: 
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
 
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
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst