Listbox Sırasını Değiştirme

[heft]

Merhabalar;

Yapmak istediğim şu;
Listbox1 değerleri Sayfa1A1100 den alıyor

Görünümüde
A-B-C-D oluyor

Bunu
C-A-D-B
olarak değiştirmek istiyorum mümkün müdür?

 

[Levent Menteşoğlu]

Bunun için iki yol olabilir.

1-Eğer verileri rowsource ile listboxa yüklüyorsanız, bu durumda listeyi başka bir sayfaya istediğiniz sütun sırasına göre kopyalatıp, verileri bu sayfadan listboxa alırsınız. Aşağıdaki gibi bir kod olabilir.
[vb:1:aa895f8ea2]Application.ScreenUpdating = False
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s1.[a1:a100].Copy
s2.[b1].PasteSpecial
s1.[b1:b100].Copy
s2.[d1].PasteSpecial
s1.[c1:c100].Copy
s2.[a1].PasteSpecial
s1.[d1:d100].Copy
s2.[c1].PasteSpecial
Application.CutCopyMode = False
ListBox1.RowSource = "sayfa2!a1:d100"[/vb:1:aa895f8ea2]
2-Listboxa verileri additem ile yükleyebilirsiniz. Bunun için örnek kod aşağıdadır.
[vb:1:aa895f8ea2]For a = 1 To 100
ListBox1.AddItem
ListBox1.List(a - 1, 0) = Cells(a, 3).Value
ListBox1.List(a - 1, 1) = Cells(a, 1).Value
ListBox1.List(a - 1, 2) = Cells(a, 4).Value
ListBox1.List(a - 1, 3) = Cells(a, 2).Value
Next[/vb:1:aa895f8ea2]