Εμφάνιση ενός μόνο μηνύματος
  #1  
Παλιά 06-11-15, 11:27
Σανίδας Ο χρήστης Σανίδας δεν είναι συνδεδεμένος
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-09-2015
Μηνύματα: 8
Προεπιλογή Επιλογή περιοχής κελιών από συνεχόμενα φύλλα και μεταφορά τους σε νέο φύλλο excel

Καλημέρα σε όλα τα μέλη του Forum.
Θα ήθελα τη βοήθειά σας όσον αφορά τη διαφοροποίηση της παρακάτω εντολής που αναζήτησα, βρήκα στο forum και ταιριάζει στη δουλειά που θέλω να κάνω ως προς τα εξής:
-Η στήλη που θέλω να αντιγράψω από τα επιλεγμένα φύλλα θέλω να είναι από B10 έως Β... End(xlDown).
-Τα επιλεγμένα συνεχόμενα φύλλα να ορίζονται από το πρώτο έως το 19.
- Η περιοχή επικόλλησης να είναι στο νέο φύλλο σε στήλες από το Α3 και δεξιά δηλαδή ...Β3, C3, D3, κλπ.

ο κωδικας είναι :
Sub SummarizeWorksheets()
Dim i As Integer
Dim SummarySheet As Worksheet
Dim SrcRange As Range
Dim DestRange As Range

Set SummarySheet = Worksheets("Summary")
With Application
'
.ScreenUpdating = False


.Calculation = xlCalculationManual

.EnableEvents = False

For i = 9 To Worksheets.Count

Set SrcRange = Worksheets(i).Range("O42:AF83")
Set DestRange = SummarySheet.Range("A" & Rows.Count).End(xlUp).Offset(1) _
.Resize(SrcRange.Rows.Count, SrcRange.Columns.Count)

DestRange.Value = SrcRange.Value

Next
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With

End Sub

Τελευταία επεξεργασία από το χρήστη Σανίδας : 07-11-15 στις 10:10.
Απάντηση με παράθεση