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]