Listboxda istenilen sütunların listelenmesi

[Mesafe]

Listboxda sütunların yerleri değişse bile sabit olan sütun başlığından istenilen kolon bulunup, altındaki bilgiler listelenebilir mi ?

 

[Ömer]

Merhaba,

Bence Label'ları silerek sütun başlıklarını kod ile belirleyin. Çünkü Listboxda sütun başlıklarını Label ile eklediğiniz zaman verideki sütun genişliği ile aynı olmadığı durumlarda hizalama sorunu yaşarsınız.

Aşağıdaki kodlar hem istediğinizi yapar hemde hizalamayı yapar.

Private Sub UserForm_Initialize()
 
    Dim son As Long, i As Byte, j As Byte
    Dim a As String, b As String, s As Byte, sut()
 
    son = Cells(Rows.Count, "A").End(xlUp).Row
    [COLOR=blue]sut = Array("No", "Transaction Date & Time", "Tutar", "Fis")[/COLOR]
 
    Range("A:L").EntireColumn.AutoFit
 
    With Me.ListBox1
        For i = 1 To 12
            s = 0: b = 0
            For j = 0 To UBound(sut)
                If Cells(1, i) = sut(j) Then s = 1: Exit For
            Next j
            If s = 1 Then b = Replace(Columns(i).Width, ",", ".")
            a = a & ";" & b
            Next i
        .ColumnCount = 12
        .ColumnWidths = Right(a, Len(a) - 1)
        .RowSource = "A1:L" & son
    End With
 
End Sub

 

[Mesafe]

Hocam çok teşekkür ederim. Elinize emeğinize sağlık.