Criar macro para Inserir/apagar linhas após a ultima linha digitada

[nioxys]

Olá

Podes gravar uma macro para fazer isso.
No separador "Programador" clicas em "Gravar Macro", na janela que aparece escreves o nome da macro, por exemplo, "Inserir Linha", podes colocar uma tecla de atalho, por exemplo "I" (fica ctrl+shift+I), por fim clicas em "OK". De seguida seleccionas a última linha da tua tabela (clicando no número da mesma) botão direito do rato e no menu de contexto clicas em "Inserir", voltas ao separador "Programador" e clicas em "Terminar Gravação".
Agora seleccionas a última linha da tua tabela e fazes ctrl+shif+I ou vais ao separador "Programador", "Macros", seleccionas a macro e clicas em executar.

Para o eliminar a linha segues o procedimento descrito em cima mas na vez de gravares os passos de inserir uma linha gravas os passos de eliminar uma.

Podes também criar dois botões de formulário e atribuir a respectiva macro a esses botões.

Ou ainda criar dois botões ActiveX e,

Código botão Inserir

Código:

ActiveCell.EntireRow.Insert

Nota:
1 - Basta clicares no botão com a célula da última linha seleccionada;
2 - Tens de "guardar" sempre uma linha vazia para fazeres a inserção, porque o Excel insere a linha antes da célula que tens seleccionada.

Código botão Eliminar

Código:

ActiveCell.EntireRow.Delete

Nota:
1 - Basta clicares no botão com a célula da linha que queres eliminar seleccionada.