Listbox Header not display results

[Av8tordude]

I have a header in cell DB6 and DC6 (Symbol & Profit/Loss). I'm trying to get the header to show in the listbox header, but it is being displayed under the listbox header. May i receive assistance resolving this issue.

thanks

Private Sub lbDec_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim LRow As Long
    Dim Wks As Worksheet
    
    Set Wks = ActiveSheet
    LRow = Wks.Cells(Wks.Rows.Count, "DB").End(xlUp).Row
    
    With ListBox1
        .List = Wks.Range("DB6:DC" & LRow).Value
        .ColumnCount = 2
        .ColumnHeads = True
        .ColumnWidths = "40;40"
    End With
    lbMonth.Visible = True
    obHrs.Value = True
End Sub

 

[Domenic]

You'll need to use the RowSource property of the ListBox, instead of the List property. And you'll need to exclude the header row...

.RowSource = Wks.Range("DB7:DC" & LRow).Address(external:=True)

Hope this helps!

 

[nemmi69]

When you try loading a list Box not using its RowSource it starts loading from the row before the header, even if you set ColumnHeads = True. See if this helps?

Private Sub lbDec_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim Wb As Workbook, Wks As Worksheet, Rng1 As Range
    
    Set Wb = ThisWorkbook
    Set Wks = Wb.Worksheets("Sheet1")
    Set Rng1 = Wks.Range("A2:A" & Wks.Cells(Wks.Rows.Count, "A").End(xlUp).Row)
    With Me.ListBox1
       .ColumnHeads = True
       .ColumnCount = Rng1.Columns.Count
       .ColumnWidths = "40,40"
       .RowSource = Rng1.Parent.Name & "!" & Rng1.Resize(Rng1.Rows.Count - 1).Offset(1).Address
     End With
End Sub