Çoklu Listbox ile textbox veri

[mami38]

merhaba arkadaşlar,

Listbox1'de 5tane hücre değerlerini gösteriyor. Ben listbox1'de veri seçtiğimde Adı Soyadı'na göre verileri textboxlara dağıtmasını istiyorum.

Örneğin;

"Ahmet Çavdar" a ait verilere tıkladığımda, o kişinin doğum yeri-yaşı-askerliği gibi bilgileri textboxlarda göstermesini istiyorum.

Nasıl yapabiliriz, örnek dosya ektedir.

Teşekkürler, iyi çalışmalar.

 

[forever215]

Merhaba,
Dosyayı indiremiyorum ama anladığım kadarıyla bir user form'un içinde listbox ve textboxlar var listbox'ın rowsource'una hücreler bağlı ise listbox click olayına şu kodu yazabilirsiniz;

Private Sub ListBox1_Click()
TextBox1.Text = ListBox1.List(ListBox1.ListIndex, 1)
TextBox2.Text = ListBox1.List(ListBox1.ListIndex, 2)
End Sub

 

[muygun]

Merhaba;
Alternatif olsun:

Userform'un kod kısmına;

Private Sub ListBox1_Click()
sat = ListBox1.ListIndex
Controls("TextBox1") = ListBox1.List(sat, 0) & " " & ListBox1.List(sat, 1)
Controls("TextBox2") = ListBox1.List(sat, 3)
Controls("TextBox3") = ListBox1.List(sat, 4)
Controls("TextBox4") = ListBox1.List(sat, 2)
End Sub

Kodlarını ekleyerek deneyin.
İyi çalışmalar.

 

[Orion1]

Alternatif.

Private Sub ListBox1_Click()
TextBox1.value = ListBox1.column(0)
TextBox2.value = ListBox1.column(1)
End Sub

 

[mami38]

Listbox'ta olmayan verileride nasıl textboxa yazdırabilirim.

Mesela A-B-C-D hücreleri listboxta yer alıyor. Ben Listboxtan veriyi seçtiğimde o verinin bulunduğu satırın F hücresini textboxa yazdırmak istiyorum.

 

[mami38]

Column yükselterek sorunu çözdüm.

Başka bir sorum daha olucak

Tarih yazılı hücreleri textboxa aldığında değişik rakamlar geliyor, bunu nasıl çözebiliriz.

 

[mami38]

tarih sorununuda çözüldü

İhtiyacı olanlar aşağıda ki kodu kullanabilir.

TextBox15 = Format(TextBox15, "dd.mm.yyyy")