ListBox - Remove Item from source

[Big Lar]

Can I get suggestions for the additional code needed to remove the selected item from Sheet6?
This only removes the item from the UserForm.

Private Sub UserForm_Initialize()
 With Sheet6
    ListBox1.List = .Range("A2", .Range("A" & .Rows.Count).End(xlUp)).Resize(, 2).Value
    End With
End Sub

_________________________________________________________________________________

Private Sub CommandButton3_Click()
Dim i As Integer
​
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
       ListBox1.RemoveItem (i)
    End If
Next i
 
End Sub

 

[CalcSux78]

The line with the RemoveItem command is where you've identified what is being removed. There, you'd need to add a line to remove the desired field from your sheet.

Private Sub CommandButton3_Click()
Dim i As Integer
With Sheet6
    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) Then
           ListBox1.RemoveItem (i)
           .Range(.Cells(i + 2, 1), .Cells(i + 2, 2)).Delete Shift:=xlUp
        End If
    Next i
End With
End Sub

 

[Big Lar]

Thanks for the assistance.

I’ve replaced my code with your suggestion, and it works nicely…however, there’s one issue:
When selecting the last item in the ListBox, CommandButton3 deletes all items.

Debugging shows each Item being selected and deleted as it loops through the Next i. Again, this only occurs when the last ListBox item is selected.

 

[CalcSux78]

Do you have the ListBox1.MultiSelect set to multi-select or single-select? If you are single selecting, you could put an Exit Sub line right after the delete line. I tested on a sample set with multi-select and selected the last item and it only deleted the last entry.

 

[Big Lar]

Thanks CalcSux78.
Changing the property to Multi-Select is the solution.
Thanks again for your assistance.