Página 1 de 1
Filtro Avançado com datas
Enviado: 11 Ago 2020 às 10:20
por 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.
Re: Filtro Avançado com datas
Enviado: 11 Ago 2020 às 12:20
por 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
Filtro Avançado com datas
Enviado: 12 Ago 2020 às 13:47
por CarlinhosW
a planilha até que esta OK, so que quando eu salvo ela fica dando erro, sabe oque pode ser ???
Re: Filtro Avançado com datas
Enviado: 13 Ago 2020 às 09:53
por 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
Re: Filtro Avançado com datas
Enviado: 13 Ago 2020 às 18:02
por osvaldomp
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