Este fórum está sendo desativado

[CarlinhosW]

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.

[Deciog]

CarlinhosW, Boa Tarde

Confere se é desta forma que desejas

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

Decio

[CarlinhosW]

a planilha até que esta OK, so que quando eu salvo ela fica dando erro, sabe oque pode ser ???

[Deciog]

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

[osvaldomp]

... 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 todos

Sub 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