Excel - Macro para Consulta entre Datas (com Formulário)

Macro para consulta entre datas com Formulário

A análise de informações para a tomada de decisões é de suma importância para pessoas e empresas. Com as diversas mudanças de cenários, o surgimento de novas tecnologias, novos concorrentes entre outras coisas que tornam tudo mais competitivo, surge a necessidade de maior rapidez e qualidade naquilo que fazemos.

No artigo: Excel - Macro para Consulta entre Datas, demonstrei como podemos extrair informações entre duas datas com: extrema rapidez e facilidade com a utilização de Macros no Excel.

A partir deste modelo: vamos aprimorar e deixar tudo mais prático. Para isso, podemos criar um formulário que permita digitar ou selecionar os critérios desejados (como datas) para a extração das informações desejadas.

Artigos escritos anteriormente podem ajudar a construir formulários de pesquisa ou para gerar relatórios:

• Série - Soluções para seu Dia-a-Dia com o Excel - Relatórios com VBA
• Macro para Gerar Relatório Parte III (com Formulário)
• Trabalhando com Objetos no Excel - ComboBox
• Outros artigos que podem ser encontrados aqui.

Neste artigo, darei continuidade ao exemplo anterior, fazendo algumas mudanças, como mencionado, utilizando um formulário.

O modelo (base de dados) que vamos utilizar é o mesmo do artigo anterior - Excel - Macro para Consulta entre Datas.

A partir da base de dados, vamos extrair apenas as informações que estiver dentro do período que vamos estabelecer.

A figura a seguir, representa o Formulário que contém os campos: 'Data Início' e 'Data Fim'.

Alguns aspectos devem ser observados neste formulário para que funcione corretamente e para que a leitura ou o entendimento seja o mais claro possível:

• Devemos nomear (renomear) alguns objetos que serão utilizados no código (macro).
• O(s) códigos(s) deve(m) ser(em) colocado(s) no(s) lugar(es) certo(s).

A figura ao lado destaca o Formulário, as Propriedades e o Código (Macro). 

O código foi colocado no evento 'CLick' do botão 'Executar'.


Como colocar o código num evento de um objeto qualquer: clicamos com o botão esquerdo do mouse (duplo clique).


No código apresentado a seguir, a parte destacada é responsável por aplicar as restrições ou período para extração dos dados.

    Do Until Plan1.Cells(lin, 1) = ""
        If Plan1.Cells(lin, 2) >= CDate(cdDataINI) And _
                Plan1.Cells(lin, 2) <= CDate(cdDataFIM) Then
            Plan1.Cells(linha, 6) = Plan1.Cells(lin, 1)
            Plan1.Cells(linha, 7) = CDate(Plan1.Cells(lin, 2))
            Plan1.Cells(linha, 8) = Plan1.Cells(lin, 3)
            linha = linha + 1
        End If
        lin = lin + 1
    Loop


Explicação:

• Se a data encontrada na célula 'Cells(lin, 2)' for Maior ou Igual (>=) a 'cdDataINI' ; e
• Se a data encontrada na célula 'Cells(lin, 2)' for Menor ou Igual (<=) a 'cdDataFIM' ; então:
• Executa as linhas de comando encontradas entre o 'If .... End If.

Neste artigo não estarei tratando de todos os pontos necessários para o perfeito funcionamento do exemplo. Isto será feito nos próximos artigos (tratamento de erros, formatações, entre outras coisas).

Download: Extrair Dados entre Datas - com Formulário

Não deixe de se increver em meu canal no YouTube:
    http://www.youtube.com/ivairferrari

Participe deste Site:
    Excel - ExcelMax® Soluções

IMPORTANTE: Deixe seu comentário. Compartilhe com seus amigos.


Até a próxima ...
Professor Ivair Claudio Ferrari