Ανανέωση ιστοσελίδας

[misirlis]

Παρακαλώ,πως θα ενώσω αυτόματα,7 φύλλα εργασίας στο excel σε ενα.Οι εγγραφες στις στηλες ειναι 3000 και οι σειρες 20,αλλα μπορεί να ειναι και λιγοτερες ή περιασσότερες.

[Chris]

Καλημερα Νικο και καλως ηρθες στο φορουμ

για να κανεις συγχωνευση των 7 φυλλων σε ενα πρεπει να βαλεις στο βιβλιο στην VBA τον παρακατω κωδικα.
Για να ανοιξεις τον VBE πατας (Alt+F11) κατοπιν εισαγεις μια λειτουργική μοναδα απο το μενου Insert -> Module και κανεις επικολληση τον κωδικα:

Option Explicit
' Τα ονόματα των φύλλων προς συγχώνευση στο φύλλο με κωδικό όνομα: "Sheet1"
Const  SheetNames = "Sheet2,Sheet3,Sheet4,Sheet5,Sheet6,Sheet7,Sheet8"
Sub MergeWorkSheets()
    Dim wks As Worksheet, MergeSheet As Worksheet
    Set MergeSheet = Sheet1 'To κωδικό όνομα του φύλλου όπου θα γίνει η συγχώνευση
                            'Χρειάζεται προσαρμογή
    For Each wks In ThisWorkbook.Worksheets
        If InStr(1, SheetNames, wks.Name) <> 0 Then
            wks.Range("A2:Z" & wks.Cells.SpecialCells(xlCellTypeLastCell).Row).Copy _
            MergeSheet.Range("A" & MergeSheet.Cells.SpecialCellsxlCellTypeLastCell).Row + 1)
        End If
    Next
End Sub

Βασικη προυποθεση ειναι οτι ολα τα φυλλα ακομη και αυτο που θα τα μεταφερεις θα πρεπει να εχουν επικεφαλιδες. Αν θελεις να σου μεταφερει και τις επικεφαλιδες γιατι ισως να ειναι διαφορετικες σε καθε φυλλο τοτε αλλαξε το (wks.Range("A2:Z" .....) και καντο (wks.Range("A1:Z" .......)

[misirlis]

Χρήστο ευχαριστώ πολύ για την βοηθεια.