UserForm.ListBox Empty Header

[Digitborn.com]

Hi,

I have this simple code:

    With Sheets("Sheet1")
        For Each Rw In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
            If ComboBox1.Text = Rw.Value Then
                        ListBox1.AddItem
                        ListBox1.List(i, 0) = Rw.Offset(0, 1).Value
                        ListBox1.List(i, 1) = Rw.Offset(0, 2).Value
                        ListBox1.List(i, 2) = Rw.Offset(0, 3).Value
                        i = i + 1
            End If
        Next Rw
    End With

The problem is that I got an empty header of ListBox1 (looking like i'm using RowSource Property). This comes from the line ListBox1.AddItem. If I don't lose this line, i can't add items with ListBox.List property. How can I remove or make not appear this empty header?

 

[jindon]

Not really sure about

The problem is that I got an empty header of ListBox1 (looking like i'm using RowSource Property).

Do you have a line to initialize the variable "i" before the loop, such like i = 1 ?
If you have, just delete that line or change to i = 0

Otherwise, we will need more details about how your listbox look like....

 

[Digitborn.com]

I don't have a line i = 0, and i don't have any other line than Dim i as Integer. The ListBox looks like you get ListBox.RowSource with an empty header.

 

[jindon]

What do you mean "Empty header" ?

 

[Digitborn.com]

I just found the problem. On the properties it was set ListBox.ColumnHeads = True

 

[jindon]

You can not use ColumnHeads property with AddItem method.

That is only available when you use it together with RowSorce property.

 

[Digitborn.com]

Yes, I know that ColumnHeads are only available with RowSource, I just forgot the ColumnHeads Property in the Properties window