[Γενικά] Πολλά φύλλα εργασίας

[asterisk]

Καλησπέρα και ευχαριστώ για την φιλοξενία

Θα ήθελα να ρωτήσω, έχω ένα αρχείο excel με 70 φύλλα εργασίας. Το κάθε φύλο εργασίας έχει την ίδια δομη, 10 στήλες κατά τον ίδιο τρόπο δομημένες αλλά με διαφορετικό αριθμό γραμμών-εγγραφών.

Θέλω να φτιάξω ένα φύλλο εργασίας, το 71ο για παράδειγμα, που θα μαζέψω για παράδειγμα τις στήλες Β και των 70 φύλων εργασίας και από εκει και πέρα να βγάλω κάποιους μέσους όρους,διαγράμματα κτλ.
Όλες οι στήλες Β έχουν την ίδια δομή αλλά διαφορετικό αριθμό σειρών.

Υπάρχει κάποιος τρόπος που μπορεί να γίνει αυτό?
Ευχαριστώ, Αλέξης.

[manolis]

Αλέξη ο Σπύρος έχει ανεβάσει το παρακάτω

http://www.ms-office.gr/forum/16787-post4.html

Κοιταξέ το αν σε εξυπηρετει.

Φιλικά

[asterisk]

Μανώλη ευχαριστώ για την απάντηση, είναι όντως κοντά σ'αυτό που ψάχνω.

Αυτό που ψάχνω είναι αν μπορώ να πάρω ολόκληρη τη στήλη από κάθε φύλλο(την ίδια) για να μπορώ να κάνω διαγράμματα,κτλ..

Δεν ξέρω αν μπορεί να γίνει ή θα πρέπει να το κάνω χειρωνακτικά για κάθε φύλλο

[Spirosgr]

Καλησπέρα
Αλέξανδρε καλώς ήλθες στην παρέα μας.
Στο φύλλο 71 που θα "μαζεύονται" τα δεδομένα
θα υπάρχουν και οι 70 Β στήλες από τα άλλα φύλλα;

[asterisk]

Kαλησπέρα και Ευχαριστώ για το καλωσόρισμα.

Ναι στην 71 θέλω να εμφανίζονται 70 στήλες Β

Δηλαδή στο φύλλο 71 να είναι στη στήλη:
Α η Β φύλλο1
Στη Β η Β φύλλο2
Στη C η Β φύλλο 3
Και πάει λέγοντας..

[Spirosgr]

Καλημέρα
Στο βιβλίο που ακολουθεί υπάρχει μια λύση στην οποία η διαδικασία
απαιτεί κάποια μεθοδικότητα γι' αυτό να είστε προσεκτικοί σε κάθε βήμα.
Υποθέτουμε ότι έχουμε κάποια φύλλα χ τον αριθμό (όσα κι αν είναι αυτά),
και οι ονομασία τους (κάτω στις tabs) μπορεί να είναι και κακογραμμένη με κενά ανάμεσα
και άλλα λάθη.
Θέλουμε να έρθουν στο φύλλο MainSheet όλες οι τιμές, από όλες τις στήλες Β, από όλα τα φύλλα για να τις επεξεργαστούμε.
Εδώ να πούμε ότι επεξεργασία σημαίνει:
Παίρνω στατιστικά ή φτιάχνω διαγράμματα και δεν χαλάω τις τιμές (τύπους).
Πρώτα
Φτιάχνουμε στην στήλη Α ένα ευρετήριο (πίνακα περιεχομένων)
ονομάτων των φύλλων.
Αυτό θα γίνει αυτόματα με τύπους (*βλέπε βιβλίο) και ονομασία στο name manager.
Μετά
Αυτές οι ονομασίες των φύλλων (τα tabs) δηλαδή θα μεταφερθούν με INDIRECT από το B1 και δεξιά και για όσο πάει...σαν «κεφαλίδες»
και
Ακριβώς από κάτω από κάθε τύπο «κεφαλίδα» πλέον θα έρθουν με INDIRECT (και πάλι)
όλες οι τιμές.
Τέλος
με μορφοποίηση της περιοχής θα "εξαφανίσουμε" τα μηδενικά για να μην μας ενοχλούν
Λεπτομέρειες στο βιβλίο
Να σημειωθεί ότι μπορεί να γίνει και μεταφορά μόνο τιμών (χωρίς τύπο) με VBA

[Spirosgr]

Καλησπέρα και πάλι
Στο πιο πάνω βιβλίο testColumns, για όποιον ενδιαφέρετε,
μπορούμε να έχουμε και τις εξής παραλλαγές:
1. αντί
=INDIRECT(TEXT("$A"&"$"&COLUMN()+1;"000"))
αυτό
=INDEX($A$3:$A$20;COLUMN()-1)

2. αντί
=INDIRECT(B$1&"!b"&ROW(A1))
αυτό
=INDIRECT(INDEX($A$3:$A$20;COLUMN()-1)&"!b"&ROW(A1))
και έτσι δεν χρειάζονται και οι τύποι των «κεφαλίδων» από B1....H1

τέλος
3. μπορούμε να ονομάσουμε τις Β στήλες (όλες - *βλέπε name manager) και
να χρησιμοποιήσουμε απλά έναν συνδυασμό INDEX, INDIRECT
χωρίς τίποτε άλλο από τα περιεχόμενα του testColumns
Αυτήν την μέθοδο θα την δείτε στο βιβλίο VOL2 που ακολουθεί...

[asterisk]

Ευχαριστώ πολύ για τις απαντήσεις, να είσαι καλά Σπύρο.