Unieke tabbladen

[nikos84]

beste,

Dankzij jullie hulp heb ik een fantastische macro, maar ik zou nog één stap verder willen gaan.
Ik zou graag willen dat de sheets in de uiteindelijke sheet van opeenvolgende numbering qua tabbladen wordt voorzien.
Is dit mogelijk?

Sub CombineFiles()

Dim Path As String
Dim FileName As String
Dim Wkb As Workbook

Application.EnableEvents = False
Application.ScreenUpdating = False
Path = "V:\Received forms" 'Change as needed
FileName = Dir(Path & "\*.xls", vbNormal)
Do Until FileName = ""
Set Wkb = Workbooks.Open(FileName:=Path & "" & FileName)
Wkb.Worksheets("Data").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Wkb.Close 0
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

gr

 

[snb]

Ik zou nog een stap terug willen gaan: zet svp de VBA-code tussen Code-markeringen (code tags).

 

[nikos84]

Excuseer, is aangepast.

 

[snb]

Dit lijkt me, na aanpassing van het pad, voldoende:

Sub M_snb()
   c00 = "G:\OF\"
   c01 = Dir(c00 & "*.xlsx")
   
   Do Until c01 = ""
      ThisWorkbook.Sheets.Add(, Sheets(Sheets.Count), , c00 & c01).Name = ThisWorkbook.Sheets.Count + 1
      c01 = Dir
   Loop
End Sub

 

[nikos84]

Maar dan kopieert hij toch alle tabbladen en niet meer de specifieke voorafgestelde "Data", uit alle files uit de specifieke directory?

 

[snb]

Heb je de suggestie getest ?

Had jij al eerder specifieke data vermeld ?

 

[nikos84]

Hij is getest en hij doet het. Alleen mis ik nog wel dat hij alleen het tabblad "data" uit alle sheets moet trekken en dus niet alle.

 

[nikos84]

Kan iemand mij nog helpen met de additionele functie van alleen de sheet "data" uit een file te halen ipv allemaal (zie huidige macro hierboven).