Macro rijen knippen

[leslieE]

Hey

Heb het volgende.

sheet1: x aantal rijen
sheet2: x aantal rijen
sheet3: x aantal rijen enz...

Hoe krijg ik al die rijen van die verschillende sheets onder elkaar in een nieuwe sheet zo snel mogelijk?

Bedankt

groetjes

Leslie

 

[Wigi]

Dit stukje code knipt alles van blad sheet2 dat "rondom" cel A1 staat naar blad sheet1, op de eerstvolgende lege regel in kolom A:

Sub ddd()

    Sheets("sheet2").Range("A1").CurrentRegion.Cut Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)

End Sub

Wigi

 

[leslieE]

Wat moet ik dan doen als ik bv 100 sheet heb?
Hoe maak ik een lus dan?

 

[Wigi]

Zoiets

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
     If ws.Name <> "sheet1" Then
          ws.Range("A1").CurrentRegion.Cut Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)
     End If

Next

Wigi

 

[leslieE]

Ok bedankt voor je hulp.
Nog 1 vraagje:
als er op blad2 iets in de 1ste of de 2de rij staat dan werkt de macro.
Maar als er bv pas iets op lijn 10 staat in kolom A dan doet hij niets.

Waarschijnlijk moet er hiervoor nog een kleine aanpassing gebeuren?

 

[Wigi]

Dim ws As Worksheet
    Dim l As Long

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "sheet1" Then
            If WorksheetFunction.CountA(ws.Columns(1)) > 0 Then

                l = 0

                Do
                    l = l + 1
                Loop Until ws.Range("A" & l).Value <> 0

                ws.Range("A" & l, "A" & ws.Range("A" & Rows.Count).End(xlUp).Row).EntireRow.Cut Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)
            End If

        End If

    Next

Wigi

 

[leslieE]

Kan je het een beetje toelichten; zodat ik begrijp wat er gebeurt.
Bedankt

 

[Wigi]

Tuurlijk

Ik maak een lus doorheen alle werkbladen van dat bestand.

Heet het bestand niet Sheet1, dan knippen we er de gegevens van.

Dan is er een check of er wel effectief iets staat in kolom A van het blad.

Vervolgens een klein lusje om te kijken in welke cel van kolom A de gegevens beginnen.

Dan wordt er geknipt vanaf die rij tot aan de laatste rij, dit wordt onderaan bijgezet op blad Sheet1.

Wigi

 

[leslieE]

Hartelijk bedankt