Dicas: Macros para Excel - Extraindo dados

Dicas de Macros para Excel - Extraindo dados

Movimente-se pelas planilhas e extraia informações

Na postagem "Dicas de Macros para Excel - Parte 3" foram demonstradas algumas maneiras (Macros) para a realização do deslocamento entre linhas e colunas, ou seja, como encontrar a última linha ou a última coluna preenchida / utilizada.

Como mencionado na parte final da postagem citada acima, agora vamos avançar um pouco, utilizando as mesmas ideias ou conceitos, executando algumas tarefas.

Podemos executar qualquer tarefa que tenha uma lógica que possa ser transmitida ao Excel. A partir dos exemplos da postagem mencionada, vamos incluir alguns comandos na parte central para que extraia informações de uma base de dados (de outra planilha).

A base de dados é apresentada na figura a seguir:

Nesta base, nosso objetivo é extrair alguns dados de acordo com um ou mais critérios.

Vamos imaginar que precisamos extrair da 'Plan1' para a 'Plan2', apenas as informações do estado (UF) de 'SC'. Isto é bastante simples. Observe o código (macro) a seguir:

Sub Extrair_dados() ultimaCelula = Plan1.Cells(ActiveSheet.UsedRange.Rows.Count, 1).Row lin = 2 For i = 1 to ultimaCelula If Plan1.Cells(i, 2) = "SC" then Plan2.Cells(lin, 1) = Plan1.Cells(i, 1) Plan2.Cells(lin, 2) = Plan1.Cells(i, 2) Plan2.Cells(lin, 3) = Plan1.Cells(i, 3) Plan2.Cells(lin, 4) = Plan1.Cells(i, 4) Plan2.Cells(lin, 5) = Plan1.Cells(i, 5) lin = lin + 1 End If Next End Sub

Veja na figura a seguir o resultado depois da execução da macro:

     Para utilizar e extrair outras informações, basta alterar o critério:

• Mudando o estado (UF);
• Alterando o tipo de critério - Qtdade, Unit. ou Total
• Combinar mais que um critério

Compartilhe com seus amigos.
Deixe também seu comentário e/ou sugestão pois ajudará a enriquecer o que estiver ou vier a ser publicado.


Obrigado pela visita e um Grande Abraço a todos !

Consultor e Professor: Ivair Claudio Ferrari.



Confira também: http://www.excelmax.blogspot.com.br/2013/04/dicas-de-macros-para-excel-parte-1.html