listbox ta iki farklı sütundan verileri listelemek.

[olymposss]

saygıdeğer hocalarım
daha önce bir veya yanyana birkaç sütunu listboxta görüntüleyebilirdum. ancak şimdi karşıma çok farklı bir durum çıktı. birbirinden bağımsız iki sütunu aynı listbox ta görüntülemek mümkün mü? şu kodları denedim hata verdi. birde siz incelebilirmisiniz?

Sheets("aralik").Select
ListBox1.ColumnCount = 2
ListBox1.RowSource = "a2:a251" & "I2:I251"
ListBox1.ColumnHeads = False

yardımlarınız için çok teşekkür ederim.
saygılar:yardim:

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sheets("aralik").Select
ListBox1.ColumnCount = 9
ListBox1.RowSource = "a2:I251"
listbox1.columnwidth="50;0;0;0;0;0;0;0;50"
ListBox1.ColumnHeads = False

yada

Sheets("aralik").Select
ListBox1.ColumnCount = 2
ListBox1.ColumnHeads = False
listbox1.additem
for a=2 to [a65536].end(3).row
listbox1.list(a-2,0)=cells(a,"a")
listbox1.list(a-2,1)=cells(a,9)
next

 

[zafer]

Merhaba

Aşağıdaki kodları deneyin
ListBox1.ColumnCount = 2
For i = 1 To 251
ListBox1.AddItem
ListBox1.List(i - 1, 0) = Cells(i, 1)
ListBox1.List(i - 1, 1) = Cells(i, 9)
Next