Delete item from listbox and row source/named range

Hi all,

I've been searching for a bit of code which simply allows a user to select an item from my listbox on a userform and click a delete button which removes the item from the listbox and the named range on Sheet1.

The listbox is a multicolumn listbox which has 9 columns. It is linked to a named range on sheet1 called "ServiceList". The range is from A3:I300 (spanning across 9 columns: A to I).

Any help much appreciated.

Thanks

Thanks Norie, this works brilliantly.

Thanks

it is deleting only the last selected row, what if I have multiple selection in my Listbox?

Originally Posted by Norie

Remove the selected row from the named range and then update the RowSource property of the listbox.

Please Login or Register  to view this content.

it is deleting only the last selected row, what if I have multiple selection in my Listbox?

hi i have been trying to delete from the listbox and from the rowsource, the problem is that my rowsource is a dynamic range and every time i delete the last item there rowsource goes bad or looses its configuration =DESREF(GIRO!#¡REF!;;;CONTARA(GIRO!$A$2:$A$1598);27) or if i use a fixed range as giroA2:G100 every time i delete a row the range gets smaller eventually will get to 0. Can some one help

i using similar code as these one

Dim idx As Long

With ListBox1
idx = .ListIndex
If idx>-1 Then
Range("ServiceList").Rows(idx+1).Delete xlShiftUp
.RowSource = "ServiceList
End If
End With

Your code worked perfectly for me.

I have, nevertheless, other issue. I have 2 Userforms, which have listboxes (with multiple columns).

On the first one, the entries of my listbox are added via a command button which gathers information from other text boxes and combo boxes in the userform. At the same time, there is a text box which adds the numerical values from a column (expenses column) on my listbox . Naturally, when I use your code to delete a row from the column, the value in my total amount text box remains unchanged.

I have tried several ways to make such substraction, without any success.
Any suggestions?

Thanks in advance.

Originally Posted by Norie

Remove the selected row from the named range and then update the RowSource property of the listbox.

Please Login or Register  to view this content.

Your code worked perfectly for me.

I have, nevertheless, other issue. I have 2 Userforms, which have listboxes (with multiple columns).

On the first one, the entries of my listbox are added via a command button which gathers information from other text boxes and combo boxes in the userform. At the same time, there is a text box which adds the numerical values from a column (expenses column) on my listbox . Naturally, when I use your code to delete a row from the column, the value in my total amount text box remains unchanged.

I have tried several ways to make such substraction, without any success.
Any suggestions?

Sure,

I'm new to the forum so I'm unable to post the link to my new thread.
Is there any way I can send you the link?

Many thanks.

Yes it is