Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
Avatar do usuário
Por wesleyribeiro123
Posts Avatar
#33532
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:
Código: Selecionar todos
With rvs
For r = 5 To 18
    .Cells(uLr, r) = "=SUM(" & .Range(.Cells(2, r), .Cells(uLr, r)) & ")"
Next r
End With
Sendo:
  • rvs: Nome da Planilha
    uLr: Última Linha (onde está o Total)
Minha intenção era que ficasse na célula " .Cells(uLr, r) " a seguinte expressão: "=SUM(E2:E506)" ai ele partiria pra próxima coluna e escreveria "=SUM(F2:F506)" e faria isto até a coluna R...
Avatar do usuário
Por gfranco
Avatar
#33536
Boa tarde.
Seria +- isso?
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por wesleyribeiro123
Posts Avatar
#33555
Mestre

É exatamente isto... Show de bola. Mtoo obrigado!!!
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord