01-04-24, 16:18
|
 | Διαχειριστής Όνομα: Χρήστος Ζώρζος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 20-09-2013 Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 1.047
| |
Καλησπέρα και καλό μήνα Νίκο,
Δοκίμασε να προσθέσεις τις παρακάτω γραμμές πάνω από τη γραμμή Application.ScreenUpdating = True: Κώδικας: R = Range("B" & Rows.Count).End(xlUp).Row + 1
Rows(R & ":" & Rows.Count).ClearContents
__________________
Your Curiosity Will Be The Death Of You! |