Página 1 de 1
Copiar de uma Sheet e colar em outra via VBA usando critéri
Enviado: 24 Jun 2019 às 18:35
por 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
Re: Copiar de uma Sheet e colar em outra via VBA usando cri
Enviado: 25 Jun 2019 às 09:02
por osvaldomp
kalebe escreveu:
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 todosSub FiltrarV2()
Range("A1:F830").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"H1:N2"), CopyToRange:=Sheets("Planilha1").Range("A1:F1"), Unique:=False
End Sub
Re: Copiar de uma Sheet e colar em outra via VBA usando cri
Enviado: 25 Jun 2019 às 10:43
por 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.
Re: Copiar de uma Sheet e colar em outra via VBA usando cri
Enviado: 25 Jun 2019 às 10:53
por 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.
Re: Copiar de uma Sheet e colar em outra via VBA usando cri
Enviado: 26 Jun 2019 às 07:40
por 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,
Re: Copiar de uma Sheet e colar em outra via VBA usando cri
Enviado: 26 Jun 2019 às 11:30
por osvaldomp
Nesse caso são necessários mais recursos além dos que comentei antes.
Veja no arquivo anexado.
Re: Copiar de uma Sheet e colar em outra via VBA usando cri
Enviado: 26 Jun 2019 às 15:41
por kalebe
Amigo, era isso mesmo que eu precisava, obrigado pela ajuda. Gratidão.