I can't delete row from sheet by selected row in listbox on userform except last row

[abdelfattah]

H ello
I try deleting from sheet by selected row in listbox except the last row based on selected sheet from combobox , but doesn't happens anything !
here is the code

Private Sub CommandButton2_Click()
With Me.ListBox1
        If .ListIndex = .ListCount - 1 Then
            MsgBox "you have not permission to do that", vbExclamation
            Exit Sub
        End If
    End With
  Dim i As Integer
  Application.ScreenUpdating = False
  Set ws = Sheets(ComboBox1.Value)
  If MsgBox("Are you sure you want to delete this data row?", vbYesNo + vbQuestion, "Delete Row?") = vbYes Then
   With ws
    For i = .Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
      If .Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then
        .Rows(i).Delete
      End If
    Next i
    End With
  End If
  Application.ScreenUpdating = True
End Sub

I hope somebody has idea .

 

[Logit]

Keep the entire process as simple as possible. This macro allows the user to manually select the row, click the button and the row has been deleted.

Option Explicit

Sub gobyby()

On Error Resume Next
Dim ws1 As Worksheet
Set ws1 = Worksheets(1)
    If Not ws1 Is Nothing Then
        With ws1
            ActiveCell.EntireRow.Delete
        End With
    End If
End Sub

 

[Micron]

When someone says "nothing happens" and we read things like If .Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then, we have no idea if the condition is true or not. Step through your code (F8) and check the values of references and variables as you go. This is troubleshooting 101. If
If .Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then
is not true then you can watch and see that the delete line does not highlight, so it is not True.

 

[abdelfattah]

@Logit
I suppose your code does that from inside the sheet, but I need from listbox on userform because I enter data on userform and copy to sheet , sometimes enter wrong data on userform so I need delete from userform without enter inside sheet and delete it .

 

[abdelfattah]

@Micron
but the code works without any problem with another project, and now suddenly doesn't work !

 

[Logit]

You can paste the code to a CommandButton1 that is attached to UserForm1 :

Option Explicit

Private Sub CommandButton1_Click()
Dim ws1 As Worksheet
Set ws1 = Worksheets(1)
    If Not ws1 Is Nothing Then
        With ws1
            ActiveCell.EntireRow.Delete
        End With
    End If
End Sub

 

[abdelfattah]

thanks logit I still want by selected row from listbox on userform .

 

[Micron]

the code works without any problem with another project,

So what? Obviously something is different with this project and you need to troubleshoot it as I suggested, but not only for the example I used. All references and variables must be as you expect.

 

[abdelfattah]

So what? Obviously something is different with this project

I don't think big difference but I will do somethings to find out if you're right .
thanks

 

[abdelfattah]

I'm not really sure why !
the original project will be as in new project with the same structure !