Sutunlar ListBox ta nasın gösterilir

[dEdE]

Mrb.,

Üç sutundan oluşan bir listbox ta B ve C sutunlarındaki verileri aşağıdaki kod satırı ile ListBox a aktarabiliyorum.

ListBox2.RowSource = "Veri!B2:C5000"

Ancak Aynı ListBox un 3. sütununa K sutunundaki verileri aktarmak istiyorum.
Bunu nasıl yapabilirim.
Saygılar

 

[Orion1]

Merhabalar.
Şu kodları bir denermisiniz.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 3
listsat = 0
For sat = 2 To 5000
ListBox1.AddItem
ListBox1.Column(0, listsat) = Cells(sat, "B").Value
ListBox1.Column(1, listsat) = Cells(sat, "C").Value
ListBox1.Column(2, listsat) = Cells(sat, "K").Value
listsat = listsat + 1
Next sat
End Sub

 

[dEdE]

Teşekkürler
Döngü satırını aşağıdaki gibi değiştirdim. Daha da hızlı oldu

For SAT = 2 To [a65536].End(xlUp).Row

Saygılar.

 

[Haluk]

Alternatif:

 

[dEdE]

Teşekkürler.
İstediğm işi hızlı bir biçimde yapıyor, değişiklikler yaparak farklı işler için kullanmak istiyorum.
Ancak, bu kodların mantığını kavramak için biraz çalışmam gerekiyor.
Saygılar.