Delete only selected item from the listbox and listbox populating source.

[abhay_547]

Hi All,

I have the below code which deletes all items from a listbox and my excel sheet which is the source for populating that listbox. I am using a option button style for my listbox and the selection style as single .i.e. you can select only one item at one go in the lisbox. I want my macro to delete the selected item from my worksheet .i.e. it's entire row so that it doesn't reflect in my lisbox any more. Below is my code :

Private Sub CommandButton2_Click()
 'REMOVE SELECTION
 
  Dim I As Long
 
    With ListBox1
      For I = .ListCount - 1 To 0 Step -1
       If .Selected(I) Then
           .RemoveItem I
           Sheets("URL List").Rows(I + 2).EntireRow.Delete
           
        End If
      Next I
    
End With

End Sub

Thanks a lot for your help in advance.

[sunnyland]

'supposing sheet18 is the sheet with row to delete
' you cannot remove individual item in a linked list
'so you will have to refresh the listbox
'by reapplying the listfillrange

Private Sub CommandButton1_Click()
Dim indexi As Long
indexi = ListBox1.ListIndex + 1
If indexi <> -1 Then
Sheet18.Rows(indexi).EntireRow.Delete
ListBox1.ListFillRange = "a:a"
End If
End Sub

[abhay_547]

Hi,

Thanks a lot for your reply, It's working fine now.