Boa tarde, tudo bem?!
O QUE PRECISO FAZER:
Preciso clicar em um botão (que está na planilha "TABELAS").
O QUE ESTE BOTÃO DEVERÁ FAZER:
Ao clicar neste botão, deverá listar, a partir da célula ("C8") na planilha "TABELAS", todos os fornecedores que se encontram dentro do período indicado na planilha "TABELAS", da planilha "ENTRADAS", SEM REPETIR O NOME DOS FORNECEDORES.
OBSERVAÇÃO: Isto deverá ser feito apenas para a empresa correspondente na planilha "TABELAS" (célula H2).
VENDO O ARQUIVO ACREDITO QUE FIQUE BEM FÁCIL DE ENTENDER.
Já estipulei um período e o nome da empresa para testar o botão.
Em anexo, encaminho o arquivo e uma imagem do resultado que preciso ter para o exemplo em anexo.
Desde já, agradeço.
Atribua a macro abaixo ao botão da aba TABELAS e veja se atende.
Sub filtrar()
Range("C7", Range("C7").End(xlDown)).ClearContents
Sheets("ENTRADAS").Select
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Range("C6", Range("C6").End(xlToRight).End(xlDown)).Select
Selection.AutoFilter Field:=1, Criteria1:=Sheets("TABELAS").Range("H2")
Selection.AutoFilter Field:=2, Criteria1:=">=" & Format(Sheets("TABELAS").Range("E2"), "mm/dd/yyyy"), _
Operator:=xlAnd, Criteria2:="<=" & Format(Sheets("TABELAS").Range("E3"), "mm/dd/yyyy")
Range("E6", Range("E6").End(xlDown)).Copy
Sheets("TABELAS").Select
Range("C7").PasteSpecial
Range("C7", Range("C7").End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
Não se esqueça de marcar o tópico como resolvido se a resposta for satisfatória.