Werkblad samenvoegen

[gert21]

Beste, ik heb een probleem om twee verschillende werkbladen samen te voegen, ik namelijk een leek in excel, kan er mij iemand helpen waarvoor mij dank, in bijlage een voorbeeld,
het is al een samenstelling van verschillende mappen,
Bekijk bijlage Bondskaart 2014.xlsx
mvg,Gert

 

[Cobbe]

Je kan deze macro eens testen, is niet zeer snel maar wel effectief.
En je moet de layout nog fatsoeneren naderhand.

Sub cobbe()
Rij = 1
With Sheets(1)
 For Each cl In .Range("B1:B" & .Range("B" & Rows.Count).End(xlUp).Row)
   If Not IsEmpty(cl) Then
    .Range("A" & cl.Row & ":H" & cl.Row).Copy Sheets(3).Cells(Rij, "A")
    .Columns("A:H").AutoFit
     For Each dl In Sheets(2).Range("A1:A" & Sheets(2).Range("A" & Sheets(2).Rows.Count).End(xlUp).Row)
      If dl = cl Then
       Sheets(2).Range("A" & dl.Row & ":E" & dl.Row).Copy Sheets(3).Cells(Rij, "J")
         Rij = Rij + 1
      End If
     Next
         cl = "": dl = ""
   End If
 Next
End With
End Sub

 

[gert21]

Beste,
bedankt werkt prima.