Új hozzászólás Aktív témák

• #40022 gaben86 csendes tag

  Új Válasz 2019-01-22 11:58:26 #40022

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  gaben86

  csendes tag

  Sziasztok!

  Segítségeteket szeretném kérni, egy makróval kapcsolatban, amit találtam.

  Munkafüzetek összemásolását végzi egy munkafüzetbe, de teljes másolást végez, nekem csak arra lenne szükségem, hogy a Munka1 lapokat másolja csak ki a füzetekből.

  Miként kellene módosítani, hogy úgy működjön, ahogy írtam?

  Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

  Előre is köszönöm!

  Üdv. G.

Új hozzászólás Aktív témák