Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Listbox data
I have the following code:
Private Sub ListBox1_Change() Dim i As Integer Dim cnt As Integer Dim num As Integer Dim j As Integer num = ListBox1.ListCount ReDim a(num, 7) cnt = 0 For i = 0 To num - 1 If ListBox1.Selected(i) = True Then cnt = cnt + 1 For j = 0 To 6 a(cnt, j) = ListBox1.List() MsgBox ("a(" & cnt & "," & j & ")= " & a(cnt, j)) Next End If Next End Sub I am trying to get the data from the selected items on a listbox in a userform. The list box has 7 columns. When i select an item in the listbox, I get a 'type mismatch' error. How do I collect the data from a selected rows in a listbox? Thanks |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Populating listbox with only one data | Excel Programming | |||
Loading Data into ListBox | Excel Programming | |||
VBA: Creating listbox similar to the one in Pivot table (Listbox+Checkbox) | Excel Programming | |||
listbox.value not equal to listbox.list(listbox.listindex,0) | Excel Programming | |||
Adding a row of data to a Listbox | Excel Programming |