Excel VBA Listbox

[shakeel_sadiq]

Hi All,

I have created a Listbox on a Userform. the Listbox properties are as folows:

Name: SectorList
MultiSelect: fmMultiSelectMulti

I am trying to see which items were selected and then for these items i want to put their value into a cell. My problem is that once it finds the first item that was selected, it puts its value into the relevant cell but then seems to mark all the other selected items as not selected.

The weird thing is, for testing purposes, if i dont actually assign the selected items value to a cell then there is no problems!

The code is as follows:

For lItem = 0 To sectorList.ListCount - 1
If sectorList.Selected(lItem) Then
ActiveCell.Value = sectorList.List(lItem)
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Next

Any help would be really appreciated!

Shakeel

[Chip Pearson]

Your code works as expected for me.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"shakeel_sadiq"
<shakeel_sadiq.29yzio_1151259002.8718@excelforum-nospam.com>
wrote in message
news:shakeel_sadiq.29yzio_1151259002.8718@excelforum-nospam.com...
>
> Hi All,
>
> I have created a Listbox on a Userform. the Listbox properties
> are as
> folows:
>
> Name: SectorList
> MultiSelect: fmMultiSelectMulti
>
> I am trying to see which items were selected and then for these
> items i
> want to put their value into a cell. My problem is that once it
> finds
> the first item that was selected, it puts its value into the
> relevant
> cell but then seems to mark all the other selected items as not
> selected.
>
> The weird thing is, for testing purposes, if i dont actually
> assign the
> selected items value to a cell then there is no problems!
>
> The code is as follows:
>
> For lItem = 0 To sectorList.ListCount - 1
> If sectorList.Selected(lItem) Then
> ActiveCell.Value = sectorList.List(lItem)
> ActiveCell.Offset(1, 0).Range("A1").Select
> End If
> Next
>
> Any help would be really appreciated!
>
> Shakeel
>
>
> --
> shakeel_sadiq
> ------------------------------------------------------------------------
> shakeel_sadiq's Profile:
> http://www.excelforum.com/member.php...o&userid=35764
> View this thread:
> http://www.excelforum.com/showthread...hreadid=555386
>

[shakeel_sadiq]

Thanks for checking it Chip

Ive ended up creating a temporary listbox and adding the selected values into it then reading of this new userlist.

so the problem is solved though as youve said, there shouldnt have been one!

Ta.