Row count ook voor een tabel

[dennisj]

Ik heb een stuk code dat informatie kopieert van blad "Klantnaam" en vervolgens plakt op het eerstvolgende "vrije" kolom in blad "Naam".
Alleen wil ik dat het ook in tabellen toevoegd.

Is er iemand die mij hierbij kan helpen?

Sub Testkopie()

Application.ScreenUpdating = False

If msg = vbYes Then
    With Sheets("Klantnaam")
        Sheets("Naam").Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 2) = Array(.Range("A3"), .Range("A1"))
End With
End If

Application.ScreenUpdating = True

End Sub

 

[snb]

toevoegd ???

 

[VenA]

Bv.

Sub VenA()
  Sheets("Naam").ListObjects(1).Range.Cells(Sheets("Naam").ListObjects(1).ListRows.Count + 2, 1).Resize(, 2) = Array(Sheets("Klantnaam").[A3], Sheets("Klantnaam").[A1])
End Sub

 

[mastermindzh]

Beste snb

Graag alleen inhoudelijk reageren.
"Slimme" reacties geven hoeft ook niet hoor Houdt het forum schoon.

M.v.g,
Rick van Lieshout