Somar Intervalo Dinâmico com VBA

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Somar Intervalo Dinâmico com VBA

Mensagempor HeitorLau » Seg Abr 16, 2018 10:52 am

Pessoal, bom dia!!

Pesquisei aqui no fórum e não encontrei nenhuma postagem acerca do problema, então decidi postar.

Tenho uma planilha que é criada a partir de uma macro que filtra e faz algumas verificações em uma tabela dinâmica. A tabela dessa planilha já está convertida em intervalo de células. Gostaria de saber como somar os valores de uma coluna que possui quantidade de células variável.

Segue foto do exemplo.
HeitorLau
Membro
Membro
 
Mensagens: 3
Registrado em: Qui Abr 05, 2018 9:40 am
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: Somar Intervalo Dinâmico com VBA

Mensagempor xlarruda » Seg Abr 16, 2018 11:01 am

Supondo que os dados da soma estão na coluna A e que eles iniciam na linha 2:
Código: Selecionar todos
=SOMA(INDIRETO("A2:A"&PROC(2;1/(A:A<>"");LIN(A:A))))


Ps. A foto não apareceu...
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como RESOLVIDO.

Att.

André Arruda
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 686
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 92 times
Have thanks: 273 times

Re: Somar Intervalo Dinâmico com VBA

Mensagempor HeitorLau » Seg Abr 16, 2018 11:08 am

@xlArruda

Muito obrigado pela ajuda!!

Qual formato de imagem o fórum suporta?

Sobre a resposta, seria usando VBA e não fórmula de planilha. Sei que há uma maneira, mas não me lembro ao certo...
HeitorLau
Membro
Membro
 
Mensagens: 3
Registrado em: Qui Abr 05, 2018 9:40 am
Has thanked: 0 time
Have thanks: 0 time

Re: Somar Intervalo Dinâmico com VBA

Mensagempor wagner » Seg Abr 16, 2018 11:14 am

HeitorLau,

Bom dia!

O Fórum aceita imagens do tipo .jpg, .png e bmp. O ideal é você anexar seu arquivo excel aqui mesmo no fórum compactado com .ZIP.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4230
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1838 times

Re: Somar Intervalo Dinâmico com VBA

Mensagempor xlarruda » Seg Abr 16, 2018 11:19 am

Valendo as mesmas regras da postagem anterior e supondo que o resultado vai estar na B1

Código: Selecionar todos
Sub soma_dinamica()
Dim Ul As Long
Ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row
[b1].Value = Application.WorksheetFunction.Sum(Plan1.Range("A2:A" & Ul))
End Sub


OU

Código: Selecionar todos
Sub exemplo2()
[b1].Formula = "=SUM(INDIRECT(""A2:A""&LOOKUP(2,1/(A:A<>""""),ROW(A:A))))"
[b1].Value = [b1].Value
End Sub
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como RESOLVIDO.

Att.

André Arruda
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 686
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 92 times
Have thanks: 273 times

Re: Somar Intervalo Dinâmico com VBA

Mensagempor HeitorLau » Seg Abr 16, 2018 11:37 am

xlArudda - Estou tentando anexar um arquivo ZIP, com uma explicação bem mais compreensível, mas o fórum não aceita nada acima de 50kb. Há outra maneira de incluir arquivos nessa postagem? Abraços!!
Editado pela última vez por wagner em Seg Abr 16, 2018 11:43 am, em um total de 1 vez.
Razão: Não há necessidade de efetuar citações em resposta. Somente os trechos em que for necessários deverão ser citados
HeitorLau
Membro
Membro
 
Mensagens: 3
Registrado em: Qui Abr 05, 2018 9:40 am
Has thanked: 0 time
Have thanks: 0 time

Re: Somar Intervalo Dinâmico com VBA

Mensagempor wagner » Seg Abr 16, 2018 11:46 am

HeitorLau,

Bom dia!

Seja muito bem vindo ao fórum.

Como você é novato, para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Aproveitando o ensejo, nas suas respostas, não há necessidade de fazer citações de todo o texto das mensagens que lhe foram enviadas. As citações, segundo as regras do fórum, devem ser utilizadas apenas com pequenos trechos das mensagens e se estritamente necessárias ao entendimento da sua demanda.

Códigos VBA inseridos aqui no fórum devem ser inseridos somente com a utilização da ferramenta CODE que fica localizada logo no início da caixa de mensagens.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4230
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1838 times

Re: Somar Intervalo Dinâmico com VBA

Mensagempor xlarruda » Seg Abr 16, 2018 12:01 pm

hospeda num servidor qualquer e posta o link aqui
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como RESOLVIDO.

Att.

André Arruda
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 686
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 92 times
Have thanks: 273 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: lognet e 8 visitantes