Problem with delete button code

[RAires]

Hello guys.

I'm making a form and i added a delete button to a database that i already had.

I created a list box inside the form so you can see the database while you're filling the form. The idea of my delete button is to be able to select a row in the listbox and be able to press delete and delete that row.
The problem i'm running into is that when i add data to the form and then go to the last entry i added and try to delete it, it deletes another row instead i cant i figure out what is wrong with my code.

If you guys could help would be awesome.

Here is the code i got for the delete button:

Private Sub cmdDelete_Click()
Dim i As Integer

For i = 0 To Range("B65356").End(xlUp).Row - 1
    If lstDisplay.Selected(i) Then
        Rows(i + 1).Select
        Selection.Delete
    End If
Next i
End Sub

 

[NoSparks]

variable i is for the rows on your sheet...
there is no row 0 and Range("B65356").End(xlUp).Row - 1 will be the row before the last row.

 

[RAires]

Any tips on how to fix it? I've been changing values arround but i dont seem to be able to make it work. I'm sorry it's probably a simple solution but im new to this.

Thanks for the reply i really appreciate it

 

[mikerickson]

List boxes use 0 based arrays.

It almost lookes like

Range("A1").Offset(lstDisplay.ListIndex, 0).EntireRow is the row you want deleted.

Is this a single select or multi-select list box?

 

[RAires]

It's a single select listbox

 

[mikerickson]

The the code that I posted should do what you want