Listbox with header option

[asyamonique]

Dim re As Range, J As Long, jj As Long6 With Sheets("list").Range("a:a").CurrentRegion.Resize(, 15)
ReDim a(1 To .Rows.Count, 1 To 15)
For J = 1 To .Rows.Count
For jj = 1 To .Columns.Count
a(J, jj) = .Cells(J, jj).Text
Next
Next
End With
With ListBox1
.ColumnCount = 15
.ColumnWidths = "0;60;60;120;120;0;0;0;0;0;0;0;100;100;0"
End With
Me.ListBox1.List = a

Hello,
Good Day,
How we can populate the datas with header on listbox if first row has headers on worksheet?
Or if I put labels on userform as headers is it possible to populate datas from starting row2?
Many thanks.

 

[Yongle]

I would personally use ListBox2 and place it right above ListBox1
and try this code..

Private Sub UserForm_Initialize()
Dim re As Range, J As Long, jj As Long
[COLOR=#ff0000]Dim rng As Range, b As Variant
Set rng = Sheets("list").Range("a:a").CurrentRegion.Resize(, 15)
b = rng.Resize(1)
Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)[/COLOR]
With [COLOR=#ff0000]rng[/COLOR]
    ReDim a(1 To .Rows.Count, 1 To 15)
    For J = 1 To .Rows.Count
    For jj = 1 To .Columns.Count
    a(J, jj) = .Cells(J, jj).Text
    Next
    Next
End With
With ListBox1
    .ColumnCount = 15
    .ColumnWidths = "0;60;60;120;120;0;0;0;0;0;0;0;100;100;0"
End With
[COLOR=#ff0000]With ListBox2
    .ColumnCount = 15
    .ColumnWidths = "0;60;60;120;120;0;0;0;0;0;0;0;100;100;0"
End With[/COLOR]

Me.ListBox1.List = a
[COLOR=#ff0000]Me.ListBox2.List = b[/COLOR]
End Sub

 

[asyamonique]

Thats very good thanks.