[Excel07] Αυτόματη ενημέρωση (με πρόσθεση) άλλου βιβλίου

[athfot]

Καλησπέρα σε όλους,
Θα ήθελα την βοήθειά σας σε ένα πρόγραμμα εφημεριών γιατρών Νοσοκομείου που έχω φτιάξει.
Το τελευταίο φύλλο του προγράμματος εφημεριών (επισυναπτόμενο αρχείο Πρόγραμμα) κρατά κάποια στατιστικά στοιχεία (αρ. ημερών αργιών, Κυριακών, κλπ) που πραγματοποίησε κάθε γιατρός για συγκεκριμένο μήνα του προγράμματος. Κάθε φορά το αρχείο Πρόγραμμα αποθηκεύεται με το όνομα του μηνός και του έτους για το οποίο έχει βγεί (πχ. ΙΑΝΟΥΑΡΙΟΣ 2012, ΜΑΡΤΙΟΣ 2012).
Θέλοντας να έχω αυτά τα στατιστικά στοιχεία συγκεντρωμένα σε ένα άλλο βιβλίο εργασίας έφτιαξα ένα νέο αρχείο με το όνομα Στατιστικά (το επισυνάπτω), που περιέχει ακριβώς τα ίδια πεδία με το φύλλο του αρχείου Πρόγραμμα.
Το ερώτημα είναι πως θα μπορέσω κάθε φορά που θα φτιάχνω ένα νέο πρόγραμμα εφημεριών μηνός, να ενημερώνεται αυτόματα το αρχείο Στατιστικά προσθέτοντας όμως στα υπάρχοντα δεδομένα του τα νέα δεδομένα.
Σας ευχαριστώ πολύ

Καλημέρα σε όλους.

Θανάση, καλώς ήρθες στην παρέα.

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

Τα συνημμένα σου δε, είναι 2 ΙΔΙΑ, άδεια φύλλα...

Βοήθησέ μας λίγο για να μπορέσουμε να σε βοηθήσουμε...

[gr8styl]

Φίλε συνονόματε,
Καλώς όρισες και από μένα στην παρέα μας.

Θα σου έλεγα να δεις το post: http://www.ms-office.gr/forum/10025-post5.html όπου ο φίλος Τάσος έχει ανεβάσει ένα παράδειγμα (xlImportWorksheets.xls) που με χρήση κώδικα VBA "μαζεύει" δεδομένα από άλλα βιβλία.
Στο παράδειγμα του Τάσου απλά αλλάζεις τους τίτλους των στηλών και έτσι έχοντας όλα τα δεδομένα σου στο ίδιο φύλλο, κάνεις ότι στατιστικά θέλεις.

Φιλικά
Θανάσης
ΥΓ. Δεν μου φαίνεται πολύ καλή ή ιδέα να έχεις τις αργίες σαν στήλες αλλά εσύ ξέρεις καλύτερα.

[athfot]

Καλησπέρα σε όλους.
Λευτέρη και Θανάση ευχαριστώ για τις επισημάνσεις σας και για την υπόδειξη του post.
Δεν πρόλαβα ακόμα να το δοκιμάσω να δω αν με εξυπηρετεί.
Θα ήθελα όμως να κάνω μια προσπάθεια να κάνω πιο κατανοητό αυτό που θέλω όπως ζήτησε ο Λευτέρης.
Έτσι λοιπόν, χρησιμοποιώντας ένα πρόγραμμα που έφτιαξα στο Excel κάθε μήνα βγάζω τις εφημερίες των γιατρών της κλινικής μου. Κάθε φορά το αποθηκεύω με το όνομα του συγκεκριμένου μήνα (πχ. ΙΑΝΟΥΑΡΙΟΣ 2012). Καθένα από αυτά τα αρχεία έχει ένα φύλλο με την ονομασία "Στατιστικά" που περιλαμβάνει (αριθμητικά) πόσες π.χ. γενικές εφημερίες έκανε κάθε γιατρός, πόσα Σάββατα, πόσες συγκεκριμένες αργίες για τον μήνα που έχει εκδοθεί το πρόγραμμα. (επισυνάπτω ένα αρχείο με το όνομα ΙΑΝΟΥΑΡΙΟΣ 2012).
Θέλοντας να έχω μια συνολική εικόνα έχω φτιάξει ένα νέο βιβλίο του Excel με το όνομα "Συνολικά Στατιστικά" (το ανεβάζω) που περιλαμβάνει στο 1ο φύλλο του σαν πεδία ότι ακριβώς και το φύλλο "Στατιστικά" του προγράμματος που βγάζω τις εφημερίες.
Αυτό που τελικά θέλω είναι να ενημερώνεται το 1ο φύλλο του βιβλίου "Συνολικά Στατιστικά" από τα αρχεία κάθε μηνός (ΙΑΝΟΥΑΡΙΟΥ, ΦΕΒΡΟΥΑΡΙΟΥ κλπ) αθροιστικά όμως (δηλαδή εάν ο γιατρός Α έκανε 3 Σάββατα τον Ιανουάριο και 2 τον Φεβρουάριο, η αντίστοιχη στήλη να δείχνει 5) κάθε φορά που βγάζω νεό πρόγραμμα.
Δυστυχώς η μη αυτόματη χρήση της SUM (με την διαδρομή του αρχείου) απαιτεί κάθε μήνα να προσθέτω σε 170 κελιά την νέα διαδρομή.
Ελπίζω να μην σας κούρασα
Σας ευχαριστώ πολύ
Θανάσης

Kαλησπέρα.

Θανάση, μία διαφορετική προσέγγιση, έχω να σου προτείνω.

Ενα Βιβλίο με ένα Συγκεντρωτικό Φύλλο και 12 Φύλλα. Ένα, για κάθε μήνα.

Μετά από το Συγκεντρωτικό φλλο και πρίν το Φύλλο ΓΕΝΑΡΗΣ, τοποθετούμε ένα φύλλο με το όνομα Start και στο τέλος, μετά το φύλλο ΔΕΚΕΜΒΡΗΣ, ένα άλλο φύλλο με το όνομα END.

Τα κρύβουμε και τα δύο αυτά φύλλα.

Στο Συγκεντρωτικο!Β2, βάζουμε τον τύπο.

=IF(SUM(Start:End!B2)=0;"";SUM(Start:End!B2))

Τραβάμε προς τα κάτω και δεξιά, όσο χρειαζόμαστε.

Ελπίζω να βοήθησα.

Καλό βράδυ.

[Spirosgr]

Καλησπέρα
Μία άλλη προσέγγιση ή μάλλον δύο ...
1. Στην κορδέλα και στην ενότητα Data υπάρχει η ενέργεια Consolidate που μας επιτρέπει να "μαζέψουμε" δεδομένα από διάφορες περιοχές και φύλλα
Αν δεν θέλει ο φίλος Θανάσης να αλλάξει την συνήθεια του και να δουλέψει με αυτό το στήσιμο τα δεδομένα του είναι μια καλή λύση χωρίς πολύ σκέψη και τύπους να μαζέψει τα δεδομένα των διαφόρων μηνών σε ένα φύλλο
Βάζοντας τον κέρσορα πάνω στο κουμπί Consolidate και πατώντας F1 εμφανίζετε η βοήθεια της excel που μπορεί να δει αναλυτικά πως γίνετε
2. Από την άλλη αν είχα εγώ να διαχειριστώ κάποια τέτοια εργασία θα έφτιαχνα 2 λίστες με ονόματα Ιατρών και εφημερίες και θα έστηνα το φύλλο μου όπως στην εικόνα για να αναλύσω τα δεδομένα με Pivot Table
Βασικό: για να μην έχω κενά θα έβαζα και μια παράμετρο στις εφημερίες "χωρίς υπηρεσία" ( ή ότι άλλο εξυπηρετεί)

[Spirosgr]

καλημέρα
Σας ανεβάζω ολοκληρωμένο το έργο εφημερίες έτοιμο για χρήση
Όλη η διαδικασία εκτελείτε στο φύλλο ΔΙΑΧΕΊΡΙΣΗ ΕΦΗΜΕΡΊΩΝ
το φύλλο είναι σε xlsm για πιθανή προσθήκη εντολών
όπως παράδειγμα κάποιο κουμπί που να "καθαρίζει" τα δεδομένα από τον βασικό μας πίνακα μια φορά τον χρόνο

[athfot]

Καλησπέρα,
Σας ευχαριστώ πολύ όλους για τις μέχρι τώρα προσπάθειες και απαντήσεις.
1) Λευτέρη, η δική σου προσέγγιση με καλύπτει, την έχω ήδη εφαρμόσει, δουλεύει προσφέροντάς μου τα σύνολα που αναζητώ. Στο μόνο σημείο που "υστερεί" (ας μου επιτραπεί η λέξη) είναι ότι κάθε μήνα θα πρέπει να ενημερώνω το συγκεντρωτικό βιβλίο (βέβαια με πολύ λιγότερες ενέργειες απότι πριν).
2)Θανάση, κατέβασα το αρχείο που μου υπέδειξες. Σίγουρα αποτελεί λύση (έστω και χωρίς αυτοματισμό, αλλά με πολύ λιγότερα κλικ), αλλά έκανα μια προσπάθεια να το προσαρμόσω στα δικά μου και το αποτέλεσμα το βλέπεις στο αρχείο που ανεβάζω. Οι γνώσεις που έχω για την VBA είναι ελάχιστες και πιθανώς κάτι απλό να μου ξεφεύγει. Τα βασικά προβλήματα είναι 2:Πρώτον πρέπει να επεκταθεί η δυνατότητα χρήσης και στα κελιά R8-R27 και δεύτερον σε κάθε εισαγωγή φτιάχνει καινούργιο πίνακα αντί να προσθέτει στα υπάρχοντα πεδία.
3)Σπύρο, ευχαριστώ και σένα για την πρότασή σου. Δυστυχώς λόγω δουλειάς (και εφημεριών) δεν μπόρεσα ακόμα να την ελέγξω.
Θα σε ενημερώσω μόλις το κάνω.

Καλό βράδυ
Θανάσης

[gr8styl]

Αρχική Δημοσίευση από athfot

2)Θανάση, κατέβασα το αρχείο που μου υπέδειξες. Σίγουρα αποτελεί λύση (έστω και χωρίς αυτοματισμό, αλλά με πολύ λιγότερα κλικ), αλλά έκανα μια προσπάθεια να το προσαρμόσω στα δικά μου και το αποτέλεσμα το βλέπεις στο αρχείο που ανεβάζω. Οι γνώσεις που έχω για την VBA είναι ελάχιστες και πιθανώς κάτι απλό να μου ξεφεύγει. Τα βασικά προβλήματα είναι 2:Πρώτον πρέπει να επεκταθεί η δυνατότητα χρήσης και στα κελιά R8-R27 και δεύτερον σε κάθε εισαγωγή φτιάχνει καινούργιο πίνακα αντί να προσθέτει στα υπάρχοντα πεδία.

Θανάση το πόσες στήλες θα εισαχθούν καθορίζεται από την γραμμή στον κώδικα

Set SourceRange = wks.Range(wks.Cells(FirstRow, 1), wks.Cells(LastRow, 17))

άλλαξε το 17 σε 18 για να συμπεριλάβεις την R. ή σε 26 για να φτάσεις μέχρι την Z

Το ότι εισάγει τα περιεχόμενα τους ενός πίνακα κάτω από τον άλλο είναι επόμενο.
Σκοπός ήταν να έχεις τα όλα τα δεδομένα σε ένα φύλλο και έτσι να μπορείς να κάνεις τις πράξεις που θέλεις. Αυτό μπορεί πολύ εύκολα να γίνει με ένα συγκεντρωτικό πίνακα (Pivot tble) ή τις συναρτήσεις SUM, SUMIF, SUBTOTAL κλπ.

Καλή συνέχεια.
Θανάσης

[athfot]

Καλησπέρα,
Σπύρο, σ'ευχαριστώ για την προσπάθειά σου. Δουλεύει, αλλά έχω συνηθίσει πολλά χρόνια τώρα στην οπτική εντύπωση του πίνακα που έχω ήδη ανεβάσει.
Θανάση, έκανα την τροποποίηση που μου υπέδειξες, όπως επίσης και την αλλαγή του φύλλου(που παίρνει τα δεδομένα) από το 1ο στο 6ο που με εξυπηρετεί. Τελικά καταλήγω στο συμπέρασμα ότι, εάν υπήρχε η δυνατότητα η εισαγωγή (με τον τρόπο που γίνεται) αντί να αφορά μόνο τα δεδομένα κάποιου φύλλου αλλά ολόκληρο το φύλλο, θα μπορούσα να το χρησιμοποιήσω σε συνδυασμό με τον τρόπο που μου υπέδειξε ο Λευτέρης (ο οποίος είναι αυτό που ψάχνω).
Σας ευχαριστώ πολύ
Καλό βράδυ
Θανάσης