çift kolonlu listbox

[öğrtm]

iyi akşamlar

çalışmamda yapmaya çalıştığım şey listbox un ikinci kolonuna sayfadaki verileri çekmek,birinci kolona ise ikinci colondaki veri kadar numara atamak.ikinci kolona on veri girdi diyelim birinci kolonda 1 2 3 4 ....10 olacak

Private Sub ComboBox1_Change()
i = Me.ComboBox1.ListIndex + 1
sonsat = Sheets("Sayfa1").Cells(60000, i).End(3).Row
adr = Range(Cells(1, i), Cells(sonsat, i)).Address
For a = 1 To sonsat
Me.ListBox1.AddItem
Me.ListBox1.List(a, 0) = a
Me.ListBox1.List(a, 1) = adr
Next
End Sub
şeklinde denedim olmadı konuyla ilgili olarak yardımlarınızı bekliyorum.örnek çalışmam ektedir

 

[halit3]

bunu denermisiniz.

Private Sub ComboBox1_Change()
Me.ListBox1.Clear
i = Me.ComboBox1.ListIndex + 1
sonsat = Sheets("Sayfa1").Cells(60000, i).End(3).Row
For a = 1 To sonsat
Me.ListBox1.AddItem
Me.ListBox1.List(a - 1, 0) = a
Me.ListBox1.List(a - 1, 1) = Cells(a, i).Value
Next
End Sub

 

[öğrtm]

halit bey yardımınız için teşekkür ederim.işlem gerçekleşiyor fakat numaratör ikinci kolondaki veriden bir fazla numara veriyor

 

[halit3]

kodu yeniden güncelledim

 

[öğrtm]

halit bey teşekkürler denedim sorun gözükmüyor.
iyi akşamlar iyi çalışmalar

 

[halit3]

iyi akşamlar

 

[öğrtm]

arkadaşlar (halitbey eğer ordaysanız)

yukarıdaki işlem list yerine colomn kullanılarakta yapılabilmekte acaba list yada column kullanmak bir tercih meselesimidir.

Me.ListBox1.Clear
i = Me.ComboBox1.ListIndex + 1
sonsat = Sheets("Sayfa1").Cells(60000, i).End(3).Row
For a = 1 To sonsat
Me.ListBox1.AddItem
Me.ListBox1.Column(0, a - 1) = a
Me.ListBox1.Column(1, a - 1) = Cells(a, i).Value
Next