Este fórum está sendo desativado

[kalebe]

Boa tarde amigos, solicito ajuda.

1º) Preciso copiar dados de uma Sheet (plan1) e colar em outra (planilha1) via VBA usando critérios.
2º) Os critérios utilizados estarão em H1:M3


O que acontece é que estou testando o código no mesmo local (plan1) e funciona quando utilizo os critérios de H1:M2, porém quando tendo usar H1:M3 não funciona. (PRECISO QUE SEJA EM DUAS SHEETS DIFERENTES)

E Porque usar H1:H2? simplesmente quero filtrar por um ou mais critérios, por exemplo uma data entre 10/01/2019 a 30/01/2019 ou entre dois nomes diferentes

[osvaldomp]

1º) Preciso copiar dados de uma Sheet (plan1) e colar em outra (planilha1) via VBA usando critérios.
1. copie A1:F1 da Plan1 e cole em A1 da Planilha1
2. altere de Range("H5:M5") para Sheets("Planilha1").Range("A1:F1") ~~~> já alterei no código abaixo

... quero filtrar por um ou mais critérios, por exemplo uma data entre 10/01/2019 a 30/01/2019
Na Plan1:
3. copie de M1 e cole em N1
4. coloque as datas em P2:Q2, por exemplo P2 = 23/01/2010 e Q2 = 01/07/2010
5. em M2 ~~~> =">="&P2 e em N2 ~~~> ="<="&Q2
6. mantenha "Ana" em H2

Após efetuar as alterações acima rode o código abaixo.

Código: Selecionar todos

Sub FiltrarV2()
 Range("A1:F830").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
  "H1:N2"), CopyToRange:=Sheets("Planilha1").Range("A1:F1"), Unique:=False
End Sub

[kalebe]

osvaldomp, grato pelo seu retorno a minha solicitação. Porém deve ter alguma coisa que deixei de fazer pois não funcionou ainda.

Segue em anexo o que eu fiz, baseado no que eu entendi das tuas orientações.

[osvaldomp]

Desculpe, os meus comentários é que não foram precisos.

O único item a ser aplicado na Planilha1 é o item 1.

Os itens 3 a 6 devem ser aplicados na Plan1, inclusive mantenha nessa planilha o botão que dispara a macro.

Editei o post anterior e acrescentei Na Plan1: antes do item 3.

[kalebe]

osvaldomp, obrigado pela ajuda. Foi de grande utilidade e muito útil. Funcionou.

Se não for querer demais do amigo, a unica coisa que preciso é que ao invés dos critérios terem que ser escolhidos na sheet contendo os dados á serem transferidos eu gostaria que o usuário escolhe-se os mesmos na propria planilha1, ou seja, sem que ele tenha que entrar la nos dados e digitar os critérios mas sim direto na folha que ele vai fazer a pesquisa.

Desde já obrigado ao amigo,

[osvaldomp]

Nesse caso são necessários mais recursos além dos que comentei antes.

Veja no arquivo anexado.

[kalebe]

Amigo, era isso mesmo que eu precisava, obrigado pela ajuda. Gratidão.