Como criar Macro que selecione células de acordo com uma condição?

Olá amigos,

hoje eu irei mostrar como criar uma macro que selecione células de um intervalo de acordo com as condições inseridas.

Para iniciar, segue abaixo o exemplo a ser utilizado em nosso estudo. Trata-se de uma planilha simples, onde  na área informar data será fornecido a data que deseja ser filtrada, e o botão selecionar, que irá filtrar de acordo com a condição inserida em Informar Data.

Figura 1

Agora Selecione o intervalo de dados a ser filtrado e clique na guia inserir -> Tabelas -> Tabela. Em seguida  clique em OK.

Agora vá na guia Fórmulas-> Nomes Definidos-> Gerenciador de Nomes e altere o nome da Tabela para "Tabela_Data"

O próximo passo é entrar no editor de macro (tecle Alt+F11) e entre com o seguinte código:


Sub Selecionar()
    Dim Data As Date
    Dim Data_String As String
    Data = Cells(2, 3).Value            ' Seleciona a data preenchida no <Informar Data>

'O formato de data no VBA é MM/DD/AAAA, por isso será inserido o código abaixo.

    Data_String = Month(Data) & "/" & Day(Data) & "/" & Year(Data) 

    ActiveSheet.ListObjects("Tabela_Data").Range.AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(2, Data_String)
End Sub

Para finalizar, clique com o botão direito do mouse sobre o retângulo Selecionar e selecione Atribuir Macro:

Em seguida marque a macro selecionar e clique em OK.

Pronto, agora é só digitar a data desejada e clicar em selecionar.

Criando Gráficos de Pareto com o Microsoft Excel 2013.

A Lei de Pareto (também conhecido como princípio 80-20), afirma que para muitos fenômenos, 80% das consequências advêm de 20% das causas. Abaixo segue alguns exemplos de constatação ou aplicação da lei:

• Uma livraria não pode ter todos os títulos do mercado, portanto ela aplica a regra de pareto e foca em 20% dos títulos que geram 80% da receita;
• A maioria dos acidentes de carro ocorre em um número relativamente pequeno de cruzamentos, na faixa da esquerda em determinada hora do dia;
• A maioria dos acidentes ocorre com jovens;
• Cerca de 20% dos problemas em um processo são responsáveis por 80% do tempo perdido.

A regra de Pareto, portanto, é muito importante para resolver a maior parte dos problemas com o menor esforço, e o gráfico de Pareto (utilizado no método Seis Sigma para identificar as causas raiz de um determinado problema) é a ferramenta utilizada para encontrar os 80% das consequências.

Com o passo-a-passo abaixo, será possível criar o gráfico de Pareto em minutos no Excel 2013.

Passo 1: Organizar os dados coletados no formato de tabela

A primeira etapa seria organizar os dados em uma tabela similar a mostrada abaixo na Figura 1.

Figura 1

Perceba que, no exemplo acima, para cada página destacada, tem-se o cálculo do percentual para aquela página e do percentual acumulado.


Passo 2: Criar o Gráfico Base

Selecione os dados das colunas Página, Visitas e Percentual Cumulativo, conforme mostrado na Figura 2

Figura 2

Agora vá na guia Inserir, depois em Gráficos -> Colunas 2D -> Colunas Agrupadas.

Figura 3

Passo 3: Criando um Gráfico de Pareto Básico

Agora que geramos o nosso gráfico básico, é hora de fazê-lo parecer como um gráfico de Pareto. Para fazer isso, clique com o botão direito do mouse em qualquer uma das barras do gráfico e selecione Alterar Tipo de Gráfico, conforme mostrado na Figura 4.

Figura 4

Agora vá para o tipo de gráfico Combinação e altere o tipo de gráfico da série 2 para Linhas e marque a opção Eixo Secundário, conforme mostrado na Figura 5.

Figura 5

Isto finaliza a criação do gráfico de Pareto (Figura 6).

Figura 6

A Figura 7 mostra o mesmo gráfico com as perfumarias.

Figura 7

Segue o link Para a Planilha Excel com o Gráfico de Pareto.

Contar Nomes em Uma Lista

           Se você possui uma lista muito extensa, por exemplo com 10 mil nomes, e deseja contar quantas vezes um determinado nome aparece nela, basta utilizar a função CONT.SE. Veja a figura 1 abaixo:

Figura 1

           A lista em questão está na segunda coluna, nas células de B9 a B16. Na célula D5 será inserido o nome do colaborador, e na célula B6 será exibido a quantidade de filmes cobrados por aquela pessoa.

Clique na célula B6 e insira a seguinte fórmula:

"=CONT.SE(B9:B16;D5)"

Figura 2

Pronto. Agora basta inserir o nome desejado na célula D5 e a quantidade de filmes comprados por aquela pessoa será exibida na célula D6.

Figura 3

Link para a planilha usada no artigo.