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

[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 κλπ.

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