ListBox da seçilen satırların TexBox'lara gelmesi

[sdegirmenci]

Merhaba;
Ekli dosyamda Form üzerinde ListBox da seçtiğim satırların TexBox'lara gelmesi için yazılan kod var , önceden çalışmasına rağmen çalışmamaya başladı , nerede hata olduğunu bulamadım, bu konuda yardımcı olabilirseniz çok sevinirim, Şimdiden çok teşekkür ediyorum. Saygılarımla

 

[halit3]

Merhaba;
Ekli dosyamda Form üzerinde ListBox da seçtiğim satırların TexBox'lara gelmesi için yazılan kod var , önceden çalışmasına rağmen çalışmamaya başladı , nerede hata olduğunu bulamadım, bu konuda yardımcı olabilirseniz çok sevinirim, Şimdiden çok teşekkür ediyorum. Saygılarımla

Bu kodlar gerçekten çalışıyormuydu bu şekliyle çalışmaz.
Sadece listbox nesnesine gelmesi için

Private Sub ListBox1_Click() kodunun
aşağıdaki bölümlümlerin yerine

Val (ListBox1.Column(0))

bununla değiştirin.

ListBox1.ListIndex

Yani birinci sıranosu.text için böyle olmalı

sıranosu.Text = ÜF.Cells(ListBox1.ListIndex + 5, "C")

Ben sadece sorunuzun bu tarafına cevap veriyorum.

 

[sdegirmenci]

Halit Hocam merhaba ,
İlginize çok teşekkür ederim, Kodlar sizin en son yazdığınız şekilde idi, Listbax süzme yapıldığında sıralamada hata veriyordu, Yine forumda hocalarımdan biri mevcut kodu yazdı, çalışıyordu, aynı kodun çalıştığı başka proğram var, Onuda ekliyorum,

 

[halit3]

Halit Hocam merhaba ,
İlginize çok teşekkür ederim, Kodlar sizin en son yazdığınız şekilde idi, Listbax süzme yapıldığında sıralamada hata veriyordu, Yine forumda hocalarımdan biri mevcut kodu yazdı, çalışıyordu, aynı kodun çalıştığı başka proğram var, Onuda ekliyorum,

Örnek dosyanızdaki userformu örnek2 dosyanıza ekleyince örnek2 dosyanızda kodlar çalışıyor

Sorun örnek dosyanızdaki sayfadan veya örnek dosyanızın fiziki durumundan kaynaklanıyor. Sebebini bulamadım.