Laatste (gevulde) regel van ieder werkblad kopieeren

[a3er]

Ik heb een Excel 2003 bestand met verschillende werkbladen.
Ik wil nu van ieder werkblad alleen de laatste gevulde regel kopiëren naar een leeg werkblad.
Dit mag in het geopende bestand zijn, maar evt ook een nieuw bestand.
Ik heb hier al gezocht, maar kan de oplossing niet vinden.

Alvast bedankt,
Adri

 

[Niels28]

Het blad waar de gegevens op komen heb ik "leeg werkblad" genoemd

Sub laatste_regel()
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Leeg werkblad" Then
With Sheets("leeg werkblad")
sh.Range("A" & sh.Cells(Rows.Count, "A").End(xlUp).Row).EntireRow.Copy .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row).Offset(1, 0)
End With
End If
Next
End Sub

Niels

 

[a3er]

Het blad waar de gegevens op komen heb ik "leeg werkblad" genoemd

Sub laatste_regel()
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Leeg werkblad" Then
With Sheets("leeg werkblad")
sh.Range("A" & sh.Cells(Rows.Count, "A").End(xlUp).Row).EntireRow.Copy .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row).Offset(1, 0)
End With
End If
Next
End Sub

Niels

Hoi Niels,
Bedankt, dit doet precies wat ik heb gevraagd.
Hoe pas ik de code aan, zodat deze alleen kolom A tot en met H kopieert.
En dan als het kan kopiëren zonder opmaak.

Alvast bedankt en groeten
Adri

 

[Niels28]

Sub laatste_regel()
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Leeg werkblad" Then
With Sheets("leeg werkblad")
.Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row).Offset(1, 0).Resize(1, 8).Value = sh.Range("A" & sh.Cells(Rows.Count, "A").End(xlUp).Row).Resize(1, 8).Value
End With
End If
Next
End Sub

Niels


PS quoten is niet nodig als je meteen op een bericht reageert.

 

[a3er]

Niels, helemaal top.