Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Μεταφορά γραμμών απο το ένα φύλλο σε κάποιο άλλο. (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2655-metafora-grammon-apo-ena-fillo-se-kapoio-allo.html)

iozako 25-08-13 16:40

Μεταφορά γραμμών απο το ένα φύλλο σε κάποιο άλλο.
 
Καλησπέρα σας παιδιά,

Συγχαρητήρια για την φοβερή δουλειά που κάνετε εδω.
Συγνώμη που ανοιγω καινουριο θέμα αλλά έχω ψάξει αρκετά και δεν μπορώ να βρω κάτι αντίστοιχο.
Είμαι αρκετά αρχάριος και θεωρώ ότι αυτό που θέλω είναι πολύ απλό για εσάς.
Λοιπόν μπαίνω στο θέμα. Εχω ένα excel με 2 φύλλα. Στο πρώτο έχω κάτι σαν βάση και στο δεύτερο μεταφέρω αυτά που χρειάζομαι απο το πρώτο. Στο πρώτο φύλλο η κάθε γραμμή έχει 20 κελιά και 1000+ στήλες.
Αυτό που θέλω να κάνω είναι όταν επιλέγω ολόκληρη την γραμμή απο το πρώτο φύλλο και πατώνταν κάποιο κουμπι που θα φτιάξω να μου την μεταφέρει ολόκληρη την γραμμή στο δεύτερο φύλλο και στην συνέχεια όταν ξαναεπιλέξω το επόμενω να μου το προσθέτη απο κάτω.

GeorgeK 26-08-13 02:16

Απ: Μεταφορά γραμμών από το ένα φύλλο σε κάποιο άλλο
 
1 Συνημμένο(α)
Καλησπέρα και σε σένα,

Αν και δεν έχω εικόνα από το τι ακριβώς θέλεις να κάνεις ή το πως είναι το αρχείο σου στημένο, αν κατάλαβα καλά τι θες αυτό που επισυνάπτω κάνει ότι ακριβώς ζητάς. Αντιγράφει όλα τα δεδομένα μιας γραμμής από το πρώτο φύλλο στο δεύτερο φύλλο στην πρώτη κενή γραμμή που θα βρει, ξεκινώντας να υπολογίζει από το κελί Α1.

Για να λειτουργήσει κάνε doubleclick σε οποιοδήποτε κελί της γραμμής της οποίας θέλεις να αντιγράψεις τα δεδομένα για να γίνει η αντιγραφή.

Γιώργος

Παράθεση:

Αρχική Δημοσίευση από iozako (Μήνυμα 15447)
Καλησπέρα σας παιδιά,

Συγχαρητήρια για την φοβερή δουλειά που κάνετε εδω.
Συγνώμη που ανοιγω καινουριο θέμα αλλά έχω ψάξει αρκετά και δεν μπορώ να βρω κάτι αντίστοιχο.
Είμαι αρκετά αρχάριος και θεωρώ ότι αυτό που θέλω είναι πολύ απλό για εσάς.
Λοιπόν μπαίνω στο θέμα. Εχω ένα excel με 2 φύλλα. Στο πρώτο έχω κάτι σαν βάση και στο δεύτερο μεταφέρω αυτά που χρειάζομαι απο το πρώτο. Στο πρώτο φύλλο η κάθε γραμμή έχει 20 κελιά και 1000+ στήλες.
Αυτό που θέλω να κάνω είναι όταν επιλέγω ολόκληρη την γραμμή απο το πρώτο φύλλο και πατώνταν κάποιο κουμπι που θα φτιάξω να μου την μεταφέρει ολόκληρη την γραμμή στο δεύτερο φύλλο και στην συνέχεια όταν ξαναεπιλέξω το επόμενω να μου το προσθέτη απο κάτω.


Spirosgr 26-08-13 14:23

1 Συνημμένο(α)
Καλημέρα
Κατ' αρχήν να καλωσορίσουμε και τους δύο φίλους στην παρέα μας

Γιάννη το ζητούμενο σου με μπερδεύει λίγο στο σημείο με τα 20 κελιά
Μια γραμμή μπορεί να αναπτύσσεται σε 1000+ στήλες αλλά δεν κατάλαβα που πάνε τα 20 κελιά

Στο βιβλίο που ακολουθεί στα δύο πρώτα φύλλα υπάρχει παράδειγμα μη μόνιμης μεταφοράς δεδομένων με τύπους
Στα επόμενα δύο φύλλα υπάρχει παράδειγμα μόνιμης μεταφοράς δεδομένων (μαζί με την μορφοποίηση τους) με κώδικα
Με Alt +F11 δείτε τον κώδικα και κάποιες επεξηγήσεις
ώστε να τον αντιγράψετε σωστά στο δικό σας βιβλίο

Γιώργο πολύ καλή η σκέψη σου για το διπλό κλικ ... χωρίς κουμπιά
Η μέθοδός σου μπορεί να χρησιμοποιηθεί και στον κώδικα που έγραψα Αλλά...
έχει ένα σημαντικό μειονέκτημα το Loop
αν για παράδειγμα στο φύλλο έχουμε 20000 γραμμές τότε ο κώδικας είναι εξαιρετικά αργός
Καλή συνέχεια!

GeorgeK 26-08-13 18:13

Καλησπέρα Σπύρο,

Ναι, σωστή η παρατήρηση σου για το χρόνο υπολογισμού αν έχει πολλές γραμμές το βιβλίο εργασίας.

Γιώργος

Tasos 27-08-13 09:22

1 Συνημμένο(α)
Καλημέρα σε όλους!

Δείτε ακόμα μια προσέγγιση με χρήση του διπλού κλικ.

Καλή συνέχεια σε όλους!

Τάσος

Spirosgr 27-08-13 13:03

Να που κάθε μέρα μέρα μαθαίνω ...
Τάσο αν μου επιτρέπεις
Σκεφτόμουν το εξής θέμα:
Αν για τον οιοδήποτε λόγο χρειαστεί να αντιγραφεί ξανά μια γραμμή με τα ίδια ή άλλα δεδομένα
για να μην διαγράφουμε τα "Yes" χειροκίνητα
πρόσθεσα στον κώδικά σου μετά το On Error GoTo ErrHandler
Κώδικας:

    If Target = Range("A1") Then
        Range("A2:A100").ClearContents
        Cancel = True
    End If

οπότε με διπλό κλικ στην κεφαλίδα Kopied διαγράφονται τα "Yes"
και η αντιγραφή επιτρέπετε πάλι


Η ώρα είναι 16:16.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2