Listbox-Textbox bağıntısı

[osmanfenerli1907]

MERHABALAR
userform1deki listbox1 verilerini sayfa1 deki A2:A500 den alıyor.Ben listboxtaki verilerin herhangi birine tıkladığımda textbox1e listbox1 deki o verinin exceldeki karşılığı olan satırdaki B C E ve O sütununda yazanlar sıralansın.Umarım sorumu anlayabilmişsinizdir.
İYİ GÜNLER

 

[Orion1]

Merhaba.
Userform'un kod sayfasına Aşağıdaki kodu kopyalayın.

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
TextBox1.Value = Cells(ListBox1.ListIndex + 2, "B").Value & Cells(ListBox1.ListIndex + 2, "C").Value _
& Cells(ListBox1.ListIndex + 2, "E").Value & Cells(ListBox1.ListIndex + 2, "O").Value
End Sub

 

[osmanfenerli1907]

Hocam teşekkürler
AMA tek sorun textbox1in verileri alt alta sıralamasını istiyorum.
iyi günler

 

[osmanfenerli1907]

HOCAM yardımcı olabilir misiniz?

 

[Orion1]

Merhaba.
Properties'ten Textbox'ın MultiLine özellliğini True yapınız
Sonra dağa önce vermiş olduğum kodların yerine aşağıdaki kodları yapıştırınız.

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
TextBox1.Value = Cells(ListBox1.ListIndex + 2, "B").Value & vbLf & Cells(ListBox1.ListIndex + 2, "C").Value _
& vbLf & Cells(ListBox1.ListIndex + 2, "E").Value & vbLf & Cells(ListBox1.ListIndex + 2, "O").Value
End Sub

 

[osmanfenerli1907]

Teşekkürler