ListBox da farklı kolonların gösterilmesi

[bmutlu966]

A,B,C,D,E kolonlarında bilgilerim var. Ancak ben sadece A,C,E kolonlarının gösterilmesini istiyorum. Kodu nasıl değiştirmem lazım.

Private Sub UserForm_Initialize()
ListBox1.List = Sheets("Sayfa1").Range("A2:E20")
End Sub

 

[harziyan]

Şunu bi deneyebilir misiniz?

Private Sub UserForm_Initialize()
ListBox1.RowSource = "Sayfa1!A2:E20"
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths=”50;0;50;0;50”
End Sub

 

[bmutlu966]

Çok teşekkürler...

 

[Murat OSMA]

Şu şekilde verileri alabilirsiniz;

Private Sub UserForm_Initialize()
    Dim i As Long
    ListBox1.ColumnCount = 3
    With Sheets("Sayfa1")
    For i = 1 To .Range("A65536").End(3).Row
    ListBox1.AddItem .Cells(i, 1).Value   [COLOR="Red"]' A sütunu[/COLOR]
    ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(i, 3).Value  [COLOR="Red"]' C Sütunu [/COLOR]
    ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(i, 5).Value  [COLOR="red"]' E Sütunu[/COLOR]
    Next i
    End With
    i = Empty
End Sub