Listboxta karışık sütun

[cebelitarık]

Herkese Merhaba

Rowsource ile oluşturduğumuz listboxun içinde ki sütunların yerini değiştirebilirmiyiz. değiştirebilirsek nasıl yapılcağı konusunda yardımlarınızı
bekliyorum
saygılar

 

[Levent Menteşoğlu]

Rowsource ile verileri alıyorsanız değiştiremezsiniz. Bu durumda additem veya list yöntemini kullanmanızı öneririm.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub UserForm_Initialize()
Dim SUT, S As Integer
ListBox1.ColumnCount = 2
For SUT = 1 To Cells(65536, "A").End(3).Row
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "B")
ListBox1.List(S, 1) = Cells(SUT, "A")
S = S + 1
Next
End Sub