[agrbita]

Καλησπέρα και χρόνια πολλά.

Κύριε Γιώργο με την συμβουλή σου σου να δημιουργήσω, τόσα αρχεία όσα και αυτά που είναι στα φύλλα αυτού του μεγάλου αρχείου ΕΛΥΣΑ το ζητούμενο.
Αναλυτικά λοιπόν αναφέρω ότι δημιούργησα 14 αρχεία με ένα φύλλο το καθένα (εννοώ το φύλλο RF1, RF2 ... RF14). Το όνομα του κάθε φύλλου είναι αυτό που υπάρχει στην λίστα του κελιού L2. Στο κελί Α1 του φύλλου "ΥΦΙΣΤΑΜΕΝΗ" έχω βάλει την συνάρτηση ="G:\Το Drive μου\ΜΕΤΡΟ 6.1 ΝΕΟΙ ΑΓΡΟΤΕΣ\"&L2&".xlsx"
Στην συνέχεια εκτελώ την μακροεντολή :

Sub COPY_1()

Dim wkb1 As Workbook
Dim sht1 As Worksheet
Dim wkb2 As Workbook
Dim sht2 As Worksheet

Sheets("Φύλλο1").Select 'Διαγραφή των δεδομένων του Φύλλο1
Range(Selection, "a1:x5500").Select
Selection.ClearContents


Application.ScreenUpdating = False

Set wkb1 = ThisWorkbook

Set wkb2 = Workbooks.Open(Filename:=wkb1.Worksheets("ΥΦΙΣ ΤΑΜΕΝΗ").Range("a1").Value)

Set sht1 = wkb2.Sheets(1)
Set sht2 = wkb1.Sheets("Φύλλο1")

sht1.Cells.Copy
sht2.Range("a1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
wkb2.Close True

Sheets("Φύλλο1").Select
Range("a1").Select

Sheets("ΥΦΙΣΤΑΜΕΝΗ").Select
Range("a1").Select


Application.ScreenUpdating = True

End Sub

Η Μακροεντολή αυτή αντιγράφει το ένα και μοναδικό φύλλο, από το κλειστό αρχείο (RF1, RF2, κλπ) με κατάληξη (*.xlsx) στο Φύλλο1 του αρχείου που εργάζομαι αφού πρώτα διαγράψει τα δεδομένα του Φύλλου1 .
Διορθώσεις και παρατηρήσεις δεκτές
Χρόνια Πολλά, υγεία και χαρά.