Remove Table Row From Userform

[Enjoylyfe]

I have made a userform for deleting a row of data. Is it possible when i delete a row of data, the only row affected is the table row, while the same row outside the table is not deleted?

For example, if want to remove Bill, test1, and 345, is it possible to make the data1 still remain there and not removed?

 

[Fluff]

You can use something like

   With ActiveSheet.ListObjects("Table1").DataBodyRange
      .Rows(3).Delete
   End With

 

[Zack Barresse]

Hi there,

Cross-posted: Delete Table Row From Userform

Answering for posterity. If you load the data in your userform, I'm assuming into a ListBox control, as an array and not sourced directly to the Table data, then yes you can do that. You'd basically loop through your listbox data (array), find any selected item, and remove it with the RemoveItem method. Here is an example:

Private Sub CommandButton1_Click()

    Dim Index As Long
    Dim RemoveRow As Long
    Dim Values As Variant

    Values = Me.ListBox1.List
    RemoveRow = -1
   
    For Index = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(Index) Then
            RemoveRow = Index
            Exit For
        End If
    Next Index
   
    If RemoveRow = -1 Then Exit Sub
    Me.ListBox1.RemoveItem RemoveRow
   
End Sub

If you wanted to actually remove the Table row, and not in the userform only first, you would replace this line:

Me.ListBox1.RemoveItem RemoveRow

With these lines:

ThisWorkbook.Worksheets("Sheet3").ListObjects("Table2").ListRows(RemoveRow + 1).Delete
Me.ListBox1.List = ThisWorkbook.Worksheets("Sheet3").ListObjects("Table2").DataBodyRange.Value

Again, changing the sheet/Table names to suit.

 

[Enjoylyfe]

Hello, i have this code but it delete the entire row instead of the table row only. Could you please help me to modify my code?

Private Sub CommandButton5_Click()
    Dim profile_id As String
    profile_id = ComboBox9.value
    Lastrow = Sheets("Profile").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To Lastrow
    If Sheets("Profile").Cells(i, 1).value = profile_id Then
    Sheets("Profile").Rows(i).Delete
    Unload Me
    MsgBox "Your data has been deleted", vbOKOnly, "Successful"
    End If
    Next
End Sub

 

[Enjoylyfe]

Anyway i have tried the code you guys had given but maybe i modify the code wrong so it couldnt run perfectly

 

[Fluff]

What is the name of the table?

 

[Enjoylyfe]

What is the name of the table?

I have modified some code and it works, thank you

 

[Fluff]

Glad you have got it working & thanks for the feedback.