16-03-21, 16:02
|
 | Διαχειριστής Όνομα: Χρήστος Ζώρζος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 20-09-2013 Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 1.046
| |
Γιώργο,
Δοκίμασε τον παρακάτω κώδικα διαγραφής: Κώδικας: Private Sub CmdDelete_Click()
Dim R As Long
If LsBx.ListIndex < 1 Then Exit Sub
R = Sheets("KAE").Range("A:A").Find(LsBx.List(LsBx.ListIndex)).Row
Sheets("KAE").Rows(R & ":" & R).Delete
CmdSearch_Click
LsBx.Selected(LsBx.ListIndex) = True
End Sub
__________________
Your Curiosity Will Be The Death Of You! |