Excel Filtrar duas Guias Diferentes em uma única - para fazer uma comparação

[LeoSWK]

Olá,

Queria saber se tem como fazer um Filtro de duas Guias diferentes, colocar uma ao lado da outra em uma terceira guia para fazer uma comparaçao.

Em uma guia eu tenho as vendas de 2019 e na outra guia tenho as vendas de 2020.

Queria fazer uma comparação usando um filtro pra que não precise mudar de guia toda vez que eu for procurar um cliente.

Segue em anexo a planilha e um exemplo como eu queria fazer.

Filtro.xlsx

[Muca Costa]

Veja se o anexo lhe ajuda.

No exemplo o filtro é feito com informações disponíveis em I2 a O2

FiltroAvançado-005.rar

[LeoSWK]

@Muca Costa Bom dia, na questão de aparecer os valores das duas guias na terceira guia ficou legal, porém achei um pouco complicado na questão de ter que olhar cliente por cliente e ir colocando e depois filtrar, esse exemplo que mostrei é de 120 linhas o que eu tenho é 45 mil linhas, ai fica um pouco difícil, eu não sei se da pra fazer daquele jeito tambem, tenho muita pouca experiencia com excel. 

[Muca Costa]

Veja a nova versão. O filtro é feito via lista na linha 3 ...

FiltroAvançado-005.rar

[LeoSWK]

@Muca Costa Boa tarde,

Ficou melhor sim essa nova versão, só faltava diminuir o filtro do cliente, porque quando vamso filtrar aparece 10x o nome do cliente, claro que são produtos diferentes para cada nome, só que a minha planilha tem 45 mil linhas ai fica meio complicado ainda pra filtrar o cliente, porque vai ter cliente que vai ter 50 produtos diferentes...

[AfonsoMira]

@LeoSWK Boas veja se assim lhe ajuda quanto ao filtro de cliente

FiltroAvançado-005.zip

[LeoSWK]

@InforMira Bom dia, ficou bem melhor sim, você poderia aplicar essa mesma formula na outra guia, eu não sei como fazer hehe, e outra coisa quando eu for colar mais valores em baixo eu preciso alterar algum código?

[AfonsoMira]

@LeoSWK Boas eu utilizei a função ÚNICO, a função ÚNICO retorna uma lista de valores exclusivos em uma lista ou um intervalo.
Aqui no seu caso eu adicionei a fórmula 

=ÚNICO(A5:A1048576)

Na célula H6

Isto faz com que ele liste uma lista com os valores apenas uma vez.

Depois adicionei uma lista suspensa e no range escolhi de H6 até H1048576.

Ps. Se adicionar um novo nome não precissa alterar a fórmula, pois ela já vai ler até à célula A1048576.
Em anexo ficheiro como pediu.

FiltroAvançado-005.zip

[LeoSWK]

@InforMira Coloquei os Valores na Guia e aparece o erro  e outra coisa precisei remover a coluna "UND" , poderia me ajudar novamente 

FiltroAvançado-005.rar

[AfonsoMira]

@LeoSWK Veja agora se está correto?
O que fiz foi remover a lista suspensa e adicionar novamente, o erro #NOME? saiu.

 

 

FiltroAvançado-005.zip

[LeoSWK]

@InforMira Na guia 1-5-20 à 9-2-21 , quando faço o filtro não aparece o nome do Cliente.

[AfonsoMira]

@LeoSWK Veja assim. E peço desculpas pelos erros.

FiltroAvançado-005.zip

[LeoSWK]

@InforMira Capaz, você já esta fazendo um favor em ajudar, era isso mesmo fico muito grato pela ajuda.

Não querendo abusar da sua boa vontade queria pedir mais um favor, se teria como na hora que for selecionar o Cliente pudesse selecionar mais de um, eu acabei esquecendo de acrescentar esse detalhe, pois tem alguns membros que são da mesma família...

E outra coisa, na guia FILTRO AVANÇADO se pudesse colocar um filtro pra poder selecionar o Produto ou Classe, desculpe não ter passado essas informações antes. 

 

FiltroAvançado-005.rar

[LeoSWK]

20 horas atrás, LeoSWK disse:

@InforMira Capaz, você já esta fazendo um favor em ajudar, era isso mesmo fico muito grato pela ajuda.

Não querendo abusar da sua boa vontade queria pedir mais um favor, se teria como na hora que for selecionar o Cliente pudesse selecionar mais de um, eu acabei esquecendo de acrescentar esse detalhe, pois tem alguns membros que são da mesma família...

E outra coisa, na guia FILTRO AVANÇADO se pudesse colocar um filtro pra poder selecionar o Produto ou Classe, desculpe não ter passado essas informações antes. 

 

FiltroAvançado-005.rar 92 kB · 4 downloads

Bom dia pessoal, poderia me ajudar a finalizar esse projeto pro favor 

[AfonsoMira]

20 horas atrás, LeoSWK disse:

pudesse selecionar mais de um

Onde voce queria colocar essa lista suspesa?

20 horas atrás, LeoSWK disse:

E outra coisa, na guia FILTRO AVANÇADO se pudesse colocar um filtro pra poder selecionar o Produto ou Classe, desculpe não ter passado essas informações antes. 

Em que célula quer colocar isso?

[LeoSWK]

@InforMira Nas guias 1-5-19 à 30-4-20 e 1-5-20 à 9-2-21, na Linha A3 onde seleciona o cliente para filtrar, queria poder filtrar mais de um cliente, pois tem alguns membros que são da mesma família ai pra fazer a comparação eu preciso de todos os membros,

 

E na guia Filtro Avançado, após eu selecionar os Clientes e Filtrar nas Guias 1-5-19 à 30-4-20 e 1-5-20 à 9-2-21, temos os resultados na Guia filtro avançado.

Então, eu queria fazer mais um Filtro agora na Guai Filtro Avançado nas colunas 

para que eu possa otimizar minhas pesquisa e selecionar por classe , produto..

 

E quando eu adiciono novos dados na guias 1-5-19 à 30-4-20 e 1-5-20 à 9-2-21, volta aquele erro de antes #NOME

[Edson Luiz Branco]

Em 11/02/2021 às 10:06, LeoSWK disse:

 Coloquei os Valores na Guia e aparece o erro 

 

Só uma observação: a função ÚNICO só está disponível à partir do Office 365. Se seu Office for de versões anteriores o erro #NOME? aparecerá na primeira atualização que as células sofrerem.

[AfonsoMira]

@Edson Luiz Branco Não sabia desse pormenor. Obrigado! Estamos sempre a aprender

Vou ter mais em atenção se certa fórmula funciona em versões mais antigas.

 

[AfonsoMira]

5 horas atrás, LeoSWK disse:

Nas guias 1-5-19 à 30-4-20 e 1-5-20 à 9-2-21, na Linha A3 onde seleciona o cliente para filtrar, queria poder filtrar mais de um cliente, pois tem alguns membros que são da mesma família ai pra fazer a comparação eu preciso de todos os membros

Mas na célula A3 só tem espaço para um nome. Vai ter que adicionar outra lista suspensa em uma nova célula.

5 horas atrás, LeoSWK disse:

eu queria fazer mais um Filtro agora na Guai Filtro Avançado nas colunas 

Em que célula deseja inserir as listas suspensas?

[LeoSWK]

@InforMira 

10 minutos atrás, InforMira disse:

Mas na célula A3 só tem espaço para um nome. Vai ter que adicionar outra lista suspensa em uma nova célula.

Se essa é a unica forma, pois tem alguns grupos familiares que são maiores que  5 pessoas, ai eu não consigo fazer uma comparação sem ter todos os membros, pois meu intuito é comparar suas vendas do ano passado com esse ano.

 

 

 

Em que célula deseja inserir as listas suspensas?

Na aguia Filtro Avançado, nas colunas : Produto:Classe:Principio Ativo

[Muca Costa]

A lista pode ser feita via macro, por exemplo para lista de clientes:

Sub ListaCliente()
    Dim rCell As Range
    Dim rRange As Range
    Dim Lista As String
    
    Set rRange = Range("A5:A" & WorksheetFunction.CountA(Range("A:A")))
    For Each rCell In rRange
        If WorksheetFunction.CountIf(Range("A5:A" & rCell.Row), rCell.Value) = 1 Then
            Lista = Lista & rCell.Value & ","
        End If
    Next rCell
        Range("A3").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Lista
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Porém percebe-se que alguns registros possuem espaços extras, assim antes da sub anterior seria necessário ajustar:

Sub RetiraEspaço()
'Excluirá espaços extras de AMBOS OS LADOS.
    Dim MyCell As Range
    On Error Resume Next
        Selection.Cells.SpecialCells(xlCellTypeConstants, 23).Select
        For Each MyCell In Selection.Cells
            MyCell.Value = Trim(MyCell.Value)
        Next
    On Error GoTo 0
End Sub

 

[LeoSWK]

@Muca Costa Olá, desculpe minha falta de conhecimento, como eu aplico(uso) essas macros.

[Muca Costa]

Para incluir as macros:
Abra o editor VBA (Alt + F11)
Copie/Cole as macros

 

Para executar as macros:
Exibir/Macros/RetiraEspaço
Exibir/Macros/ListaCliente
Pode ser também através de um botão...

[LeoSWK]

@Muca Costa Consegui Executar, funcionou perfeitamente.

Consegue acrescenta nesse código umas alterações, eu precisava selecionar mais de um nome na Coluna A3, das guias 1-5-19 à 30-4-20 e 1-5-20 à 9-2-21,

e na aba filtro avançado, eu conseguisse fazer mais alguns filtros nas colunas  para que eu possa comparar as classes e produtos separados...

40 minutos atrás, Muca Costa disse:

Para incluir as macros:
Abra o editor VBA (Alt + F11)
Copie/Cole as macros

 

Para executar as macros:
Exibir/Macros/RetiraEspaço
Exibir/Macros/ListaCliente
Pode ser também através de um botão...

Deposi que fiz as alterações e salvei o arquivo, quando vou reabrir aparece um erro, 

[Muca Costa]

Verdade LeoSWK, agora que testei a macro e, realmente, dá esse erro...

Vou verificar...

Enquanto isso espero que você tenha ajuda dos mestres do Fórum.