#68 Excel VBA - Classificar dados por linhas (na horizontal) com VBA

#68 Excel VBA - Classificar dados por linhas (na horizontal) com VBA

Nesta aula você aprenderá a criar uma classificação horizontal de dados utilizando VBA.
- Como classificar os dados
- Utilizar o gravador de macros para fazer a classificação
- Adaptando o código gerado
- Executando o processo com vba

Espero que goste do conteúdo.
Se gostou compartilhe com seus colegas de trabalho e amigos!

Microsoft Excel é um aplicativo do pacote Microsoft Office

[franciscovieiravieira]

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

[pedromedeiros]

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

[k_fuente]

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.

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

[michelcesar]

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

[MultiVicthor]

Espero que ajude de alguma forma:
Dim MyRange As Range
Dim Linha As Long
Dim Ultima_linha As Long

Ultima_linha =
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

[reydrums]

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.

[eduardodossantos]

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

[looksmart]

Excelente aula. Gostei bastante da ideia usando o VBA

[Yumi-tcqz]

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

[elvesw]

top demais, fiz funcionou de boa, obrigado.

[morenogaucho]

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.

[sergiocardosozacarias]

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.

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

[evandrofacioli]

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

[jeffersondasilvasantos]

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?

[joseosvaldoloranascimento]

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

[neryserra]

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.

[franciscoguerreiro]

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



Sub ordenar_esq_dir()

ActiveCell.Select

Key:=Range(ActiveCell, ActiveCell.Offset(0, 5)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With
.SetRange Range(ActiveCell, ActiveCell.Offset(0, 5))
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With

End Sub