VBA vraagje overzetten

[Hylas]

Beste leden,

Werk nu met deze code, nu dacht ik dat hij de regel 4 zou kopiëren naar het andere blad maar hij neemt regel 3 ook mee, wat gaat hier nu fout

Private Sub CommandButton1_Click()
If Range("C4") > 0 Then
sv = Range("C4", Cells(8, 1).End(xlUp)).Resize(, 12)
Sheets("Verzamelen").ListObjects("Tabel1").ListRows.Add.Range.Resize(UBound(sv)) = sv
Application.Goto Range("B2")
 If MsgBox("Wil je de gegevens wissen ?", vbYesNo) = vbYes Then Range("A2:A7,B2").ClearContents
End If
End Sub

 

[HSV]

Cel A4 is vermoedelijk leeg.

 

[Hylas]

Harry,
Heb even een testbestandje bijgevoegd

 

[HSV]

Deze twee even aanpassen.

If Range("A4") > 0 Then
sv = Range("A4", Cells(Rows.Count, 1).End(xlUp)).Resize(, 11)

 

[Hylas]

Harry ik zie het nu, soms zit je gewoon verkeerd te lezen, bedankt man
Het werkt !!

 

[HSV]

Graag gedaan.