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

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