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