MS Excel

To tlačítko by mělo být na každém řádku? Pokud ano, tak se přiznám, že nevím jak zjistit na jakém řádku se nachází.
Pokud by stačilo jedno (někde nahoře) a nový řádek by se měl vkládat vždy pod první tak pro daný soubor by to bylo pomocí makra na daném tlačítku:

Sub radek()
Rows("8:8").Copy
Rows("9:9").Insert Shift:=xlDown
End Sub


nebo lze upravit, aby nový řádek byl vložen vždy pod aktivní:

Sub radek()
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
End Sub

Snad to pomůže

PS:
ještě mě napadla jedna možnost :-)
na řádku nemusí být tlačítka ale buňka s formátováním, tak aby to vypadalo jak tlačítko a makro bude reagovat na definovaný text (pokud jsi vybral buňku s textem "zkopíruj", tak vlož nový řádek pod aktuální kopií z aktuálního:

If ActiveCell = "zkopíruj" Then
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
End If

M@citovat

a pokud je to mozne tak jak vyberu jen cast radku treba 30 radek a chci jen od D30 do N30..dekujicitovat

Na to vkládání pod část řádku se budu muset podívat a odzkoušet, to až později :-).

K tomu zamčenému listu, stačí na začátek makra přidat:
List1.unprotect "heslo"
a na konec zase
List1.protect "heslo"

nebo tak podobně - ztovna to nemám kde zkusit, tak jedu z hlavy :-).citovat