[Rodokanator]

Προσθεσα μερικα κουμπια για να επιβεβαιωσω οτι αυτοι που χρησιμοποιουν το φυλλο δεν θα τα κανουν μπαχαλο. Εφτιαξα ενα κουμπι για καταχωρηση νεων ΚΑΕ, ενα για διαγραφη και ενα για εξοδο απο τη φορμα. Η εγγραφη και η εξοδος δουλευουν μια χαρα. Στο κουμπι διαγραφης εβαλα τον εξης κωδικα

Private Sub CmdDelete_Click()
Dim i As Integer
For i = 1 To Range("A65356").End(xlUp).Row - 1
If LsBx.Selected(i) Then
Rows(i + 1).Select
Selection.Delete
End If
Next i

End Sub

ωστε οτι επιλεγει πανω στο ListBox να διαγραφει αλλα δεν μου δουλευει. Που εχω κανει το λαθος???