Notifications

Clear all

Somar Intervalo Dinâmico com VBA

2024 - VBA & Macros

Post Recente por xlarruda 7 anos atrás

8 Posts

3 Usuários

0 Reactions

1,317 Visualizações

RSS

HeitorLau

(@heitorlau)

Posts: 3

New Member

Topic starter

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.

Postado : 16/04/2018 7:52 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Supondo que os dados da soma estão na coluna A e que eles iniciam na linha 2:

=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

Postado : 16/04/2018 8:01 am

HeitorLau

(@heitorlau)

Posts: 3

New Member

Topic starter

@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...

Postado : 16/04/2018 8:08 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 16/04/2018 8:14 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

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

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

Sub exemplo2()
[b1].Formula = "=SUM(INDIRECT(""A2:A""&LOOKUP(2,1/(A:A<>""""),ROW(A:A))))"
[b1].Value = [b1].Value
End Sub

Att.

André Arruda

Postado : 16/04/2018 8:19 am

HeitorLau

(@heitorlau)

Posts: 3

New Member

Topic starter

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!!

Postado : 16/04/2018 8:37 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 16/04/2018 8:46 am