Listbox > 10 Columns Max reached

Hi All ,

I have a recently need to add a column to update via UserForm.
I realize that Listbox is only allowed 10 Items Max.
can anyone can suggest any workaround.

I need to submit this assignment.

I have attached the File , Once i added the last column , the file fail to work.

I need to update the additional column via userform into the file.
Any suggestion is very much appreciated.

thanks very much.

CHeers ,
WaiHar

Hi Fotis

initially the file works until --> Me.Listbox1.List(i, 9) = Cells(c.Row, 11).Value 'Text Comment

by adding
Me.Listbox1.List(i, 10) = Cells(c.Row, 12).Value 'Text Action itself error starts to appear error , tehrefore no way in adding ,

Error i got was --> Me.Listbox1.List (i , 10) < Could not get List Property.Invalid Arguments


Therefore no way i can proceed to add --> Me.Listbox1.List(i, 11) = Cells(c.Row, 13).Value

you can try out the file attached.

You can't using the AddItem method (which you shouldn't be using anyway). You can either fill an array and pass it to the .List parameter of the listbox, or create a dummy array and fill in the blanks:

    Dim myDummyArray(0 To 4, 0 To 12) As Long
    Dim x As Long, y As Long

    
    With Me.ListBox1
        .ColumnCount = 13
        .List = myDummyArray
        For x = 0 To 4
            For y = 0 To 12
                .List(x, y) = y
            Next y
            y = 1
        Next x
    End With

Hi Kyle123 ,

Thanks , I make some changes , you can try out attached file , I was using F8 to check the output ,

But funny , i wonder which part loops was giving me headache .it keep resetting it to 0 ,

I now can get all columns into List Box (no Max issue) , just that i suppose have (3) rows , it seems to keep resetting to 0
only the last rows shows all.

Any idea of suggestions ?

You can try - Country = EPA
Search Box - Type "SDM Wai Har" --> Click on Find SDM Name.