Extraindo Informações com Macros no Excel - Parte II

Na postagem anterior: Extraindo Informações com Macros no Excel vimos que podemos extrair facilmente, informações de uma base de dados com a utilização de Macros.

A macro demonstrada nesta postagem é bem simples pois, o critério para a extração das informações fica dentro do código (macro). Esta postagem mostrará como podemos fazer para que o usuário possa escolher a coluna a ser filtrada e o critério a ser utilizado.

A base de dados para este exemplo é a mesma da utilizada na postagem anterior (mencionada acima). A alteração acontece apenas na macro. Observe a figura abaixo:

Podemos notar que as duas 1ª linhas destacadas em vermelho foram acrescentadas (não existiam no código da postagem anterior). Nestas duas linhas são criadas duas variáveis que, na execução da macro, abre uma caixa de edição para que possamos:

• Digitar o nº da coluna que contém o critério a ser escolhido (col)
• Digitar o critério desejado (referente a coluna escolhida (msg)

Estas variáveis são utilizadas substituíndo os valores fixos, utilizados anteriormente:

Linha com valores fixos no código:

• If Sheets("Base").Cells(lin, 10) = "SC" Then 

Linha com variáveis no código:

• If Sheets("Base").Cells(lin, col) = msg Then

A postagem anterior traz um link para download da planilha exemplo. Altere a mesma de acordo com as alterações sugeridas acima e faça os devidos testes. Em caso de algum problema, favor contatar: ivairferrari@gmail.com.

A Próxima postagem tratará de outros aspectos que podem ser melhorados automatizando e dando maior poder a macro.

Se gostou do assunto abordado, divulgue a seus amigos.

Até a próxima!

Ivair Claudio Ferrari.