Γρήγορη αντιγραφή συναρτήσεων. Πώς;
 

Στο συνημμένο αρχείο υπάρχει ένας πίνακας στα κελιά του οποίου πρέπει να μπουν οι συναρτήσεις MAX, ΜΙΝ. Αυτές οι Μέγιστες και Ελάχιστες τιμές αφορούν 52 εβδομάδες (όλο το έτος) και τρεις διαφορετικές κατηγορίες, οπότε μιλάμε για 312 κελιά. Μπορώ να αποφύγω την εισαγωγή σε κάθε κελί ξεχωριστά και να το κάνω με πιο μαζικά με αντιγραφές ή με το Δείκτη αντιγραφής (fill handle);

Ευχαριστώ

RE: Γρήγορη αντιγραφή συναρτήσεων. Πώς;
 

Καλησπέρα Διονύση. Χρόνια πολλά και καλή χρονιά εύχομαι!

Στο αρχείο που επισυνάπτω γίνεται η αντιγραφή που ζητάς.

Έχω προσθέσει στο πρώτο φύλο 6 επιπλέον στήλες με συνάρτηση που βρίσκει τις μέγιστες και ελάχιστες τιμές ανά εβδομάδα. Με το κουμπί Copy αντιγράφονται στο δεύτερο φύλο στις αντίστοιχες θέσεις.

Ο κώδικας είναι πολύ απλός και έχω κάνει κάποιες παραδοχές όπως:
Οι περιοχές που δουλεύεις στα δύο φύλα είναι πάντα οι ίδιες και δε θα αλλάξουν. Δεν είναι δυναμικός δηλαδή. Επομένως αν κάτι αλλάξεις εσύ στη δομή των φύλων δε θα δουλέψει. Αν υπάρχει περίπτωση να κάνεις αλλαγές θα πρέπει να αλλάξει και ο κώδικας.

Στο πρώτο φύλο η συνάρτηση ψάχνει να βρει τις Δευτέρες και την πρώτη του έτους για να υπολογίσει τις εβδομάδες.

Καλή χρονιά και πάλι
Γιώργος

Γιώργο ευχαριστώ για την απάντηση και σου εύχομαι Καλή Χρονιά με Υγεία!

Δοκιμάζοντας τη λύση που μου προτείνεις:

- Αν πατήσω το κουμπί Copy για να γίνει η αντιγραφή στο δεύτερο φύλλο βγαίνει σφάλμα ''Δεν είναι δυνατή η εκτέλεση της μακροεντολής ''MinMaxCopy.xlsm!CopyAll''. Η μακροεντολή μπορεί να μην είναι διαθέσιμη σε αυτό το βιβλίο εργασίας ή μπορεί να έχουν απενεργοποιηθεί όλες οι μακροεντολές.'' Σημειωτέον όμως ότι οι μακροεντολές μου είναι ενεργοποιημένες.

- Αν κάνω μαζικό copy-paste τα κελιά από το πρώτο φύλλο στο δεύτερο, τότε στα κελιά του δεύτερου φύλλου εμφανίζεται σφάλμα #ΤΙΜΗ.

- Αν τις συναρτήσεις του πρώτου φύλλου τις τροποποιήσω για να τις αντιγράψω στο δεύτερο φύλλο έτσι ώστε πχ η
=IF(WEEKDAY($C3;2)=1;MAX(OFFSET(D3;0;0;7;1));IF(DA TE(YEAR($C3);1;1)=$C3;MAX(OFFSET(D3;0;0;7-WEEKDAY($C3;2)+1;1));""))
να γίνει
=IF(WEEKDAY(DATA!$C3;2)=1;MAX(OFFSET(DATA!D3;0;0;7;1));IF(DATE(YEAR(DATA!$C3);1;1)=DATA!$C3;MAX(OFFSET(DATA!D3;0;0;7-WEEKDAY(DATA!$C3;2)+1;1));"")) για να λειτουργεί,
τότε επανέρχομαι στην ίδια χρονοβόρα διαδικασία την οποία θέλω να αποφύγω.

Καλησπέρα σε όλους
Χρόνια πολλά και καλή χρονιά
Δες το συνημμένο και τα λέμε.

Παιδιά ευχαριστώ για τις απαντήσεις σας!

Θα τις δω και τις δύο (θα δοκιμάσω να ανοίξω το αρχείο του Γιώργου σε άλλο υπολογιστή ή/και με άλλο πρόγραμμα) και θα πορευτώ ανάλογα.