Παράθεση:
Αρχική Δημοσίευση από ChrisGT7  Επομένως χρειάζεσαι αντιγραφή/επικόλληση των πινάκων των δύο φύλλων στον πίνακα Α'.
Θεωρώντας ότι τα δύο φύλλα έχουν ακριβώς την ίδια μορφή, πατώντας το κουμπί ΑΝΤΙΓΡΑΦΗ τα δεδομένων των πινάκων των δύο φύλλων αντιγράφονται στον πίνακα Α'. |
Ναι ίδια μορφή θα είναι, όπως παράδειγμα τώρα, αλλά θα πρέπει να θυμάμαι να βάζω στην ίδια σειρά τις Χώρες.
Με βόλευε η προηγούμενη μέθοδος και θα σε πω γιατί:
1) Επέλεγα εγώ τι θα αντιγράφει από το όνομα, ναι μεν να κάνω απαλοιφή και να αφήσω δυο χώρες, αλλά αν χρειαστεί να βάλω ακόμα μια, και πατήσω το κουμπί θα τα επαναφέρει ξανά, ενώ είναι πάρα πολύ ωραίο αυτό που έκανες.
2) Οι πίνακες ναι θα είναι ίδιας μορφής, αλλά όχι οι χώρες, γιατι θα πρέπει να θυμάμαι να έχω στην ίδια σειρά τις χώρες.
Επαναλαμβάνω πολύ καλό αυτό που έκανες.
Και αν δεν γίνει σαν την προηγούμενη μέθοδο
Για κάθε προσθήκη φύλλου θα πρέπει να προσθέσω και κώδικα σωστά?
π.χ. σε περίπτωση νέου φύλλου (Φύλλο3)
θα προσθέσω
R3 As Long
Range("G" & R1 & ":I" & R1).Value = Sheets("Φύλλο3").Range("E" & R3 & ":G" & R3).Value
αντί για SUMIF είπα μήπως έπαιρνε το COUNTA ή COUNTIF αλλα τζίφος
σου ανεβάζω το προηγούμενο αρχείο, και δες τα πρασινο μπλε τι εννούσα άλλη σειρά οι χώρες.