Como Criar SOMASE Com LOOP FOR NEXT No VBA

É natural que o usuário antes de criar somase com loop for next no VBA, experimente primeiro a propriedade Worksheetfunction, afinal, através dela terá acesso a boa parte das funções existentes em Planilhas d Excel.
Porém, após alguns anos trabalhando com esta propriedade, esbarrei em problemas com desempenho na execução do código e foi aí que criar somase com loop for next se tornou necessário e extremamente útil.
Além do que, ao criar somase com loop for next você começará a ter noção dos "bastidores" de uma função do Excel, como funciona a sua lógica.E também é onde vai aprender que acumular valor em uma variável no vba é um recurso muito valioso.
Na aula explico que preferi criar somase com loop for next pois acho este loop mais eficiente para esta finalidade, porém confesso que o loop for each next tambem foi considerado previamente.
Um abraço e bons estudos!
Qualquer dúvida, coloca ali nos comentários que teremos maior prazer em lhe auxiliar.
"Afinal, até seus problemas precisam evoluir!"
Faça o Download Gratuito dos arquivos utilizados nas aulas aqui do Canal Excel Online Brasil :
excelonlinebra...
@Excel Online Brasil
=================
❤️️ Treinamento : excelonlinebra...
📘 Material gratuito : excelonlinebra...
⭐ Se torne membro do canal : excelonlinebra...
#somasevba #loopfornext #loopar
✔ CONHEÇA NOSSA PÁGINA:
excelonlinebra...
✔ CONHEÇA NOSSOS CURSOS:
excelonlinebra...
✔ NOSSAS REDES SOCIAIS:
Facebook : / excelonlinebrasil
Contato comercial:
✉ [e-mail]
=================
Seja bem-vindo(a) ao canal Excel Online Brasil!
Com vídeos semanais, o canal é apresentado por Marcus Rodello e tem como objetivo compartilhar de uma forma simples e direta um conteúdo técnico de qualidade no que tange o uso do Microsoft Excel bem como seus desdobramentos em relação a mercado de trabalho, oportunidades e alternativas de atuação para estudantes, profissionais e empresários.
Queremos inspirar essas pessoas para que consigam produzir mais, melhorar seus processos, crescer profissionalmente e multiplicar conhecimento.
=================
NÃO CLIQUE AQUI: excelonlinebra...

[@guzenhu]

Meu amigo, parabéns pela didática e pela atenção ao filhote!!!!! Vc é o cara! Sucesso!!!!

[@DiogoMouraEstudos]

Muito top, assistir ∞ seus videos !!!

[@juanore3036]

Excelente. Gostei da sua didática e simplicidade de explicar. Muito obrigado!

[@brunogaddini2996]

Sensacional!! Obrigado Professor.

[@Firmin0costa]

muito boa aula, obrigado por compartilhar seu conhecimento.

[@cicerolobo7583]

Valeu professor, excelente aula.

[@gilsonricardo1908]

Professor, como faço para usar "somase" para demonstrar na planilhaA, onde tenho dias do mês, e tenho datas e valores na planilhaB? Quero apresentar na planilhaA uma soma de todos (por cada dia) dos valores de cada data da planilhaB OBRIGADO

[@sergiocardosozacariasoficial]

Marcus mais uma aula show. Me identifico muito com seu raciocínio lógico. Também está impregnado em minha alma(KKK), em sempre deixar de uma forma dinâmica. Uma curiosidade, vc não gosta de usar "CurrentRegion"?. Parabéns pela didática da aula. 👏

[@ExcelOnlineBrasil]

Obrigado Sergio. É bom saber que não estou sozinho nessa...rs Então, até utilizo o "CurrentRegion" sim, quando aplico o Loop "For Each Next" ele me ajuda muito. Um abraço 👍😉

[@euclidesjcc]

Laço For é o mais rápido.. em qualquer linguagem.. talvez por ser indexado.. enquanto os outros testando objetos..

[@ricardo.lourenco_bh]

Amigo tudo bem? Poderia me ajudar? Quero somar entre um intervalo de datas ou apenas uma data da minha listbox apenas os valores correspondente a Palavra Dinheiro(coluna E) valor(F), ou seja, ele tem que somar apenas os valores correspondente a Dinheiro dentro desta data. Se dentro do intervalo de data escolhido aparece 3 valores que foram pagos em Dinheiro, preciso que ele some estes valores dentro de uma textbox. Eu sei que deve usar a função soma-se, mas não estou conseguindo colocar os critérios, ou também se houver outra forma de fazer isso. Minha Listbox exibi os pagamentos lançados durante o dia dos meus clientes. Tenho textbox de pesquisa de datas inicial e final, e ele exibi os clientes, a forma de pagamento, o valor bruto, o valor líquido, seja em Dinheiro, débito, crédito ou PIX. Consegui apenas quando eu defino uma data inicial ele me mostra o total em reais da coluna valor bruto e valor líquido. Mas preciso somar separadamente nesta pesquisa os valor em Dinheiro, débito, crédito e PIX em uma textbox para cada. Ficando assim na tela como um fechamento de caixa. Poderia me ajudar?

[@ExcelOnlineBrasil]

Fala Ricardo! Tudo bem? Não consigo te ajudar muito aqui pelos comentários mas sempre separo alguns horários da minha agenda para dar consultorias gratuitas para algumas pessoas inscritas no canal. Se quiser concorrer a uma vaga é só responder umas perguntinhas rápidas nesse formulário aqui: excelonlinebrasil.com/formulario-consultoria Vou ficar muito feliz em ajudá-lo 🧡

[@ricardo.lourenco_bh]

@@ExcelOnlineBrasil Marcos muito obrigado pela ajuda hoje. Foi de super valia os detalhes no vba que as vezes nos passa despercebido. Muito obrigado pela conferência de vídeo e pela paciência em explicar e ensinar. Valeu mesmo.

[@ExcelOnlineBrasil]

😉

[@marciofabianodealmeida1002]

Professor não tem a mesma situação para o SOMASES?

[@ExcelOnlineBrasil]

Consegue sim Márcio, basta trabalhar com o IF e AND para incluir mais testes lógicos e avaliar mais colunas para então efetuar a soma. Um abs 😉

[@erivan57]

tenho uma planilha e não consigo fazer o calculo usando codigo vba tenho plania1 e planilha2 como faço para trazer o somase usando vba para planilha 2

[@ExcelOnlineBrasil]

Olá Erivan. Você já tentou pelo SOMASE tradicional do Excel, sem o VBA? Um abraço😉

[@CasalNavegantes]

Fala, Marcos! Estou tentando criar uma função, onde coloco " , " vírgula depois de cada número ou palavra. Você pode me ajudar ? O script é: Public Function Virgula(Texto1, Texto2) Virgula = Texto1 & "," & Texto2 & "," End function Consigo nesses dois, mas queria até 1000, se possível. É algo que irá me ajudar nos Scripts do sql.

[@ExcelOnlineBrasil]

Rapaz, tenho até uma função que faz isso e posso te enviar o código, mas atualmente a pelo que constatei a função UNIRTEXTO consegue fazer isso. Já tentou trabalhar com ela?

[@CasalNavegantes]

@@ExcelOnlineBrasil Já sim, mas o Excel da empresa é versão 2016, procurei e não achei. Pode me ajudar nessa ?

[@ExcelOnlineBrasil]

Eu costumava utilizar algo no estilo desse código aqui, é uma função com 2 argumentos apenas. O primeiro argumento vc vai clicar na célula onde inicia a sua lista, e o segundo é booleano, se a lista for Vertical então basta colocar VERDADEIRO ou 1, e se for Horizontal FALSO ou 0. Espero que te ajude.😉 Public Function CONCATCOMMA(celula_inicial As Range, orientacao As Boolean) Dim result As String Dim i As Long, total As Long Dim ws As Worksheet Dim iniLin As Long, fimLin As Long Dim iniCol As Long, fimCol As Long result = celula_inicial.Value Set ws = celula_inicial.Worksheet iniLin = celula_inicial.Row iniCol = celula_inicial.Column If orientacao Then fimLin = celula_inicial.End(xlDown).Row fimCol = celula_inicial.Column total = WorksheetFunction.CountA(ws.Range(ws.Cells(iniLin, iniCol), ws.Cells(fimLin, fimCol))) + iniLin - 1 For i = iniLin + 1 To total result = result & ", " & Cells(i, iniCol) Next Else fimLin = celula_inicial.Row fimCol = celula_inicial.End(xlToRight).Column total = WorksheetFunction.CountA(ws.Range(ws.Cells(iniLin, iniCol), ws.Cells(fimLin, fimCol))) + iniCol - 1 For i = iniCol + 1 To total result = result & ", " & Cells(iniLin, i) Next End If ConcatNew1 = result End Function

[@CasalNavegantes]

@@ExcelOnlineBrasil muito obrigado professor!!! Irei fazer o teste!