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.
|