Listboxa veri gönderme

[sahika51]

İyi akşamlar. Saygıdeğer forum üyeleri. Küçük bir yardıma ihtiyacım var. Yardım ederseniz sevinirim.
Ekteki dosyamda bir userform var. İçerisinde Listbox var.
Userform açıldığında sayfa1 deki verilerimin tamamının Listbox1 e gelmesi gerekiyor.
texBox1 e değer girdikçe Sayfa1 A sütünundaki değerlere ait a b c d e f g h bilgilerinin de Listboxta görüntülenmesi gerekiyor.

Bu sorgulamadan sonra yazıcı butonu ekleyeceğim. Ancak ordada şöyle bir sorunum var. örnek vererek anlatayım.
Forumda epey araştırdım. textboxtaki değerlerin direk çıktısı alınabiliyor ama örnekte anlattığı gibi bir çıktı alma bulamadım.
örnek

Sayın (B sütündan tc gelecek) T.C. Kimlik Numaralı (A sütündana Ad soyad gelecek) bizden istemiş olduğunuz belge .......

gibi bir çıktı hazırlayacağım.


Bu kadar. Yardımlarınız için şimdiden teşekkür ederim.

 

[BAZGİRET]

İnceleyiniz. Anlayabildiğim istekleri dosyanıza uyguladım. Diğer istekleri biraz daha detaylandırırsanız onlar da cevaplandırılabilir. İyi geceler

 

[sahika51]

aslında yukarıda açıkcaanlattım ama yeniden açıklayayım.
1--- formda Adı Soyadı kısmına değer girmeye başladığım anda listwiev de ki listede içerisinde geçen değerler görünsün diğerleri gitsin. örneğin
fe yazdığımda Listwiev de Ferudun ve efe görünmeli. fer yazdığımda sadece ferudun görünmeli gibi
2--- listview den değer seçersem yukarıdaki ilgili textboxları doldurmalı
3--- Yazdır butonu koydum oraya yazdır dediğimde ara ma sonucunda gelen değereri yazıcıya şu şekilde aktaracağım

Sayın, (T.C.KİMLİK NUMARASINI ALACAK), T.C. Kimlik Numaralı (AD SOYAD ALACAK), yaşınız (YAŞ ALACAK) olmasına (DİL ALCAK) yabancı dil öğrenebilirsiniz.
--------Biraz saçma oldu ama idare edin-----

gibi bir belge alacağım. ben burayı yapacağım işe göre geliştireceğim.
Bu kadar

 

[sahika51]

İnceleyiniz. Anlayabildiğim istekleri dosyanıza uyguladım. Diğer istekleri biraz daha detaylandırırsanız onlar da cevaplandırılabilir. İyi geceler

aslında yukarıda açıkcaanlattım ama yeniden açıklayayım.
1--- formda Adı Soyadı kısmına değer girmeye başladığım anda listwiev de ki listede içerisinde geçen değerler görünsün diğerleri gitsin. örneğin
fe yazdığımda Listwiev de Ferudun ve efe görünmeli. fer yazdığımda sadece ferudun görünmeli gibi
2--- listview den değer seçersem yukarıdaki ilgili textboxları doldurmalı
3--- Yazdır butonu koydum oraya yazdır dediğimde ara ma sonucunda gelen değereri yazıcıya şu şekilde aktaracağım

Sayın, (T.C.KİMLİK NUMARASINI ALACAK), T.C. Kimlik Numaralı (AD SOYAD ALACAK), yaşınız (YAŞ ALACAK) olmasına (DİL ALCAK) yabancı dil öğrenebilirsiniz.
--------Biraz saçma oldu ama idare edin-----

gibi bir belge alacağım. ben burayı yapacağım işe göre geliştireceğim.
Bu kadar

 

[BAZGİRET]

O halde benim başlattığım yoldan ilerleyin.

 

[sahika51]

O halde benim başlattığım yoldan ilerleyin.

Çok teşekkür ederim. uğraştınız. olmuş ama küçük birşey formu ilk açtığımızda hiç bir işlem yapmadan listeden her hangi bir isim seçtiğimizde adı soyadı kısmı boş kalıyor. Diğer bilgiler geliyor. Ad soyad kısmıda gelebilirmi. Birde yazıcı önizleme yaparak çıktı alabilirmiyiz.

 

[sahika51]

Arkadaşlar kolay gelsin. Yukarıda ki dosyayı yeniden yüklüyorum. Programda bir yeri düzeltirken başkab bir yeri atlıyoruz sanırsam. Bazgiret sağolasın yardımcı oluyor.

Sorun şu Programda formu açtık. ListBox tan Ad soyad seçtiğimizde İsim yukarıdaki TextBox1 e gelmiyor. Gelmesi Gerekiyor.
TextBox1 e Ad Soyad Bilgisi gelmediği için güncelleme de de sıkıntı çıkıyor.

Yardımlarınızı bekliyorum.

 

[sahika51]

Listbox1 e şöyle bir kod buldum. ancak 1 defa seçim yapıyorum ve öylece kalıyor


Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
UserForm1.TextBox1 = ListBox1.Column(0, i)
UserForm1.TextBox2 = ListBox1.Column(1, i)
UserForm1.TextBox3 = ListBox1.Column(2, i)
UserForm1.TextBox4 = ListBox1.Column(3, i)
UserForm1.TextBox5 = ListBox1.Column(4, i)

End If
Next i

End Sub

 

[BAZGİRET]

Ara butonunun işlevini TextBox1 e bağlanmasını istediğiniz için listbox click ile textbox1 e isim gelmez. hata verir.
Arama yapacağınız tb yi ayırdım.

 

[sahika51]

Ara butonunun işlevini TextBox1 e bağlanmasını istediğiniz için listbox click ile textbox1 e isim gelmez. hata verir.
Arama yapacağınız tb yi ayırdım.

Teşekkür Ederim.