Tabbladen van verschillende excel bestanden samenvoegen

[MartiB01]

Beste allen,

Ik heb een stuk code voor het samenvoegen van een specifiek tabblad uit verschillende Excel bestanden. De gegevens worden in het master bestand onder elkaar gezet in 1 tabblad. Nu is mijn vraag hoe ik een specifiek bereik selecteer voor de te samenvoegen bestanden. Ik wil namelijk niet dat rij 1 ook mee wordt gekopieerd.

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

Alvast bedankt,

Martijn Beeks

 

[VenA]

Mogelijk dat dit al voldoende is.

sq = .Sheets("Product Complaint Data").UsedRange[COLOR="#FF0000"].offset(1)[/COLOR]

 

[MartiB01]

Dit is gelukt. Bedankt!