Lege rij constateren

[Segers]

In sheet 3 Grainers worden gegevens opgegeven

Indien een checkbox aangevinkt wordt, moeten de gegevens van die rij gekopieerd worden naar sheet Export op de eerstvolgende rij die vrij is, mag niet rij 1 zijn, want daar staan mijn kolomnamen die later in een database van Access gebruikt zullen worden.

Ik heb volgende code geschreven, maar ergens klopt er iets niet

Private Sub CheckBox41_Click()

' Als Rij 2 van Sheet Export leeg is dan
If IsEmpty(Sheets("Export").Range("A2:J2")) = True Then
' Selecteer in Sheet 3 Grainers
Sheets("3 GRAINERS").Select
' Onderstaande rij en kopieer deze
Range("A4:G4").Select
Selection.Copy
' Selecteer sheet Export en selecteer die lege rij te starten vanaf D2
Sheets("Export").Select
Range("D2:J2").Select
' Plak hier de geselecteerde waarden van 3 GRAINERS
Selection.pase
End If

End Sub

 

[Warme bakkertje]

Private Sub CheckBox41_Click()
    [Export!D65536].End(xlUp).Offset(1).Resize(, 7) = ['3 GRAINERS'!A4].Resize(, 7).Value
End Sub