[VBA] Δυναμική περιοχή Εκτύπωσης

[Flashgordon61]

Καλημέρα σε όλους.
Παρακαλώ την βοήθειά σας

Όπως φαίνεται και στο επισυναπτόμενο αρχείο, σε έναν πίνακα του Excel ,του οποίου τα δεδομένα προέρχονται από συναρτήσεις, θέλω η περιοχή εκτύπωσης να ορίζεται από τις επικεφαλίδες του πίνακα έως και την τελευταία γραμμή του πίνακα που υπάρχουν ορατά δεδομένα.(όχι οι γραμμές που η συνάρτηση φέρνει αποτέλεσμα "") .

[Tasos]

Καλησπέρα Γιώργο!

Δεν θα χρειαστείς VBA.

Όρισε το όνομα "PrintArea" και πέρασε τον παρακάτω τύπο:

=Sheet1!$D$2:INDEX(Sheet1!$N:$N;MAX((Sheet1!$D$1:$D$1000<>"")*ROW(Sheet1!$1:$1000)))

Στο όνομα "Print_Area" γράψε τον τύπο: = PrintArea

Μ΄αυτόν το τρόπο το μήκος της περιοχής εκτύπωσης θα αυξομειώνεται δυναμικά αναλόγως τις εγγραφές που θα εμφανίζονται στην πρώτη στήλη του πίνακα "Table1".

Προσοχή! Αν ορίσεις εκ νέου την περιοχή εκτύπωσης από το μενου της εφαρμογής, ο τύπος = PrintArea θα αντικατασταθεί!

Με εκτίμηση

Τάσος

[Flashgordon61]

Κα-τα-πλη-κτι-κό!!!!!!!!!!!!!!!!

Τάσο χίλια ευχαριστώ

Καλή συνέχεια.

Γιώργος