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