Sayfada satırda olan veriler listbox' a sütunda

[ynmcan]

Merhaba arkadaşlar ;
Sayfada abone isimlerinin karşısındaki satılarda olan, ödeme tarihleri ve ödeme miktarlarını, Userform üzerindeki Combobox' ta seçtiğim isme ait olanlarını Listbox' ta alt alta görmek istiyorum. yardımcı olursanız sevinirim.

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Change()
Dim k As Range, j As Integer, i As Integer, sh As Worksheet, sat As Long
Set sh = Sheets("ABONE_ÖDEME_BİLGİLERİ")
sat = sh.Cells(65536, "A").End(xlUp).Row
ListBox1.Clear
If ComboBox1.Value = "" Then Exit Sub
Set k = sh.Range("A2:A" & sat).Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    j = sh.Cells(k.Row, 256).End(xlToLeft).Column
    For i = 2 To j Step 2
        ListBox1.AddItem
        ListBox1.List(x, 0) = Format(sh.Cells(k.Row, i).Value, "dd.mm.yyyy")
        ListBox1.List(x, 1) = Format(sh.Cells(k.Row, i + 1).Value, "#,##0.00 TL")
        x = x + 1
    Next
    Else
    ListBox1.AddItem "Bu isim bulunamamıştır."
    ListBox1.AddItem "evrengizlen@hotmail.com"
End If
End Sub

 

[ynmcan]

Syn. Evren; Çok teşekkür edeim

 

[Orion1]

Syn. Evren; Çok teşekkür edeim

Rica ederim.