Hallo, ik heb hulp nodig, zo ziet mijn tabel eruit, bijvoorbeeld als ik 2 rijen aan het einde van mijn 1e tabel toevoeg, wil ik dat de vba me helpt hetzelfde te doen voor de onderstaande tabel (voeg 2 rijen toe aan de einde van de tafel). Dus mijn taak zal zijn, ik hoef alleen maar rijen toe te voegen aan de 1e tafel, de tafelbalgen zullen allemaal automatisch rijen genereren op basis van het aantal rijen in de 1e tabel. dit zijn de codering die ik nu heb gebruikt om een ​​rij toe te voegen voor de 1e tabel. Ik hoop dat iemand dit probleem voor mij kan oplossen, thx.

Sub InvoegenNumRows()

ActiveCell.EntireRow.Copy

Dim Rng Zo Lang

Application.DisplayAlerts = False
On Error Resume Next
Rng = InputBox ("Voer het aantal vereiste rijen in.")
On Error GoTo 0
Application.DisplayAlerts = Waar

Als Rng = 0 Dan
MsgBox "Je hebt geen bereik opgegeven!"
Exit Sub

Anders
Bereik (ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Selecteren
Selection.EntireRow.In Shift: = xlDown invoegen
End If

Einde Sub [bijlage]Capture 1.PNG[/bijlage]