
20-05-13, 16:11
|
| Όνομα: ΟΘΩΝΑΣ Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 10-05-2013
Μηνύματα: 27
| |
Αντιγραφή πολλαπλών φύλλων
Καλησπερα εχω τον παρακατω module το οποιο αντιγραφει απο ορισμενα φυλλα συγκεκριμενη περιοχη κελιων στο ενεργο φυλλο (αν το διαβαζω σωστα ) . Θα ηθελα να μου πειτε αν γινεται αυτα τα φυλλα να αντιγραφονται σε καποιο συγκεκριμενο με το ονομα π.χ. Γιωργος .Ευχαριστω οσους απαντησουν.
κωδικας:
Sub SummurizeSheets()
Dim ws As Worksheet
Dim x As Integer
For x = 9 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(x).Range("O42:AF83").Copy
ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0)
Next
End Sub
|