[ChrisGT7]

Καλησπέρα Σπύρο,

Τον είχα δει τον κώδικα του αρχείο, γι' αυτό αναφέρω αυτή την αλλαγή.

Το συμβάν Workbook_SheetChange ενεργοποιείται όταν γίνεται κάποια αλλαγή σε οποιοδήποτε φύλλο εργασίας του βιβλίου. Δεν εκτελείται όμως ταυτόχρονα σε όλα τα φύλλα αλλά μονάχα σ' εκείνο που έγινε η αλλαγή. Επομένως, άλλη γραμμή θα έχει το Range("A" & Rows.Count).End(xlUp).Row αν εκτελεστεί στο φύλλο π.χ. 200Α και άλλη στο 700Α αν έχουν προφανώς διαφορετικό πλήθος γραμμών.

Επίσης, θα μπορούσες να δημιουργήσεις ένα module με μια δημόσια διαδικασία π.χ. EGINAN_ALLAGES και να συμπεριλάβεις τις εντολές του Worksheet_Change που υπάρχουν σε όλα τα φύλλα, έτσι ώστε να έχεις λίγο μικρότερο μέγεθος αρχείου. Απλά μετά στο Worksheet_Change θα καλείς μόνο την EGINAN_ALLAGES().