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 .

 

[Micron]

What about what was suggested in post 2?

 

[abdelfattah]

if you mean I should check variable i will gives me the values by looping through rows 1,2,...
if the i is zero then could be problem .

 

[Micron]

I meant what about the code example that was given there?
Easy enough to check what i is
For i = .Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
debug.print i
rest of code here

 

[abdelfattah]

sorry for delaying

I meant what about the code example that was given there?

not really understand it!
do you mean what gives in original project?

 

[Micron]

I mean did you try what you were given?

 

[Akuini]

@abdelfattah
Does col A has duplicate values?

 

[abdelfattah]

I mean did you try what you were given?

it gives me the lastrow number

 

[abdelfattah]

Does col A has duplicate values?

yes , but DATE not value

 

[Akuini]

yes , but DATE not value

Try replacing this:

      If .Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then

with this:

      If .Cells(i, 1) = CDate(ListBox1.List(ListBox1.ListIndex)) Then

 

[abdelfattah]

Hi Akuini,
I just want deleting row selection ,but your suggestion will delete all of rows contains duplicated date .