Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Inserir na célula u...
 
Notifications
Clear all

Inserir na célula uma fórmula de soma das celulas superiores

 
2024 - VBA & Macros
4 Posts
3 Usuários
0 Reactions
717 Visualizações
RSS
 lucasakira
(@lucasakira)
Posts: 0
New Member
Topic starter
 

Olá gente. Ta meio confuso mas deixe-me explicar.

Preciso fazer uma sub que insira numa celula a fórmula de soma das celulas superiores.
Como o número de linhas dessa planilha pode ser alterada, ela precisa entrar na última e somar todas as de cima.
Só que eu gostaria que nessa célula entrasse uma fórmula de soma das superiores e não de calcular a soma por um looping ou algo do tipo.

Como faço isso?

Muito obrigado.

 
Postado : 28/09/2015 10:54 am
 Basole
(@basole)
Posts: 487
Reputable Member
 

Segue um exemplo veja se consegue adaptar: 

Sub Inseri_FurmulaSUM()
Dim LastRow As Long
LastRow = Range("A1048576").End(xlUp).Row + 1
ActiveSheet.Cells(LastRow, 1).Formula = "=SUM(A2:A" & LastRow - 1 & ")"
End Sub
 
Postado : 28/09/2015 11:02 am
 lucasakira
(@lucasakira)
Posts: 0
New Member
Topic starter
 

Pefeito, muitíssimo obrigado.
Estava errando na sintaxe da concatenação. :/

 
Postado : 28/09/2015 11:07 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Lucas

Como a resposta foi útil, agradeça ao Basole clicando na mãozinha, que fica do lado da ferramenta Citar.

[]s

 
Postado : 28/09/2015 5:29 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico