[Tasos]

Ο κώδικας δημιουργεί μια περιοχή κελιών (nrg) από το Α3 μέχρι το τελευταίο κελί της στήλης A που δεν είναι κενό.

Κατόπιν με την εντολή rng.Cells.EntireRow.AutoFit ρυθμίζεται το ύψος ολόκληρης της γραμμής στην οποία ανήκει το καθένα από τα κελιά της της περιοχής.
Δε χρειάζεται λοιπόν να περιλάβεις δεύτερη στήλη στην περιοχή rng.

Στο παράδειγμα μας χρησιμοποιήσαμε τη στήλη A επειδή βάσει λογικής, θα είναι η στήλη που θα περιέχει πάντα δεδομένα (Α/Α Πινακίου).


Αν χρησιμοποιούσαμε τη στήλη B, θα είχαμε πρόβλημα αφού τα 2 τελευταία κελιά (B23, B24) δεν είναι συμπληρωμένα κι έτσι η περιοχή (rng)
θα ήταν κατά 2 κελιά "κοντύτερη" με αποτέλεσμα οι 2 τελευταίες γραμμές να μην συμπεριλαμβάνονται στη διαδικασία.


Τέλος πάντων, αν για κάποιο λόγο πρέπει να συμπεριληφθούν όλες οι γραμμές της χρησιμοποιημένης περιοχής τότε χρησιμοποιούμε:


Set rng = Range("A3:A" & ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count) - 1


Φιλικά


Τάσος