Este fórum está sendo desativado

[pjuliocesar]

Olá,

Preciso de uma macro que crie uma linha no final da tabela e que mantenha as equações e formatação da tinha anterior para preenchimento dos dados pelo usuário.

Na planilha em anexo criei uma aba para a situação inicial e outra para a Final, quando se criou a linha; para facilitar o entendimento do resultado pretendido.

Agradeço a atenção;

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub InsereLinha()
 Dim LR As Long
  LR = Cells(Rows.Count, 3).End(3).Row
  Cells(LR - 1, 2).Resize(, 15).Copy
  Cells(LR, 2).Resize(, 15).Insert
  On Error Resume Next
  Cells(LR, 2).Resize(, 15).SpecialCells(xlCellTypeConstants) = ""
  Cells(LR, 5).Resize(, 12).Borders(xlEdgeTop).Weight = xlThin
  Cells(LR + 1, 3) = "=SUM(C5:C" & LR & ")"
End Sub

obs. o código irá atualizar a fórmula da coluna C (TOTAL DO MÊS), e ficará diferente do seu resultado desejado; se você não quiser que atualize basta desativar a penúltima linha do código.

[pjuliocesar]

Obrigado era isso!