22-04-12, 09:34
|
 | Super Moderator Όνομα: Θανάσης Στυλιανίδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-10-2009 Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
| |
Η παρακάτω γραμμή κώδικα, κάνει αποκοπή την περιοχής που περιέχει το Α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)
Θανάσης.
ΥΓ. Παντελή για να είναι σαφέστερα τα ερωτήματά σου καλό είναι να ανεβάζεις παράδειγμα.
|