Çözüldü Userformdan userforma veri aktarma

[LİNDA]

Merhaba site üyelerinin yardımlarıyla ve araştırmalarımla yapmaya çalıştığım dosyamda userform3 e okul numarasıyla veri girişi yapıyorum. Ancak okul numarasını bilmeyenler olabiliyor bu durum için ARA düğmesine Userform4 ekledim. Orada adı ,soyadı, TC kimlik numarasına göre arama yapıyor ve text boxlara alabiliyorum. Userfom4 te bulunan Listboxa verileri Sayfa2 den alıyorum. Sayfa2 de ise iki sütun ekledim adı, soyadını ayrı ayrı arayabilmek için. Şu sorularımı çözemedim yardımcı olabilirseniz sevinirim
1- Userform4 de aranan öğrenciyi bularak texbox14 (okul No) tıklayarak userform3 da bulunan aynı aynı isimdeki textboxlara nasıl alabiliriz?
2- Userform4 de listbox a sadece arama sonuçlarına göre bilgiler gelebilir mi (açılışta listbox boş olabilir mi?
3-Userfom4 çıkış düğmesiyle çıkış yaparken neden excel sayfası üzerine userform3 açılıyor ?

 

[Refaz]

3-Userfom4 çıkış düğmesiyle çıkış yaparken neden excel sayfası üzerine userform3 açılıyor ?

Merhaba.

UserForm3.Show bu satırı silin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

2- Userform4 de listbox a sadece arama sonuçlarına göre bilgiler gelebilir mi (açılışta listbox boş olabilir mi?

lstöğrenci.RowSource = "Sayfa2!A2" & ":" & "G" & x
Yukardaki kodu silin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Daha doğrusu alttaki gibi kısaltın.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

1- Userform4 de aranan öğrenciyi bularak texbox14 (okul No) tıklayarak userform3 da bulunan aynı aynı isimdeki textboxlara nasıl alabiliriz?

Userform4 e alttaki kodu ekleyip devam edin eşlenecekleri ama tam anlamdım bazıları yok.
Ayrıca change yerine click gibide değiştirebilirsiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[LİNDA]

Merhaba.

UserForm3.Show bu satırı silin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Merhaba ilgi yardımlarınız için teşekkür ederim. Kullandığım aynı kod userform2 de sorunsuz işlem yapıyor . Userform3.Show satırını sildim ama sonuç değişmedi. Kopya olduğu için mi acaba ?

 

[LİNDA]

Daha doğrusu alttaki gibi kısaltın.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Söylediklerinizi yaptım sorunsuz çalışıyor. Teşekkür ederim. Sütunlar üzerine label ekleyerek isimlendireyim .

 

[LİNDA]

Merhaba Userformdan userforma veri aktarma konusunda Maddeler halinde cevaplanmış sorulara cevap yazarken konu çözümlendi olarak işaretlenmiş Diğer iki maddeye cevap yazamadım. Oysa iki soru henüz çözümlenmedi . Konu soru olarak devam edebilir mi acaba ?

 

[Refaz]

Söylediklerinizi yaptım sorunsuz çalışıyor. Teşekkür ederim. Sütunlar üzerine label ekleyerek isimlendireyim .

Rica ederim.Label eklemeden son halini ekleyin ayarlayayım istiyorsanız labelsiz olursa.

 

[LİNDA]

Userform4 e alttaki kodu ekleyip devam edin eşlenecekleri ama tam anlamdım bazıları yok.
Ayrıca change yerine click gibide değiştirebilirsiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Merhaba bir sütunu gizlemiştim .lstöğrenci.ColumnWidths = "30;30;100;100;0;90;30" listbox uzun olmasın diye .Eksik olanları şu şekilde tamamladım. Ama biryerlerde yanlış yapıyorum sanırım userform3 e sadece okul no geliyor üzerine tıkladığımda ARA butonuna geçiyor.

Private Sub TextBox14_Click()
With UserForm3
.TextBox1.Value = Me.TextBox14.Value
.TextBox2.Value = Me.TextBox15.Value
.TextBox3.Value = Me.TextBox16.Value
.TextBox4.Value = Me.TextBox18.Value
End With
End Sub

olarak değiştirdiğimde ise hiçbir bilgi aktarmadı.

 

[Refaz]

ilk olarak dizi ile veri aldığınız için Labeller eklemelisiniz yada başka bir sayfa daha ekleyip arananları oraya aktarılıp başlık ile oradan alınabilinir.
Alttaki kod ile dğiştirin ilgili kodu.Private Sub TextBox14_Click() böyle kod olmaz textboxtta genelde ama bir bakayım.
Koddaki lstöðrenci gibi bozuk karakterleri düzeltin kopyala yapıştır yapınca.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

ikinci olarakta adı ve soyadı için aramalar için kodları alttakiler ile değiştirin.
Normal bir sub yazılıp parametreler ile kod tekrrı olmadan kısalabilinir ama karıştırmayalım orayı şimdilik

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Private Sub TextBox14_Click()

Baktım textboxların tıklama olayı yok(Click)
Onun yerine ya çift tıklama yada alttaki gibi kullanın.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Dosyanın düzenlenmiş hali ekte hata varsa bildirin.
Birde önceki mesajda yazığım kısaltma olayını alttaki kod ile yaptım.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[LİNDA]

Dosyanın düzenlenmiş hali ekte hata varsa bildirin.
Birde önceki mesajda yazığım kısaltma olayını alttaki kod ile yaptım.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bende userform4 e label ekledim cevap yazarken sizden cevap geldi. Emeğinize sağlık teşekkür ederim .
Ama şu çıkış düğmesinde Userform3.Show satırı silmeme rağmen hala excel sayfasını açıyor.Aynı kod userform2 de var onda sorun olmuyor
Birde userform4 da texbox13 e tıklayarak userform3 e aldığımız öğrenci data sayfasına kayıtlı ise( listbox1 de varsa) yani listbox1 e süzme yapsa çok mu lüks olur ?

 

[Refaz]

Ama şu çıkış düğmesinde Userform3.Show satırı silmeme rağmen hala excel sayfasını açıyor

Alttakini ya tüm silin yafa True yerine false yazın.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[LİNDA]

Alttakini ya tüm silin yafa True yerine false yazın.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Teşekkür ederim . True yerine False olarak değiştirdim . İstediğim gibi çalışıyor.
Birde userform4 da texbox13 e tıklayarak userform3 e aldığımız öğrenci data sayfasına kayıtlı ise( listbox1 de varsa) yani listbox1 e süzme yapsa çok mu lüks olur ? Bu soruya çözüm yoksa diğer sorumlarım cevaplanmış oldu emeğinize sağlık minnettarım yardımınız için

 

[Refaz]

Birde userform4 da texbox13 e tıklayarak userform3 e aldığımız öğrenci data sayfasına kayıtlı ise( listbox1 de varsa) yani listbox1 e süzme yapsa

Rica ederim.
Dosyanızdaki kodların çoğu gereksiz ve fazla ve yanlış.Mesela alttaki userform3 deki kod içindekiler additem olarak yapılmış lakin bu yöntemle en fazla 10 satır alınır listboxa.

Gif ekledim.Userorm3 teki okul noya veri girincede arama yapar ve gifteki gibi tıklamailede yapar.
Belki eksikler olabilir.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[LİNDA]

Rica ederim.
Dosyanızdaki kodların çoğu gereksiz ve fazla ve yanlış.Mesela alttaki userform3 deki kod içindekiler additem olarak yapılmış lakin bu yöntemle en fazla 10 satır alınır listboxa.

Gif ekledim.Userorm3 teki okul noya veri girincede arama yapar ve gifteki gibi tıklamailede yapar.
Belki eksikler olabilir.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ekli dosyayı görüntüle 5690

Harika oldu pazar gününüzü verdiniz minnettarım hakkınızı helal edin Haklısınız gereksiz yada artık kullanılmayan düğmeler için kullanılan kodlar var onları silerim. Kodlamayı araştırmalar yaparak öğrenmeye çalışıyorum .Sonuç böyle oluyor malesef. Şimdilik işime yarayacak bi dosya oldu