ListBox1 de seçilen Aileye ait çocukların ListBox2 de Listelenmesi

[omeryılmaz]

ListBox1 de seçilen ailenin çocuklarına ait ( IDNO - TC Kimlik No - Adı - Soyadı ) bilgilerinin tamamının ListBox2 ye gelmesi için çok uğraştım ancak TC Kimlik No haricinde diğer bilgiler için, tüm uğraş ve araştırmalarıma rağmen çözüm bulamadım.

Yardımlarınız için şimdiden şükranlarımı sunuyorum...Saygılar

 

[Orion1]

Ömer bey dosyanız ektedir.

Private Sub ListBox1_Click()
Dim k As Range, sat As Long, tcno, sh As Worksheet, adr As String
ListBox2.Clear
If ListBox1.ListCount < 1 Then Exit Sub
Set sh = Sheets("Çocuk")
sat = sh.Cells(Rows.Count, "B").End(xlUp).Row
tcno = ListBox1.Column(1)
Set k = sh.Range("B2:B" & sat).Find(tcno, , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        ListBox2.AddItem
        ListBox2.List(ListBox2.ListCount - 1, 0) = k.Offset(0, -1).Value
        ListBox2.List(ListBox2.ListCount - 1, 1) = k.Value
        ListBox2.List(ListBox2.ListCount - 1, 2) = k.Offset(0, 1).Value
        ListBox2.List(ListBox2.ListCount - 1, 3) = k.Offset(0, 2).Value
        Set k = sh.Range("B2:B" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
End Sub

 

[omeryılmaz]

Ömer bey dosyanız ektedir.

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
ListBox2.AddItem
ListBox2.Column(0, ListBox2.ListCount - 1) = ListBox1.Column(0)
ListBox2.Column(1, ListBox2.ListCount - 1) = ListBox1.Column(1)
ListBox2.Column(2, ListBox2.ListCount - 1) = ListBox1.Column(2)
ListBox2.Column(3, ListBox2.ListCount - 1) = ListBox1.Column(3)
End Sub

Hocam Kodda hata var Aileye ait çocukların Listesi alınacaktı

ListBox1 Anasayfadaki aile bilgileri geliyor. ListBox2 ye ise Listboxta seçilen aileye ait Çocuk sayfasında kayıtlı çocukların listesi gelmesi gerekli....

ListBox1 de

1 11111111111 ömer Yılmaz seçildiğinde

ListBox2 ye
1 12222222221 Emre Yılmaz
2 13333333331 İ.Enes Yılmaz gözükmeli




İliniz için şükranlarımı sunuyorum....

 

[Orion1]

Hocam Kodda hata var Aileye ait çocukların Listesi alınacaktı

ListBox1 Anasayfadaki aile bilgileri geliyor. ListBox2 ye ise Listboxta seçilen aileye ait Çocuk sayfasında kayıtlı çocukların listesi gelmesi gerekli....

ListBox1 de

1 11111111111 ömer Yılmaz seçildiğinde

ListBox2 ye
1 12222222221 Emre Yılmaz
2 13333333331 İ.Enes Yılmaz gözükmeli




İliniz için şükranlarımı sunuyorum....

dosyayı 2 nolu mesajda güncelledim.

 

[omeryılmaz]

dosyayı 2 nolu mesajda güncelledim.

Hocam Eline yüreğine sağlık çözümü buldum


If Not k Is Nothing Then
adr = k.Address
Do
ListBox2.AddItem k.Offset(0, -1).Value & " " & k.Offset(0, 3).Value & " " & k.Offset(0, 4).Value & " " & k.Offset(0, 5).Value
Set k = sh.Range("B2:B" & sat).FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr
End If

 

[vardar07]

Kırmızı yazılı yeri olduğu gibi yap. Orion1 den özürdilerim.
Do
ListBox2.AddItem k.Offset(0, -1).Value & " " & k.Offset(0, 3).Value & " " & k.Offset(0, 4).Value & " " & k.Offset(0, 5).Value
Set k = sh.Range("B2:B" & sat).FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr

 

[Orion1]

Hocam Eline yüreğine sağlık çözümü buldum


If Not k Is Nothing Then
adr = k.Address
Do
ListBox2.AddItem k.Offset(0, -1).Value & " " & k.Offset(0, 3).Value & " " & k.Offset(0, 4).Value & " " & k.Offset(0, 5).Value
Set k = sh.Range("B2:B" & sat).FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr
End If

dosyayı 2 nolu mesajda güncelledim.
Kolay gelsin

 

[omeryılmaz]

Hocam Elinize yüreğinize sağlık.....

Yine zor anımda yetiştiniz.... Görüşmek üzere.... Sağolun

 

[Orion1]

Hocam Elinize yüreğinize sağlık.....

Yine zor anımda yetiştiniz.... Görüşmek üzere.... Sağolun

Rica ederim.iyi çalışmalar.