27-08-13, 13:03
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Να που κάθε μέρα μέρα μαθαίνω ...
Τάσο αν μου επιτρέπεις
Σκεφτόμουν το εξής θέμα:
Αν για τον οιοδήποτε λόγο χρειαστεί να αντιγραφεί ξανά μια γραμμή με τα ίδια ή άλλα δεδομένα
για να μην διαγράφουμε τα "Yes" χειροκίνητα
πρόσθεσα στον κώδικά σου μετά το On Error GoTo ErrHandler Κώδικας: If Target = Range("A1") Then
Range("A2:A100").ClearContents
Cancel = True
End If
οπότε με διπλό κλικ στην κεφαλίδα Kopied διαγράφονται τα "Yes"
και η αντιγραφή επιτρέπετε πάλι
|