Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por pjuliocesar 23 Mai 2020 às 19:06
Membro Novato
Mensagens: 26
Reputação: 3
#55130
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;
Apenas usuários registrados podem ver ou baixar anexos.
Por osvaldomp 23 Mai 2020 às 20:48
Excel Expert
Mensagens: 1727
Reputação: 864
#55133
Experimente:

Código: Selecionar todosSub 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.
Por pjuliocesar 23 Mai 2020 às 22:17
Membro Novato
Mensagens: 26
Reputação: 3
#55137
Obrigado era isso!