14-10-16, 15:57
|
| Όνομα: Σπύρος Έκδοση λογισμικού Office: Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 20-01-2016
Μηνύματα: 3
| |
Χρήστο σ΄ ευχαριστώ πολύ για την άμεση απάντηση.
Τρέχοντας όμως την εντολή, όταν δεν υπάρχει φύλλο με το όνομα αυτό, το αντιγράφει και βγάζει το μύνημα "Το όνομα περιέχει μη έγκυρους χαρακτήρες!". Πατόντας τη μοναδική επιλογή που μου δίνει "ΟΚ" διαγράφει το φύλλο . Έσβησα τις παρακάτω γραμμές του κώδικα και κάνει αυτό που θέλω.
MsgBox "Το όνομα περιέχει μη έγκυρους χαρακτήρες!", vbCritical, "Ονομασία φύλλου εργασίας"
Application.DisplayAlerts = False
Sheets(Worksheets.Count).Delete
Application.DisplayAlerts = True
|