Listboxa veri almak

[memduh]

Arkadaşlar Sayın Levent Beyin daha önce verdiği aşağıda Kodlarda 15 Adet textboxa sayfalardan veri alıyordum. Bu 13 Textbox yerine birtane listboxa aldırak mümkün mü?
Kod:
Private Sub ComboBox1_Change()
c = 0
For s = 2 To 4
a = WorksheetFunction.CountA(Sheets(s).Range("d2"))
For ara = 1 To a + 2
b = Sheets(s).Cells(ara, 4).Value
If b = ComboBox1.Value Then
c = c + 1
ListBox1 = Sheets(s).Cells(ara, 4).Value
TextBox2 = Sheets(s).Cells(ara, 16).Value
TextBox3 = Sheets(s).Cells(ara, 11).Value
TextBox4 = Sheets(s).Cells(ara, 12).Value
TextBox5 = Sheets(s).Cells(ara, 14).Value
TextBox6 = Sheets(s).Cells(ara, 5).Value
TextBox7 = Sheets(s).Cells(ara, 6).Value
TextBox8 = Sheets(s).Cells(ara, 15).Value
TextBox9 = Sheets(s).Cells(ara, 8).Value
TextBox10 = Sheets(s).Cells(ara, 9).Value
TextBox11 = Sheets(s).Cells(ara, 16).Value
TextBox12 = Sheets(s).Cells(ara, 11).Value
TextBox13 = Sheets(s).Cells(ara, 12).Value
End If
Next ara
Next s
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:7c3b141ba7]Private Sub ComboBox1_Change()
c = 0
For s = 2 To 4
a = WorksheetFunction.CountA(Sheets(s).Range("d2"))
For ara = 1 To a + 2
b = Sheets(s).Cells(ara, 4).Value
If b = ComboBox1.Value Then
c = c + 1
ListBox1.ColumnCount = 13
ListBox1.AddItem
ListBox1.list(0,0) = Sheets(s).Cells(ara, 4).Value
ListBox1.list(0,1) = Sheets(s).Cells(ara, 16).Value
ListBox1.list(0,2) = Sheets(s).Cells(ara, 11).Value
ListBox1.list(0,3) = Sheets(s).Cells(ara, 12).Value
ListBox1.list(0,4) = Sheets(s).Cells(ara, 14).Value
ListBox1.list(0,5) = Sheets(s).Cells(ara, 5).Value
ListBox1.list(0,6) = Sheets(s).Cells(ara, 6).Value
ListBox1.list(0,7) = Sheets(s).Cells(ara, 15).Value
ListBox1.list(0,8) = Sheets(s).Cells(ara, 8).Value
ListBox1.list(0,9) = Sheets(s).Cells(ara, 9).Value
ListBox1.list(0,10) = Sheets(s).Cells(ara, 16).Value
ListBox1.list(0,11) = Sheets(s).Cells(ara, 11).Value
ListBox1.list(0,12) = Sheets(s).Cells(ara, 12).Value
End If
Next ara
Next s
End Sub[/vb:1:7c3b141ba7]