listbox

[prodigy]

giriş sayfasında b sutundan I sutununa kadar olan verileri listbox1 aktarıyorum. listbox1 de seçtiğim verinin giriş sayfasındaki j sutunundan itibaren ( yakınadı1-yakınlığı-kimlik no) sunu listbox2 de göstermek istiyorum.
örneğin listbox1 de ali tıkladığımda listbox2 de

veli oğlu 5677
ayşe kızı 76767
kamil babası 7667 şeklinde nasıl gösterebiliriz.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ListBox1_Click()
On Error Resume Next
Cells(ListBox1.ListIndex + 2, 9).Select
ListBox2.Clear
ListBox2.ColumnCount = 3
ListBox2.AddItem
ListBox2.List(S, 0) = ActiveCell.Offset(0, 1).Value
ListBox2.List(S, 1) = ActiveCell.Offset(0, 2).Value
ListBox2.List(S, 2) = ActiveCell.Offset(0, 3).Value
S = S + 1
End Sub

 

[prodigy]

Teşekkür ederim