Beste allen,
Ik heb een stuk code voor het samenvoegen van tabbladen uit verschillende excel bestand uit dezelfde directory. De bestanden worden samengevoegd in een masterbestand. Ik zou graag de range van de te samenvoegen bestanden willen aanpassen naar= A2:IV & Range("A65536"). Hoe kan ik dit in de onderstaande code zetten?
Groet, Martijn Beeks
Ik heb een stuk code voor het samenvoegen van tabbladen uit verschillende excel bestand uit dezelfde directory. De bestanden worden samengevoegd in een masterbestand. Ik zou graag de range van de te samenvoegen bestanden willen aanpassen naar= A2:IV & Range("A65536"). Hoe kan ik dit in de onderstaande code zetten?
Groet, Martijn Beeks
Code:
Sub samenvoeg()
Application.ScreenUpdating = False
For Each fl In CreateObject("scripting.filesystemobject").Getfolder("E:\bestanden").Files
With GetObject(fl)
sq = .Sheets("Product Complaint Data").UsedRange
.Close False
End With
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sq), UBound(sq, 2)) = sq
End If
Next
Application.ScreenUpdating = True
End Sub