# 68 Excel VBA - Sort data lines with VBA

[@pedromedeiros1551]

Olha essa Aula merece todos nos nossos elogios, é algo exuberante como vc desenvolve os códigos VBA ( Eu creio que VBA é disparado o processo mais Difícil de se aprender dentro do Excel. ) aqui no KZbin tem ótimos Programadores que possue um nível de conhecimento elevado em VBA. Porém na minha opinião não tem igual ao Professor ALESSANDRO TROVATO. Suas aulas/Vídeos são incríveis. DT. 18/11/2023

[@AlessandroTrovato]

Olá Pedro! Muito obrigado pela sua mensagem e feedback. VBA é a minha paixão. Tem tantos recursos na ferramenta que é pouco o que gravei. Espero que encontre muito material de estudos por aqui nos mais de 1.150 vídeos publicados. Só de Excel são mais de 560. Bons estudos e sucesso!

[@franciscovieiravieira9706]

Cara, sensacional professor, fácil e rápido. isso e super util....obg...

[@AlessandroTrovato]

Fico muito feliz Francisco que tenha gostado da aula. Espero que outras aulas possam te ajudar também. Para ajudar em seus estudos, indico o relatório do Power BI que montei com o link de todas as aulas, separadas por tema: bit.ly/trovatoPBI

[@joseliojjn]

Cara! tu é fera..

[@AlessandroTrovato]

Fico feliz que tenha gostado da aula José! Espero que as mais de 560 aulas de Excel que tenho aqui no KZbin te auxiliem nos estudos!

[@k_fuente2022]

Uma pequena curiosidade: a música de abertura deste e dos demais vídeos se chama I WANT YOU de Charles Kreamer. Assiti à maioria dos EXECELENTES vídeos deste canal.

[@UillyClifMota]

Muitíssimo obrigado! Me ajudou demais em um projeto que estou fazendo.

[@AlessandroTrovato]

Fico muito feliz de ter ajudado Uilly! Espero que encontre ainda muito material de estudo aqui no meu canal no KZbin. Já são mais de 990 vídeos tutoriais publicados.

[@reeffacil-aquarismo]

Fiquei 2 horas mas deu certo... Vlw

[@michelcesar85]

Muito bom, uso muito do que aprendi com essas aulas no dia a dia, obrigado e parabéns sempre por compartilhar conhecimento!

[@AlessandroTrovato]

+Platini Cesar Fico muito feliz com o seu feedback ! Obrigado por sempre acompanhar e compartilhar os trabalhos...

[@reydrums3318]

Estava batendo a cabeça para colocar ORDEM nos NÚMEROS nas Planilhas da Lotofacil, Mega Sena e outras. Ufa com seus ensinamentos acabou a dor de cabeça. Valeu, Abraço.

[@MauriciodPaula]

Cara muito boa suas explicações, com calma, devagar e incremento de novos comando e funcionalidades a cada aula. Até quem não é programador consegue acompanhar, mesmo que não entenda tudo. Eu sou formado em Analise de Sistemas e utilizei suas aulas para entender os fundamentos do VB no excel e consegui resolver um problema em particular que me foi incumbido na minha empresa: somar a quantidade de individuos e o salario dos mesmos em categorias salariais , sendo que a planilha tem mais de 100.000 linhas e apenas devo somar uma célula especifica que contem o valor total da aposentadoria, pois cada aposentadoria ocupa na planilha uma faixa de 5 linhas por 3 colunas. Mas consegui, muito obrigado ganhou um grande inscrito no seu canal.

[@AnandAvikal]

Alessandro você é fantástico!!!

[@evandrofacioli1467]

A aula foi ótima, pena que o arquivo não está mais disponível!

[@AlessandroTrovato]

Infelizmente o Google Drive mudou a política de compartilhamento e os arquivos com link antigos foram desativados. Você tentou baixar esse material por onde? Pela seção de downloads do meu site?

[@looksmart5000]

Excelente aula. Gostei bastante da ideia usando o VBA

[@AlessandroTrovato]

Obrigado pela mensagem +José Alberto Novais Machado !

[@elvesw]

top demais, fiz funcionou de boa, obrigado.

[@eduardodossantos8055]

Excelente. Gostei muito das aulas, muito bem explicadas. Parabens A.Trovato

[@AlessandroTrovato]

Fico feliz que tenha gostado da aula Eduardo! Espero que encontre ainda muito material de estudo nas mais de 720 aulas publicadas! Grande abraço.

[@Yumi-tc4qz]

Nossa, muito obrigada! Me ajudou muito! É a primeira macro que faço, assim que puder irei ver as suas outras aulas para entender melhor. Muito sucesso para você!

[@videoserra]

Alessandro, não consegui executar o Macro. Consegue disponibilizar todos os comandos em texto para que eu possa copiar e colar direto no meu VBA? Se houver algum custo me sinaliza por favor.

[@morenogaucho453]

Grande Alessandro, parece que advinha o que os seguidores precisam, kkkk. Baixei todos os concursos das principais modalidades de loterias da caixa, e essa aula vai ser muito útil. Criei uma macro que percorre trinta concursos na horizontal e escreve as dezenas correspondentes a cada concurso na vertical.Fiz assim por que percebi que fica fácil para avaliar quantos concursos uma determinada dezenas fica sem aparecer. Mas precisei criar uma macro com o gravador para colocar em ordem crescente, e atribui a um botão, mas estou pensando em como colocar direto na loop do For Next para classifica direto enquanto ele vai distribuindo as dezenas na vertical.

[@AlessandroTrovato]

Show de bola meu amigo! É assim que vamos ficando melhores! Criando soluções para nosso dia a dia. Abraços e espero que consiga acertar !!!

[@morenogaucho453]

Seria uma boa, mas não quero muita grana não, apenas o suficientes para ajudar alguns amigos e familiares e sobrando um pouco para minha aposentadoria já estaria bom kkkk.

[@MultiVicthor]

Espero que ajude de alguma forma: Dim MyRange As Range Dim Linha As Long Dim Ultima_linha As Long Ultima_linha = Plan1.Range("A1048576").End(xlUp).Row Linha = 2 For a = 1 To Ultima_linha Set MyRange = Plan1.Range("B" & Linha & ":" & "P" & Linha) MyRange.Sort key1:=MyRange, order1:=xlAscending Linha = Linha + 1 Next a

[@santowalterscaramella6323]

Dá para fazer só com o Excel puro... Se sim aguardo proposta com Orçamento...

[@jeffersondasilvasantos9891]

Bom dia Alessandro, se minhas linhas fossem preenchidas com formato (datas + horas), como se fossem batidas do relógio de cada funcionário, diversas batidas para cada dia, inclusive de um dia para o outro do início ao fim do mês. Como eu poderia fazer um filtro na linha que me retornasse a entrada e saída do colaborador?

[@franciscoguerreiro6612]

Antes de ver o video criei a minha solução e coloquei a macro gravada dentro de um do while. Mas tive de alterar os dados da macro gravada aqui fica: rivate Sub CommandButton1_Click() Dim W As Worksheet Set W = Sheets("Folha1") W.Select W.Range("A1").Select Do While ActiveCell.Value "" ordenar_esq_dir 'chamada do modulo ActiveCell.Offset(1, 0).Select Loop End Sub ------MODULO----- Sub ordenar_esq_dir() ActiveCell.Select ActiveWorkbook.Worksheets("Folha1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Folha1").Sort.SortFields.Add Key:=Range(ActiveCell, ActiveCell.Offset(0, 5)), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Folha1").Sort .SetRange Range(ActiveCell, ActiveCell.Offset(0, 5)) .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With End Sub

[@Marcelo.deLima]

#maisum

[@Qbex-Ardamax]

amigo vc disponibilizou essa planilha para download, visitei seu blog e não encontrei.

[@AlessandroTrovato]

Olá Qbex! Infelizmente acabei perdendo a planilha. Segue o link da matriz em branco utilizada na aula para ajudar. drive.google.com/file/d/0B_flAWFJa5jyTTQ4eEtOVFB0clk/view?usp=sharing

[@Qbex-Ardamax]

Obrigado Alessandro, tinha pedido dois links pra você, mas um deles eu encontrei e esse aqui era o único que faltava, valeu pela sua atenção.

[@CanalDicasDaSorte]

@@Qbex-Ardamax você tem a planilha baixada ?

[@Qbex-Ardamax]

@@CanalDicasDaSorte, não, o link que falei que era o único que faltava, veio sem o vba, não serve para nada.

[@jorgejacinto4492]

Private Sub CommandButton1_Click() Dim W As Worksheet Dim UltCell As Range Dim Linha As Long Set W = Sheets("Cópia de planilha de 10fixos e ") W.Select UltCell = W.Range("a1048576").End(xl.Up) W.Range("a1").Select Do While ActiveCell.Row UltCell = W.Range("a1048576").End(xlUp)

[@sergiocardosozacariasoficial]

Era isso que eu tava precisando para ordenar o resultado na minha planilha. Será que vc pode ensinar como coletar os dados da planilha baixada do site da CEF. Obrigado por vc compartilhar seus conhecimentos. Um grande abraço.

[@orlandocbm]

Olá amigo. Adorei sua dica. Meu código ficou assim: Private Sub CommandButton1_Click() Dim W As Worksheet Dim UltCel As Range Dim Linha As Long Set W = Sheets("Planilha1") W.Select Set UltCel = W.Range("a1048576").End(xlUp) W.Range("B6").Select Do While ActiveCell.Row

[@egidioseverino4002]

Sheets("orçamento para Impressão").Range("C19:143").ClearContents olá parabéns pela aula mais nao passo dessa linha alguem me ajuda por favor

[@AlessandroTrovato]

Olá Egídio. Grato pela mensagem. Sua referência está errada. Observe que faltou o C de 143. Correto: Range("C19:C143")

[@ederedgolveia4658]

Professor, deu certo mas numa lentidão!!!!..da até pra ver linha a linha....tenho um i5 com 16gb de ram... algum motivo dessa lentidao?....seriam 3mil linhas...

[@AlessandroTrovato]

Olá Eder. Utilize o comando Application.screenupdating = false no início do código e Application.screenupdating = true no final para desligar a atualização da tela. Deve ajudar. Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 660 vídeos tutorias que possuo atualmente (só de Excel são mais de 320!) possam lhe ajudar. Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html Site com meus cursos com certificados: cursos.alessandrotrovato.com.br Bons estudos e sucesso!

[@moysesborges7342]

Professor quero aprender a separação de número, ex de 1 a 100 tenho 50 números como faço para ver os outros 50 que não estão na linha ?

[@TheJackcorreia]

só que estou com dificuldades pra contar a quantidade de execuções (jan a dez) na horizontal e contratos na vertical

[@AlessandroTrovato]

Olá Jack! Pode baixar a planilha e adaptar o código a vontade para atender a sua necessidade. Há ainda muitas aulas de VBA no canal que darão a você os conhecimentos necessários para ajudar com sua dúvida! Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 540 vídeos tutorias que possuo atualmente (só de Excel são mais de 260!) possam lhe ajudar. Bons estudos e sucesso!

[@tiga5611]

Alessandor, bom dia! Preciso de uma rotina para o Excel que classifique várias linhas de uma tabela em ordem crescente e continua, abrangendo todas as linhas, e não classificar linha por linha individualmente. Exemplo: Na linha 1-coluna A, tenho o número 98 e na linha 10-coluna F, tenho o número 1. Preciso que a rotina classifique levando o número 1 para a célula A1 e o número 98 para a sua posição na célula X. É possível de criar uma rotina assim? Agradeço por qualquer ajuda possível.

[@carlosjacir]

Muito obrigado Alessandro! Funcionou perfeitamente para 8 mil linhas. Me inscrevi em seu canal, vou acompanhar as aulas no sigaonerd. DETALHE: Não encontrei esta planilha para download, o mais complicado são as alterações nos procedimentos, em um micro rolava seu vídeo e no outro eu fazia as alterações, e deu certo, entendeu ? Abraço...

[@AlessandroTrovato]

Olá +Carlos Jacir ! Obrigado por se inscrever no canal. Seja bem vindo! Tenho mais de 260 aulas e do Excel são mais de 130. Vou colocar abaixo os links das playlists principais. Excel Básico: kzbin.info/aero/PL7iAT8C5wumoOJ135_2lqQfDhCxkkJvDH Funções Excel: kzbin.info/aero/PL7iAT8C5wumqX-bUoZn4dgr2dld1KuBTc Desafios Excel: kzbin.info/aero/PL7iAT8C5wumpvdXOLLlRZ3t7SUBiqwNU_ Macros e VBA: kzbin.info/aero/PL7iAT8C5wumpfsfVzZRRVfpTS17d6sykT Tira dúvidas: kzbin.info/aero/PL7iAT8C5wumpc2bxIM5TPWmNwTG1bi7KL Sucesso!

[@jorgejacinto4492]

Escrevi toda a tua rotina, observando cada detalhe, e não funciona. Acredito que esteja sendo executado outro plan da memória. a linha 9 (W .Select) dá erro na depuração.

[@jorgejacinto4492]

Corrigi a linha para: - Set W = Sheets("Cópia....) e passou. depois parou na linha com instrução: UltCell = W.Range("a1048576").End(xl.Up) .. e não passa nem a pau!

[@jorgejacinto4492]

e acusa erro de depuração 404 - o objeto é obrigatório

[@ketlensilva2502]

Na linha do while Activecell.Row

[@joseosvaldoloranascimento4181]

Boa tarde, Alessandro. Obrigado pelo excelente conteúdo. Gostaria de saber como faço para, após uma filtragem de dados, contar apenas as linhas visíveis? Obrigado

[@eberson7710]

Alessandro, Tudo bem? Tenho uma dúvida. Gravei uma macro para fazer essa classificação na Plan1, mas quero utiliza-la tbem na Plan2, Plan3. Qual alteração devo fazer no código? Espero por sua ajuda. Obrigado!

[@soumarciosales]

Oi Alessandro, tudo bem?! Estou acompanhando varias aulas. E não vi ainda um exemplo que eu possa somar um bloco de dados que estão espalhados numa lista, gerando um resumo por cada tipo d e bloco. Pode indicar algum link de umas de suas aulas. Ex. tenho uma lista com varias frutas que chegaram em varios carregamentos, eu quero saber o quanto chegou de cada fruta, num periodo independente da qtde de carrgeamentos.. ou seja uma fruta pod estar na 20 linhas, como tb pode estar em num outro carregamento na linha 1000, quero somar os dois trazendo uma unica ocorrencia dessa fruta.

[@divinobrito]

Como eu faço pra te encaminhar uma dúvida?

[@AlessandroTrovato]

+Divino Brito Pode postar aqui nos comentários Divino. Quando tiver um tempo disponível auxilio...

[@carlosferreira7747]

Alessandro bom tarde. Você poderia por favor tirar uma dúvida? Eu criei uma Macro onde selecionei todas as colunas e fiz a ordem alfabética. Logo... copiei o nome da macro e inclui dentro de uma sub Isso pode gerar algum tipo de problema para BD?

[@josete4494]

Boa noite, nao achei a planilha Classificando dados na horizontal. se pude me manda. [e-mail]. obg