Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Γενικά] Αντιγραφή επικόλληση στο πρώτο κενό κελί (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/1808-antigrafi-epikollisi-sto-proto-keno-keli.html)

PANIK 20-04-12 22:58
Αντιγραφή επικόλληση στο πρώτο κενό κελί
 
Καλησπέρα σε όλα τα μέλη του Forum. Θά ήθελα να ρωτήσω το εξής: Αν υπάρχει τρόπος στο ίδιο βιβλίο εργασίας τα δεδομένα που έχω στό φύλλο 1 (ένα ) να μεταφερθούν (αποκοπή ) και να επικολληθούν στην πρώτη κενή γραμμή που υπάρχει στο φύλλο 2 (δύο).

Thanosp 22-04-12 08:03
Καλημέρα σε όλους
μήπως σε βολεύει η αντιγραφή Ειδική επικόλληση Αντιμετάθεση άλλως vbe
Θανάσης

gr8styl 22-04-12 09:34
Η παρακάτω γραμμή κώδικα, κάνει αποκοπή την περιοχής που περιέχει το Α1 του πρώτου φύλλου και κάνει επικόλληση στο πρώτο κενό κελί της στήλης Α του δεύτερου φύλλου. Δουλεύει με όλες τις εκδόσεις 2003, 2007 και 2010 για γραμμές πέραν της 65536
Αν το ζητούμενο είναι αντιγραφή και όχι αποκοπή αλλάζουμε το .Cut σε .Copy

Κώδικας:
Sheets(1).Range("A1").CurrentRegion.Cut Destination:= _
    Sheets(2).Range("A" & Sheets(2).Range("A" & _
    Range("A:A").Rows.Count).End(xlUp).Row + 1)
Θανάσης.
ΥΓ. Παντελή για να είναι σαφέστερα τα ερωτήματά σου καλό είναι να ανεβάζεις παράδειγμα.

PANIK 22-04-12 09:35
Θανάση καλημέρα και σ΄ευχαριστώ για την απάντηση σου. Έχεις δίκιο ότι για να γίνεται αυτό που θέλω αυτόματα θα χρειαστεί κώδικας. Αν έχεις εσυ η κάποιος άλλος ένα κώδικα γι αυτό το θέμα θα με βοηθούσε πολύ αν το ανέβαζε στο Forum.

PANIK 22-04-12 10:39
Να ευχαριστήσω και τον δεύτερο Θανάση που μου έστειλε τον κώδικα. Θα το δοκιμάσω και θα σας πω αν δουλεύει.Σας ευχαριστώ και πάλι για το κόπο και το χρόνο σας.


Η ώρα είναι 11:44.

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


Search Engine Optimization by vBSEO 3.3.2