how show more 10 columns in listbox on userform

[Ali M]

Hi
I need showing about 11 columns in listbox on userform based on fill date textbox1 is from date , textbox2 is to date and match with column A (DATE)for sheet1

Private Sub TextBox1_AfterUpdate()

On Error Resume Next
Me.TextBox1.Value = Format(TextBox1.Value, "mm/dd/yyyy")
End Sub

Private Sub TextBox2_AfterUpdate()

Dim i As Long
On Error Resume Next
Me.TextBox2 = Format(Me.TextBox2, "mm/dd/yyyy")

Me.ListBox1.Clear

For i = 2 To Application.WorksheetFunction.CountA(sheet1.Range("a:a"))
If sheet1.Cells(i, 1).Value >= CDate(Me.TextBox1.Text) And _
sheet1.Cells(i, 1).Value <= CDate(Me.TextBox2.Text) Then
Me.ListBox1.AddItem sheet1.Cells(i, 1).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = sheet1.Cells(i, 2).Value 
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = sheet1.Cells(i, 3).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = sheet1.Cells(i, 4).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 4) = sheet1.Cells(i, 5).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 5) = sheet1.Cells(i, 6).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 6) = sheet1.Cells(i, 7).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 7) = sheet1.Cells(i, 8).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 8) = sheet1.Cells(i, 9).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 9) = sheet1.Cells(i, 10).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 10) = sheet1.Cells(i, 11).Value

End If
Next i
End Sub

 

[6StringJazzer]

Your post does not really tell us your problem. It's just some code.

What is the problem? What are you expecting to happen and what actually happens instead?

There is no problem to display 11 columns. You have to make sure your ListBox.ColumnCount is 11, ListBox.ColumnWidths is set for the desired widths, and the ListBox.Width is wide enough to show all the columns.

 

[Ali M]

Your post does not really tell us your problem. It's just some code.

the title of thread tell you the whole story .

What is the problem? What are you expecting to happen and what actually happens instead?

what I expected show all of the columns as in code , but reallity just 10 columns shows.

There is no problem to display 11 columns

it doesn't work for me just try to test it .

 

[6StringJazzer]

the title of thread tell you the whole story .

Sorry, but it does not tell the whole story. As you can see from my response there is a lot of information that is still needed.

What happens when you run this code? Is there an error?

When 10 columns show, is there empty space at the right of the ListBox?

What is the value of ListBox.Columns?
What is the value of ListBox.ColumnWidths?
What is the value of ListBox.Width?

Unfortunately I cannot reproduce your problem without your file.

 

[RoryA]

You cannot have more than 10 columns if you use AddItem. You have to use an array or a range to populate the listbox if you need more columns.

 

[6StringJazzer]

You cannot have more than 10 columns if you use AddItem. You have to use an array or a range to populate the listbox if you need more columns.

Good point. I was setting it up using RowSource.

 

[Ali M]

@RoryA thanks for clarification , actually I have not ever used array.

 

[Ali M]

@6StringJazzer based on reply @RoryA I'm right when I said you not all of columns show.