Laatse twintig rijen kopieren naar ander tabblad

[stefano]

Beste,

Met behulp van onderstaande code kopieer ik de laatste 20 rijen uit tabblad 'historiek' naar tabblad 'actueel'. Dit werkt goed op voorwaarde dat er 20 of meer rijen bestaan in 'historiek'. Weet iemand de code om dit te omzeilen ?

Sub nieuw()

   
' laatste twintig rijen selecteren uit tabblad historiek en kopiëren naar certificaat ( voorwaarde is dat er 20 voorgaande analyses zijn)

    Sheets("certificaat").Cells(15, 1).Resize(21, 30).Value = Sheets("historiek").Cells(Rows.Count, 1).End(xlUp).Offset(-20).Resize(21, 30).Value
    
End Sub

PS: Tabblad historiek breidt in de toekomst uit naar meer dan 20 rijen en dan werkt bovenstaande code, alleen wanneer de historiek lager is dan 20 rijen loopt het fout.

Bekijk bijlage GB.xlsm

 

[SjonR]

zo?

Sub nieuw()


   
' laatste twintig rijen selecteren uit tabblad historiek en kopiëren naar actueel ( voorwaarde is dat er 20 rijen zijn)


    If Sheets("historiek").Range("A3").End(xlDown).Row - 2 < 20 Then
            X = Sheets("historiek").Range("A3").End(xlDown).Row - 2
    Else
            X = 20
    End If


    Sheets("actueel").Cells(15, 1).Resize(X, 30).Value = Sheets("historiek").Cells(Rows.Count, 1).End(xlUp).Offset(-X).Resize(X, 30).Value


    
End Sub

 

[stefano]

Dat is het ! Dank !