Hello, segítségre van szükségem, így néz ki a táblázatom, például amikor hozzáadok 2 sort az 1. táblázatom végéhez, azt szeretném, ha a vba segítene ugyanezt az alábbi táblázathoz (adj hozzá 2 sort a táblázat vége). Tehát az én feladatom az lesz, hogy csak az 1. táblázathoz kell sorokat hozzáadni, a lenti táblázat automatikusan generál sorokat az 1. tábla sorainak száma alapján. Ezeket a kódokat használtam most az 1. tábla sor hozzáadásához. Remélem valaki meg tudja oldani ezt a problémát, thx.

Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Dim Rng As Long

Application.DisplayAlerts = Hamis
On Error Resume Next
Rng = InputBox("Adja meg a szükséges sorok számát.")
Hiba történt GoTo 0
Application.DisplayAlerts = Igaz

Ha Rng = 0 Akkor
MsgBox "Nem adott meg tartományt!"
Exit Sub

Más
Tartomány(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Válassza
Selection.EntireRow.Insert Shift:=xlDown
Ha véget

Befejezési al [melléklet]Rögzítés 1.PNG[/melléklet]