 Αντιγραφή & Επικόληση
Φίλε Τάσο σ΄ευχαριστώ κι εσένα για την τρίτη λύση στο πρόβλημα.
Πολύ καλή λύση με ένα μικρό λάθος.(μάλον λόγω της ώρας σύνταξης του κώδικα 03:43)
To If FirstFreeLine.Row < LastLine.Row Then FirstFreeLine.Value = LastLine.Value
πρέπει να γίνει If FirstFreeLine.Row > LastLine.Row Then FirstFreeLine.Value = LastLine.Value
Σ ευχαριστώ πολύ
Διατελώ μεθ΄υπολήψεως
Ο ελάχιστος
Γιώργος
|