VBA Escrever Função SUM()
Enviado: 30 Mai 2018 às 14:49
Pessoal
Boa tarde,
O que preciso aparentemente é bem simples, mas me travou...
Tenho uma planilha que possui um intervalo dinâmico, ou seja, hoje ela pode ter 100 linhas, amanhã ela estará com 200 ou 50 linhas, não há como prever.
No final desta planilha quero inserir um "Total", consegui facilmente identificar a última linha e inserir a linha de "Total", porém preciso que seja feita uma soma dos valores de cada coluna (são 13 colunas fixas).
Utilizei o expressão WorkSheetFunction.Sum() porém ele retornar apenas o valor, não a função escrita, desta forma sempre que atualizo alguma informação na tabela não fica correto o Valor Total.
Tentei escrever a função da seguinte forma:
Boa tarde,
O que preciso aparentemente é bem simples, mas me travou...
Tenho uma planilha que possui um intervalo dinâmico, ou seja, hoje ela pode ter 100 linhas, amanhã ela estará com 200 ou 50 linhas, não há como prever.
No final desta planilha quero inserir um "Total", consegui facilmente identificar a última linha e inserir a linha de "Total", porém preciso que seja feita uma soma dos valores de cada coluna (são 13 colunas fixas).
Utilizei o expressão WorkSheetFunction.Sum() porém ele retornar apenas o valor, não a função escrita, desta forma sempre que atualizo alguma informação na tabela não fica correto o Valor Total.
Tentei escrever a função da seguinte forma:
Código: Selecionar todos
Sendo:
With rvs
For r = 5 To 18
.Cells(uLr, r) = "=SUM(" & .Range(.Cells(2, r), .Cells(uLr, r)) & ")"
Next r
End With
- rvs: Nome da Planilha
uLr: Última Linha (onde está o Total)