Sheets samen voegen op 1 sheet onder elkaar en aansluitend

[Bertus78]

Beste helper,

Ik ben bezig met diverse sheets met de zelfde opmaak.
Deze wil ik zodra ik op de knop druk, dat ze samen gevoegd worden naar 1 sheet.
De eerste lukt mij wel, maar daarna wil ik dat de volgende sheets eronder komt, natuurlijk zonder de 1e regel waar naam, adres enz in staat.

Wie kan mij op weg helpen?

Alvast bedankt, heb een voorbeeld bijgevoegd.

 

[JEC.]

Bvb

Private Sub CommandButton1_Click()
 For Each sh In ThisWorkbook.Sheets
  If sh.Index > 1 Then sh.Cells(1, 1).CurrentRegion.Offset(1).Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)
 Next
End Sub

 

[Bertus78]

Hoi jVeer,

Bedankt voor je snelle reactie.
Ik heb ook nog andere sheets openstaan die niet gekopieerd mogen worden.
Ik lees in uw oplossing dat alle sheets gekopieerd worden.

Dit is niet de bedoeling, had ik duidelijker in moeten zijn.

 

[JEC.]

Vertel! Welke sheets moeten blijven

 

[edmoor]

Test deze eens:
Bekijk bijlage Kopie van voorbeeld samenvoegen.xlsm

 

[snb]

Sub M_snb()
  With CreateObject("scripting.dictionary")
    For Each it In Sheets
      If it.Cells(1) = "nr" Then
        sn = it.Cells(1).CurrentRegion
        For j = 2 + (.Count = 0) To UBound(sn)
          .Item(.Count) = Application.Index(sn, j)
        Next
      End If
    Next

    Blad5.Cells(1).Resize(.Count, UBound(sn, 2)) = Application.Index(.items, 0, 0)
  End With
End Sub

 

[jolivanes]

Als het elke keer verschillende sheets kunnen zijn, misschien zoiets,
See attached

 

[jkpieterse]

Hey Bertus, Bekijk dit eens van de andere kant: vergeet die verschillende sheets, zet alles meteen op dat ene blad. Klaar.

 

[bar88]

@jolivanes

Dat is een mooie oplossing, ga ik gebruiken. Heel erg bedankt.

 

[bar88]

@jolivanes

Dat is een mooie oplossing, ga ik gebruiken. Heel erg bedankt.

 

[bar88]

@edmoor

Jij ook bedankt, zag dat je het eerder had gemaakt

Super