Página 1 de 1

Inserir linha copiando formula

Enviado: 07 Fev 2017 às 16:43
por MarcosPauloGallon
Boa Tarde

Sou novo no fórum e no Excel.

Preciso de ajuda para criar uma macro que insira uma linha copiando a fórmula da linha de cima. Até consegui fazer isso, o problema é que a forma que eu consegue a linha inserida sempre ia pra baixo da última preenchida. A questão é que eu tenho uma primeira coluna que eu não posso mexer nela. Conforme segue a planilha em anexo, eu queria inserir da B24 a M24. Sempre inserir na linha seguinte da última preenchida.

Re: Inserir linha copiando formula

Enviado: 15 Fev 2017 às 09:27
por babdallas
Sub teste()

Dim prox_lin As Long

With Plan1
'Próxima linha a ser preenchida
prox_lin = .Cells(.Rows.Count, 3).End(xlUp).Row + 1

'Copia as fórmulas das linhas anteriores para o intervalo (colunas B a M)
.Range(.Cells(prox_lin, 2), .Cells(prox_lin, 13)).Formula = .Range(.Cells(prox_lin - 1, 2), .Cells(prox_lin - 1, 13)).Formula
End With

End Sub