# 16 - Course macros and Excel VBA - Do While / Loop

[@BRKarlito]

Mais uma super aula Trovato, muito obrigado

[@AlessandroTrovato]

Fico feliz que tenha gostado BRKarlito! Há mais de 1.100 vídeos tutoriais aqui no canal. Espero que ainda encontre muito material de estudos por aqui.

[@martins1735]

Aula excelente como sempre. Obrigado!!!

[@laertenestorfortes2311]

Excelente Trovato!

[@AlessandroTrovato]

Muito obrigado pela mensagem Laerte! Bons estudos!

[@negociosonline40]

legal essa estrutura de loop, uso de outra forma quase parecida, mas gostei dessa lógica.

[@AlessandroTrovato]

O bom da lógica é que podemos utilizá-la de várias formas diferentes, com vários recursos e chegamos sempre ao mesmo resultado. O VBA é incrível. Bons estudos!

[@halsoares]

Sensacional! Muito obrigado por dividir seu conhecimento conosco.

[@AlessandroTrovato]

Fico grato e feliz pelo feedback e pela sua mensaggem Halbert! Espero que encontre ainda muito material de estudos nos mais de 990 vídeos já publicados por aqui. Feliz 2022!

[@Deivid8525]

curso excelente!

[@AlessandroTrovato]

Muito obrigado pelo feedback! Bons estudos!

[@andersonbasto4834]

Excelente curso. Parabéns pela didática e obrigado por compartilhar.

[@AlessandroTrovato]

Fico muito feliz que tenha gostado Anderson! Grande abraço e espero que as mais de 200 aulas de VBA do canal te ajudem nos estudos!

[@arianesantos393]

Melhor canal! Melhores explicações! Não sei pq vc não é o mais divulgado no YT!

[@AlessandroTrovato]

Muito obrigado Ariane pela mensagem e feedback. Conteúdo educacional no KZbin é muito difícil de viralizar. Então fico contente com os números atuais... Continuarei a produzir conteúdo, independe do número de likes e visualizações. O importante é ter o conhecimento compartilhado. Grande abraço, bons estudos e muito sucesso. Espero que encontre muito material ainda de estudos por aqui.

[@assisgauderetogaudereto7882]

sim, muito coisa a aprender. ver, ouvir, ler, fazer, refazer. até dominar. valeu

[@edsonlucia2056]

ja havia visto outras aulas sobre o assunto ,mas não tanto clara e muito bem explicada como vc o fez,fica muito mais facil de compreender

[@AlessandroTrovato]

Muito obrigado Edson Lucia pela mensagem. Esse feedback é muito importante para que eu possa direcionar os treinamentos. Sucesso e um bom final de semana.!

[@fabiolp4272]

Parabéns pela aula. Que Deus abençoe.

[@AlessandroTrovato]

Muito obrigado pela mensagem Fábio! Que Ele abençoe a todos nós! Bons estudos e sucesso!

[@humilitywewantit]

Parabéns por sua nobre iniciativa de compartilhar seus conhecimentos gratuitamente. Estou acompanhando seus vídeos, novidades e canal. Forte abraço! Que você tenha ainda mais sucesso!

[@gilsonnobre8942]

muito obrigado por suas aula, aula pratica, professor excelente , não esquecendo a sua humildade de compartlhar seus conhecimento.

[@rodrigocorreia426]

Chegando na aula 16!!! Parabéns pela didática

[@AlessandroTrovato]

Obrigado Rodrigo Correia pela mensagem e vai com fé! Já estamos na aula 35...

[@neorobsondeazevedo5559]

Show, bacana esse procedimento.

[@AlessandroTrovato]

Grato Néo!

[@eduardozara3803]

Valeu !!! Alexandre. estou gostando pela simplicidade e como voce faz ficar fácil de entender, pena que temos que esperar muito pela próxima aula. obrigado e abraço

[@AlessandroTrovato]

eduardo zara Olá Eduardo! As aulas são gravadas semanalmente ou com uma semana de antecedência. Se liberar todas ao mesmo tempo não há tempo hábil o suficiente para elas serem divulgadas, assistidas e entendidas! Obrigado pela sua mensagem.

[@bikeesaude]

Curso Excelente Professor Trovato! Obrigado!!!

[@AlessandroTrovato]

Muito obrigado +Henrique Carvalho pela mensagem... Já estamos na aula 44! Espero que o restante do curso continue ajudando...

[@willcotrim4460]

Professor, cheguei agora no seu canal, ganhou mais um inscrito. Parabéns!

[@filipovickuabinho8715]

Obrigado pelas aulas e pela sua dedicação

[@AlessandroTrovato]

Muito obrigado pela mensagem e por acompanhar os trabalhos! Convido você a se inscrever no canal e acompanhar as mais de 300 vídeos aulas que já publiquei (só do Excel são mais de 150!) e no dia 15 de outubro serei um dos palestrantes do 1º Encontro Presencial EXCEL WEEKEND. Um encontro de profissionais da área. Participe! #ExcelWeekend Página do evento: bit.ly/2bRtXi1 Bons estudos e sucesso!

[@francisconarciso1907]

Excelente conteúdo e apresentação! Parabéns Trovato!

[@rafaelbarros4976]

aproveitando pra aprender nessa pandemia parabéns pelo curso, sua didática e excelente.

[@TheAngryPanda-_-]

Brabo Demais s2

[@allansp4172]

Excelente explicação!

[@AlessandroTrovato]

Fico feliz que tenha gostado Allan! Bons estudos!

[@LGEngenhariabh]

Muito boas as aulas....Estou querendo me aprofundar mais em VBA, sei o básico de linguagem C e R, você acha que vale a pena comprar algum livro, estava procurando referências, me falaram muito bem deste livro "Excel 2016: VBA e Macros por Bill Jelen " você acha que vale a pena?

[@rafaelhenriquesduarte]

Olá Alessandro blz ? Achei muito bacana o seu video, gostaria de tirar uma duvida com você. Estou precisando criar um planilha que percorra 70 linhas, mas que obedeça critérios. É para uma pré escalação de trabalhadores. Por exemplo, a escala de trabalho se da através de uma chamada, no caso no ultimo trabalhador que parou, por exemplo no número 50. Então os próximos trabalhadores serão os 51, 52, 53, 54, 55 e 56 desde que obedeçam certos critérios. Gostaria de criar esta listagem automática no excel entende? Consegue me dar uma luz? obrigado

[@paulobraghetto]

Excelente Trovato, continue assim!

[@AlessandroTrovato]

Obrigado +Paulo Braghetto pela mensagem! Já estamos na aula 57 e espero que goste do restante dos trabalhos também.

[@roberto-martins]

Obrigado.

[@AlessandroTrovato]

Eu é que agradeço por acompanhar os trabalhos Roberto!

[@Dru235]

boa aula , aos poucos estou tentando compreender o Vba .

[@AlessandroTrovato]

Olá Dru! Tenho certeza que as mais de 90 aulas que tenho sobre o tema vão te ajudar a encontrar o conhecimento que precisa! Bons estudos e sucesso! Algumas playlists do canal: Excel Básico (30 aulas): kzbin.info=PL7iAT8C5wumoOJ135_2lqQfDhCxkkJvDH - Funções Excel (+44 aulas): kzbin.info/aero/PL7iAT8C5wumqX-bUoZn4dgr2dld1KuBTc - Desafios Excel (3 vídeos): kzbin.info/aero/PL7iAT8C5wumpvdXOLLlRZ3t7SUBiqwNU_ - Macros e VBA(+70 vídeos): kzbin.info/aero/PL7iAT8C5wumpfsfVzZRRVfpTS17d6sykT - Tira Dúvidas (7 vídeos): kzbin.info/aero/PL7iAT8C5wumpc2bxIM5TPWmNwTG1bi7KL - - Excel Avançado (curso completo com certificado, + 9 horas de vídeo) curseduca.com/136-microsoft-excel-2013-avancado/BFED29ED

[@Dru235]

+Alessandro Trovato obrigado Alessandro. Vou me dedicar .. e quero me aprofundar no Excel Avançado.

[@AlessandroTrovato]

Olá Dru! Vai encontrar bastante material no meu canal de vídeos! Bons estudos!

[@joaquimcarlosmendonca2336]

Excelente material e Explicação. Parabéns!! Professor Alessandro.

[@joseph032531]

Muito, muito show!!!

[@AlessandroTrovato]

Grato José!

[@oproximooculto]

Bom dia Alessandro, fiquei com uma duvida. Preciso criar um gerador de códigos aleatorios de forma automática, porem que pare o processo quando o codigo for maior do que um outro valor predeterminado. Fiz isso usando a formula aleatorio juntamente com o autocalculo do excel (F9) mas o loop simplesmente nao encerra mesmo quando a condição passa a ser falsa. O que devo fazer para encerrar o loop?

[@hildevan1]

Olá Tudo bem? Gostaria de saber se é possível de fazer um loop duplo? Da seguinte forma: quero criar um planilha que irei inserir dados de várias pessoas todos os dias da semana nela, só que essas pessoas irão se repetir, e no final do mês, quero gerar um relatório com esses dados. Só que gostaria que ficasse da seguinte maneira, ele gerasse um relatório que pegasse a primeira e fosse inserindo da mesma enquanto houvesse dados dela, fosse inserindo, depois que não houvesse, é que passasse para próxima e fizesse o mesmo com a mesma. Isso com todas. Não sei se fui claro. Acho que seja um loop dentro de outro, tentei fazer-lo, mas não deu certo.

[@adelmodaniel]

Boa tarde Prof. Alessandro. Estou tendo um problema nesta aula. Quando vou testar o código (linha por linha) através do F8, na primeira "teclada" já é emitido a msg: "Erro de Compilação: Variável não definida" e o código "ActviceCell" lá na linha "resultado = resultado + ActviceCell.Value" fica selecionada, porém eu declarei todas as variáveis, igualzinho você fez, mas não dá certo. Segue abaixo como montei o código: Option Explicit Private Sub btExecuta_Click() 'Quando eu optar por Option Explicit, eu sou obrigado a declarar todas as variáveis Dim W As Worksheet Dim UltCel As Range Dim resultado As Long 'Inicialização das variáveis Set W = Sheets("Plan1") resultado = 0 'seleciona a planilha W.Select Set UltCel = W.Range("A1048576").End(xlUp) UltCel.Select 'End(xlUp) é a mesma coisa que teclar ctrl + seta para cima 'Estrutura de repetição 'Faça enquanto a linha for maior ou igual a 2 Do While ActiveCell.Row >= 2 resultado = resultado + ActviceCell.Value ActiveCell.Offset(-1, 0).Select Loop MsgBox resultado UltCel.Offset(1, 0).Value = "O resultado é " & resultado End Sub Desde já, muito obrigado pela atenção.

[@AlessandroTrovato]

+Adelmo Barros Observe o seu código Adelmo. Há um erro na linha abaixo... A palavra Activecell está escrita errada. O Excel está entendendo que isso é uma variável. resultado = resultado + ActviceCell.Value

[@adelmodaniel]

Puts...verdade rsrs...e olha que eu revisei esse código várias vezes rsrs. Muito obrigado professor.

[@alexlopes9534]

Muito bom!!

[@AlessandroTrovato]

Obrigado mais uma vez pela mensagem!

[@rafaelsaraiva1160]

parabéns pelo vídeo e conteúdo... uma pergunta é possível criar loop na mesma linha? por exemplo... tenho um tabela de dados, e gostaria que ele me trouxesse em forma de texto tudo que representa aquele valor. forte abraço

[@edsontomasdelima]

Bom dia meu caro, não sei se o problema é o office (o meu é 2019),mas já olhei código a código e não vi nada diferente do que você fez e ele continua informando "Erro de compilação - Variável não definida", tanto para essa aula quanto para a anterior, se puder me ajudar agradeço.

[@AlessandroTrovato]

Edson. Se no começo do módulo você estiver com a instrução OPTION EXPLICIT escrita, significa que toda as variáveis devem ser declaradas antes de sua utilização. Para ver a linha que está apresentando problemas, clique no menu Depurar e na sequência em Compilar VBAProject. Ele vai indicar a linha que está com o problema

[@edsontomasdelima]

@@AlessandroTrovato Vou verificar, obrigado

[@JorgeLima2013]

Boa noite professor. Apesar de já ter alguma noção de VBA, venho assistindo suas ótimas aulas visando me tornar mais seguro. Uma dúvida: Hoje montei uma planilha e coloquei na pasta de trabalho um código para ocultar a barra de status. Coloquei no evento workboook Open o atributo = false e depois fiz outro procedimento no evento orkbook Close o atributo = True. Ocorre, que quando abro alguma outra planilha qualquer, a barra de status também está desabilitada, tendo eu que ir em exibição e marcar para exibir. Sabe o que pode estar ocorrendo? Não deveria estar normal já que no evento close coloquei o atributo = true?

[@GabrielHenrique-is9gw]

Otima aula Alessandro! Toda aula está sendo um ótimo aprendizado! Nessa aula eu tive um problema: quando fui rodar o VBA clicando no botão, ele deu erro de execução "13". Verifiquei os códigos e está exatamente igual ao seu. O erro que aparece está no comando Resultado = Resultado + ActiveCell.Value. Verifiquei o seu mas está igual. Você pode me ajudar com esse erro quando eu rodo mais de uma vez? Obrigado!

[@jrjrsouza]

Rapaz, 3 anos depois do seu comentário estava assistindo essa video-aula e passei pelo mesmo problema, por isso vim aqui vasculhar os comentários pra ver se alguém passou pelo mesmo e havia sido respondido, infelizmente não era o caso. :( Daí quebrei a cabeça mais um pouquinho e acabei na sorte entendendo: Você recebeu essa mensagem de erro em uma segunda tentativa correto? Pois ele me acometeu quando eu tentei ativar o botão pela segunda vez após corrigir a formatação da mensagem que havia ficado feia. O mismatch ocorreu porque a célula com o resultado entrou na soma (afinal, o script pede pra ele preencher com o resultado a primeira célula após as células com valor, na mesma coluna, portanto em uma nova análise o XlUp vai abranger e começar pela célula do resultado) e como o resultado é uma combinação de frase + número, a classe "long" não a abrange. Provável que você tenha já resolvido, mas fica pra quem tiver com o mesmo problema.

[@weversonjose5699]

Alessandro... Boa tarde... Quando eu abro um formulário em vba não consigo abrir outra planilha do excel? Seu canal e fantástico... obrigado...

[@wflaviorj]

Obrigado pelas aulas prof Trovato. Segue minha dúvida: Ao utilizar o comando "Option Explicit" no meu código o excell entende que o comando "ScreenUpdating" é uma variável e solicita que a mesma seja declarada. Como solucionar esse problema? Abraços.

[@AlessandroTrovato]

Olá WFlaviojr. Grato pela mensagem e por acompanhar os trabalhos! Já tentou escrever application.screenupdating = false Deve ajudar....

[@wflaviorj]

Obrigado professor. Funcionou. Boa dica.

[@alexdumann2241]

Pode me ajudar? gostaria de fazer um contador que adicione um valor somando ele mesmo ate um limite determinado, por exemplo: no contador eu digito o numero 3 e ele vá somando 3 até chegar no valor limite de 20, nesse momento ele pegue a sobre (21 - 20 = 1) e adicione o valor 3 (1 + 3 = 4 + 3 + 3... ) e comece a somar novamente ate o limite de 20, quando passar de 20 a diferença é somada ao valor inicial 3...?

[@Marcosmeca1]

Olá Alessandro... não seria muito mais simples fazermos um do while...loop começando da célula 2 e fazer até que a célula fosse diferente de " "... ?

[@AlessandroTrovato]

Olá Marcos! As duas soluções são praticamente iguais mas há um problema. Se houver alguma célula vazia no caminho o processo será interrompido. Grato pela mensagem, pela sugestão e por acompanhar os trabalhos. Isso enriquece bastante as atividades e a transmissão do conhecimento! Bons estudos e sucesso!

[@SHAYANECRIS]

Bom dia Trovato, venho assistindo seus videos e são muitos bons, parabéns.Gostaria de pedir uma ajuda estou fazendo uma macro utilizando o Do While e dentro dessa repetição utilizo a função de filtro avançado, só que tenho que mudar os critérios toda hora que ele faz loop, sabe como faço isso para ficar automático, ( Sheets("Balancete").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("C.Custo 2").Range("A1:A2"), CopyToRange:=Range("A1"), _ Unique:=False) seria o .Range("A1:A2") preciso automatizar, se pude me ajudar fico grato.

[@gabrielalexsandroramos1496]

O resultado não deveria ser gravado pelo menos em uma coluna diferente (ou então apagar o resultado anterior antes da próxima execução)? Se o gravarmos depois da última célula contendo os dados, na segunda execução do macro o programa começará a somar da célula contendo o resultado da execução anterior.

[@AlessandroTrovato]

Olá Gabriel! Fiz a criação da rotina para efeitos didáticos, mostrando como funciona uma estrutura de repetição. As melhorias na rotina como a proposta por você vem surgindo da necessidade do dia a dia. Se eu fizesse todas as variações possíveis para o código a aula se tornaria muito extensa e enjoativa ! Muito obrigado pela mensagem. Espero que os mais de 500 vídeos tutoriais que possuo atualmente (só de Excel são mais de 250!) possam lhe ajudar. Venha conhecer meu próprio portal de cursos também: trovato.curseduca.pro/home/ Bons estudos e sucesso!

[@caduguimaraes]

Trovato, eu realmente nao entendi o conceito "option explict". Se eu não utiliza-lo, o VBA irá me reportar o erro independentemente de ter declarado este comando, certo? Então, o porque de utiliza-lo? Obrigao!

[@AlessandroTrovato]

+caduguimaraes Olá! Nas próximas duas aulas vou explicar detalhadamente porque utilizar o Option Explicit. Resumindo: consigo economizar muito temo procurando problemas quando algo da errado na planilha. Não perca os próximos trabalhos! Convido você a conhecer outras aulas que tenho do Excel (+140) e outros temas que totalizam atualmente mais de 280 aulas como esta! Bons estudos e sucesso. Algumas playlists do canal: Excel Básico (30 aulas): kzbin.info/aero/PL7iAT8C5wumoOJ135_2lqQfDhCxkkJvDH Funções Excel (+40 aulas): kzbin.info/aero/PL7iAT8C5wumqX-bUoZn4dgr2dld1KuBTc Desafios Excel (3 vídeos): kzbin.info/aero/PL7iAT8C5wumpvdXOLLlRZ3t7SUBiqwNU_ Macros e VBA(+70 vídeos): kzbin.info/aero/PL7iAT8C5wumpfsfVzZRRVfpTS17d6sykT Tira Dúvidas (7 vídeos): kzbin.info/aero/PL7iAT8C5wumpc2bxIM5TPWmNwTG1bi7KL

[@caduguimaraes]

ótimo, obrigado.

[@andredede13]

Trovato, utilizei o "Do While" para procurar um texto. funcionou perfeitamente porém queira que ela funcionasse com dois textos diferentes. é possível ? ex. "APROVADO" e "NEGOCIANDO" Do While activecell.Text "APROVADO" activecell.Offset(1, 0).Activate Loop

[@AlessandroTrovato]

Olá André! Tente: Do While activecell.Text "APROVADO" and activecell.text "NEGOCIANDO" activecell.Offset(1, 0).Activate Loop Bons estudos e sucesso! Convido você a se inscrever em meu canal de vídeos para ter acesso a centenas de aulas como essa! Algumas playlists do canal: Excel Básico (30 aulas): kzbin.info=PL7iAT8C5wumoOJ135_2lqQfDhCxkkJvDH - Funções Excel (+47 aulas): kzbin.info/aero/PL7iAT8C5wumqX-bUoZn4dgr2dld1KuBTc - Desafios Excel (3 vídeos): kzbin.info/aero/PL7iAT8C5wumpvdXOLLlRZ3t7SUBiqwNU_ - Macros e VBA(+87 vídeos): kzbin.info/aero/PL7iAT8C5wumpfsfVzZRRVfpTS17d6sykT - Tira Dúvidas (15 vídeos): kzbin.info/aero/PL7iAT8C5wumpc2bxIM5TPWmNwTG1bi7KL - - Excel Avançado (curso completo com certificado, + 9 horas de vídeo) - curseduca.com/136-microsoft-excel-2013-avancado/BFED29ED

[@paulonogueira2117]

Professor, gostei muito desta aula . Muito obrigado!! Mas aconteceu um erro comigo. Na minha somatória, o do while percorre desde a última célula preenchida até a célula 2, correto. Mas ela não soma o conteúdo da célula 2. Uma autosoma com o próprio excel mostra essa divergência. O senhor sabe oque pode ter acontecido? O código é exatamente o mesmo do vídeo !

[@AlessandroTrovato]

Paulo Tarso Difícil dizer Paulo... Mande a planilha com o seu código para dar uma olhada. ([e-mail]). Estou de férias e assim que der um tempinho eu vejo... Obrigado por acompanhar as aulas.

[@paulonogueira2117]

Alessandro Trovato Professor, me desculpe pela demora, é que estou sem internet em casa e só estou podendo usar no serviço. Já entendi qual era meu erro, estava usando uma seleção errada no meu código. Mas professor, preciso de uma dúvida do meu dia-dia. Sou iniciante na área de VBA, ganhei uma promoção pro estoque da minha empresa, onde agora eu crio diversas planílhas... a principal para mim hoje é controle de estoque. Achei um código de userform na internet, baixei e alterei, para meu uso. Com o código para definir a área de impressão, consigo definir a área direitinho. Mas eu gostaria de uma ajudinha , para definir a área de impressão, e já mandar isto para a impressora. E se o senhor ao olhar , tiver alguma idéia que possa otimizá-la.. Vou gostar!! Rsrs. Estou enviando a planílha por email. Um abraço Professor.

[@danieleoliveira3376]

ou é a primeira ou a segunda aula, lá explica direitinho

[@ycaroovoador7744]

👍👍👍 👍👍👍

[@AlessandroTrovato]

👏👏👏👏👏👏👏👏

[@assisgauderetogaudereto7882]

estou com problema nessa estrutura o que fazer. meu computador trava: While Cells(iLin, "A").Text "" cmbCliNome.AddItem Cells(iLin, "C").Text Wend queria mudar para uma que faça o mesmo

[@AlessandroTrovato]

Olá Assis! Nas aulas futuros você verá ainda outras estruturas de repetição e poderá utilizar a que melhor se encaixa nas suas necessidades: DO WHILE, DO UNTIL, FOR NEXT... Se ainda não é um inscrito(a), convido você a se inscrever em meu canal de vídeos! Espero que os mais de 420 vídeos tutorias que possuo atualmente (só de Excel são mais de 170!) possam lhe ajudar. Bons estudos e sucesso!

[@denislooko]

Ola como saber quando usar range ou row

[@AlessandroTrovato]

Dii Deniis Utilize Range quando quiser manipular uma ou mais células. Row é utilizada para manipular uma linha inteira enquanto Column para manipular uma coluna. Mas ambas podem ser manipuladas com a função RANGE. Exemplos: range("A1").select Range("A2:A10").select Range("1:10").select Range("A:D").select

[@denislooko]

yeaaaaaah obrigado

[@rafaelcalocci8196]

Aula concluída

[@jrbbrasil]

Boa tarde, professor. É possível fazer um Loop dentro de outro Loop? Se sim, há alguma aula já gravada a respeito disso? Se não, o senhor poderia elaborar uma aula com esse tema? Abraço Obrigado

[@owlwolf1]

Dá para fazer sim, e cada Do While deve possuir o próprio Loop para encerrar, em estrutura semelhante aos pares de parênteses na fórmula de uma célula.

[@Marcelo.deLima]

#maisum

[@andremoura4869]

Muito bom!!!