code delete all items in list when select last item from listbox2 to

[espenskeie]

Hi

I have tried two different codes for removing items from listbox2.

It works fine when I select one of the items in the middle, but as soon as I select the last one in the list, all of the items are removed at the same time...

If ListBoxX.ListIndex = -1 Then Exit Sub

    For i = ListBoxX.ListCount - 1 To 0 Step -1

    If ListBoxX.Selected(i) = True Then
    
        Sheets("1HourHL").Range("X10").Value = Me.ListBoxX.Value
        ListBoxX.RemoveItem i
                    
    End If

    Next i

I cannot find what is causing this, but I have a feeling that it could be pretty obvious when I learn what it is...

Kind regards
Espen

 

[Norie]

Espen

If you want to remove all the items from a listbox you can use Clear.

ListboxX.Clear

By the way, is your listbox multiselect?

 

[espenskeie]

Hi Norie

The problem is that I only want to remove the one that is selected. And it works fine, except from when I select the last item in my list, then the whole list is removed.

Regards
Espen

 

[Norie]

Espen

If you only want to remove the selected item why are you looping through all the other items?

This is all you should need.

ListboxX.RemoveItem ListboxX.ListIndex

 

[espenskeie]

Good question... I'm not quite sure, I took the code from another workbook and didn't think about it...

Is it possible to have multiple selcet, with the use of Ctrl, or Shift?

Kind regards
Espen

 

[Norie]

The problem with the first code is the selection moves up when you delete the last item.

So the last item is deleted, the 2nd from last becomes selected and is then deleted, then the 3rd from last becomes selected and then deleted and so on.

 

[Norie]

Espen

Listboxes have a MultiSelect property you can set to allow multiple selections.

 

[espenskeie]

Great, thank you for all info, that sorted things out a bit. Then I will check property of my listbox

Have a nice evening

Kind regards
Espen