Dúvidas sobre cálculos, funções simples e aninhadas, fórmulas matriciais, etc.
Por CarlinhosW 11 Ago 2020 às 10:20
Membro Novato
Mensagens: 13
Reputação: 1
#57836
Bom dia a todos, não estou conseguindo fazer um filtro avançado para pesquisar por datas os itens do banco de dados. Se alguém puder me ajudar fico muito grato. E como posso fazer com macro ?? estou deixando um exemplo em anexo.
Apenas usuários registrados podem ver ou baixar anexos.
Avatar do usuário
Por Deciog 11 Ago 2020 às 12:20
Membro 5 Estrelas
Mensagens: 1547
Reputação: 822
#57845
CarlinhosW, Boa Tarde

Confere se é desta forma que desejas

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio
Apenas usuários registrados podem ver ou baixar anexos.
Avatar do usuário
Por Deciog 13 Ago 2020 às 09:53
Membro 5 Estrelas
Mensagens: 1547
Reputação: 822
#57888
CarlinhosW , Bom Dia.

Provavelmente sua versão do Excel é antiga então para a versão Excel antes de 2019, feche com CTRL + SHIFT + ENTER

Notei que não agradeceu a tentativa de ajuda

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio
Por osvaldomp 13 Ago 2020 às 18:02
Excel Expert
Mensagens: 1836
Reputação: 922
#57903
CarlinhosW escreveu: ... não estou conseguindo fazer um filtro avançado ...
1. ative a Plan2
2. menu Dados / Classificar e Filtrar / Avançado
3. limpe a caixa Intervalo da lista e mantenha o cursor nela / ative a Plan1 e selecione A1:F8
4. clique na caixa Intervalo de critérios (o Excel irá ativar a Plan2), limpe e mantenha o cursor nela / selecione D1:I2
5. marque a opção Copiar para outro local
6. limpe a caixa Copiar para / selecione D4:I4 / OK


... E como posso fazer com macro ??
Experimente o código abaixo.
Funcionará também se a quantidade de linhas da tabela da Plan1 for reduzida ou se for aumentada




Código: Selecionar todosSub FiltroAvançado()
 Sheets("Plan1").Range("A1:F" & Sheets("Plan1").Cells(Rows.Count, 1).End(3).Row).AdvancedFilter Action:=xlFilterCopy, _
  CriteriaRange:=Sheets("Plan2").Range("D1:I2"), CopyToRange:=Range("Plan2!D4:I4"), Unique:=False
End Sub