Página 1 de 1

Macro que copie um dado e o pesquise em outra planilha

Enviado: 19 Jul 2018 às 23:59
por FernandoAugusto
Boa noite pessoal, peço a ajuda de vocês pois enfrento este problema há mais de um ano e há pouco tempo vim descobrir o macro.

Eu trabalho com a montagem de planilhas a partir da filtragem de outras. Ou seja, na minha planilha eu tenho "nomes" que correspondem a informações numa base de dados, então a partir dela eu copio o nome1, entro na segunda, busco pelo nome1 e copio todos os dados referentes a ele e completo a minha planilha.
Os problemas eu enfrento quando vou programar é que quando eu mando buscar pelos "nomes", se eu copiei o "nome1" e pesquisei "nome1" durante a gravação, no meu VBA em vez de aparecer que eu pesquisei o item copiado, aparece para pesquisar o "nome1".

ex:
Selection.Copy
Sheets("PLANILHA REFERÊNCIA").Select
Cells.Find(What:="nome1").Activate
Range("A376").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Planilha Trabalho").Select
Range("C12").Select
ActiveSheet.Paste
Range("B13").Select


Eu ainda estou aprendendo a lidar com essa linguagem, mas ao meu ver, eu precisava de algo mais ou menos
"cells.find(what: = .paste).activate" mas sempre me aparece erro.

Por favor pessoal, peço ajuda nesta programação. Como disse, estou há mais de um ano lidando com essas situações e esse trabalho cansativo com planilhas de mais de 1500 linhas é o único processo que limita meus resultados.

Grato desde já pela atenção.

Macro que copie um dado e o pesquise em outra planilha

Enviado: 20 Jul 2018 às 08:11
por gfranco
Bom dia.
Sugiro postar um modelo de sua planilha (com dados fictícios mas mesma estrutura)
Poste um modelo em excel (não uma imagem) de preferencia com uma demonstração manual do resultado pretendido.
Para anexar o arquivo, clique em +Resposta e localize a opção abaixo da janela de digitação de mensagens.

Re: Macro que copie um dado e o pesquise em outra planilha

Enviado: 20 Jul 2018 às 16:33
por FernandoAugusto
Este aqui é um exemplo com alguns dados do meu último trabalho.