13-10-13, 16:52
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Βάλε στο Module1 τον παρακάτω κώδικα και αντιστοίχισε τον σε ένα κουμπί (όχι ActiveX) στο φύλλο "Lookup": Κώδικας: Sub ClearAll()
Range("E19").Select
On Error GoTo ExitHere
Application.EnableEvents = False
Range("E20:M119").ClearContents
ExitHere:
Application.EnableEvents = True
End Sub
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |