Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar e colar SEM ...
 
Notifications
Clear all

Copiar e colar SEM REPETIÇÃO

 
2024 - VBA & Macros
Post Recente por suggos 9 anos atrás
2 Posts
2 Usuários
0 Reactions
959 Visualizações
RSS
 Madi Land
(@madi-land)
Posts: 33
Eminent Member
Topic starter
 

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.

 
Postado : 26/10/2015 11:10 am
 suggos
(@suggos)
Posts: 111
Estimable Member
 

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.

 
Postado : 10/11/2015 8:11 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico