Soru listbox sayfadan sütun bilgilerini alma

[sirkülasyon]

Sayfa1' de yer alan sütunlardan listboxa
Birinci sütun = C
İkinci sütun = D
Üçüncü sütun = L
Dördüncü Sütun = K
Beşinci Sütun = H
Altıncı Sütun = I

olacak şekilde başlığı kullanıcının belirleyeceği ve başlık sabit kalacak şekilde sütunları almaya yarayacak kod için rica etsem yardımcı olabilir misiniz?

 

[Ziynettin]

Sub test()
Set sh = Sheets("Kendi sayfanız")
son = [C:L].Find("*", , , , xlByRows, xlPrevious).Row
If son < 2 Then Exit Sub
    sut = Array(1, 2, 10, 9, 6, 7)
    a = Range("C2:L" & son).Value
    ReDim b(1 To UBound(a), 1 To 6)
    For i = 1 To UBound(a)
        For j = 0 To UBound(sut)
            b(i, j + 1) = a(i, sut(j))
        Next j
    Next i
    ListBox1.ColumnCount = 6
    ListBox1.List = b
End Sub

 

[Muzaffer Ali]

Alternatif olsun.

Private Sub UserForm_Initialize()
    Dim Bak As Long
    Dim Say As Long
    Say = Cells(Rows.Count, "C").End(xlUp).Row
    For Bak = 2 To Say
        With ListBox1
            .ColumnCount = 6
            .AddItem Cells(Bak, "C")
            .List(Bak - 1, 1) = Cells(Bak, "D")
            .List(Bak - 1, 2) = Cells(Bak, "L")
            .List(Bak - 1, 3) = Cells(Bak, "K")
            .List(Bak - 1, 4) = Cells(Bak, "H")
            .List(Bak - 1, 5) = Cells(Bak, "I")
        End With
    Next
End Sub

 

[sirkülasyon]

Ziynettin, dalgalikur
Yardımlarınızı esirgemediğiniz için teşekkür ederim.

 

[sirkülasyon]

@Ziynettin beyin kodunda sıkıntı yok. Yalnız

@dalgalikur
makro "run time error 381" hatası veriyor. Neden olabilir?

 

[Ziynettin]

makro "run time error 381" hatası veriyor. Neden olabilir?

"Bak - 1" Bir(1) rakamlarını 2 olarak düzeltiniz.