ListBox with 2 Columns

[Kieranz]

Hi
I have a listbox in my userform in which i would like to have two
columns show up from my find result. I am mixed as to the coding of
which i have the extract below.
Thks Kz

With grSearchRng
Set C = .Find(gvFindX, , goLookIn, goLookAt, goSearchOrder, ,
gbMatchCase)
If Not C Is Nothing Then
sFirstAddr = C.Address
Do
ufFind.LstFound.AddItem "'" & C.Worksheet.Name & "'!"
& C.Address
If IsNumeric(C.Value) Then
Select Case C.Column
Case 9, 10
error here--> ufFind.LstFound.List(.ListCount - 1, 1) = C.Value
Case ElseEnd Select
ElseEnd If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> sFirstAddr
End If
End With

 

[GS]

Kieranz explained on 9/9/2011 :

Hi
I have a listbox in my userform in which i would like to have two
columns show up from my find result. I am mixed as to the coding of
which i have the extract below.
Thks Kz

With grSearchRng
Set C = .Find(gvFindX, , goLookIn, goLookAt, goSearchOrder, ,
gbMatchCase)
If Not C Is Nothing Then
sFirstAddr = C.Address
Do
ufFind.LstFound.AddItem "'" & C.Worksheet.Name & "'!"
& C.Address
If IsNumeric(C.Value) Then
Select Case C.Column
Case 9, 10
error here--> ufFind.LstFound.List(.ListCount - 1, 1) = C.Value
Case Else
End Select
Else
End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> sFirstAddr
End If
End With

I suggest using an array to collect your data, THEN populate the
listbox from the array as this would be the quickest way.

You also need to set the ColumnCount property for the number of cols.

To add individual items you need to use the row/col index like this...

ListBox1.List(0, 0) = <col1 data>
ListBox1.List(0, 1) = <col2 data>

To 'dump' a 2D array into the listbox in one step...

ListBox1.List = myArray

 

[Kieranz]

Hi Gerry. Many thks for your reply. Being a newbie and lost on arrays
though i am reading about them
How do i dim the arrays and then apply to populate the listbox with 2
col.
Thks
K
Ps did not have internet connection.

 

[GS]

Kieranz was thinking very hard :

How do i dim the arrays and then apply to populate the listbox with 2
col.

You'll need to provide more detailed info about your search process in
order for me to draft you a sample to run with.

Define usage for:
grSearchRng
gvFindX
goLookIn
goLookAt
goSearchOrder
ufFind
ufFind.LstFound