Εμφάνιση ενός μόνο μηνύματος
  #1  
Παλιά 20-05-13, 16:11
othonas Ο χρήστης othonas δεν είναι συνδεδεμένος
Όνομα: ΟΘΩΝΑΣ
Έκδοση λογισμικού 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
Απάντηση με παράθεση