- 19 Jul 2018 às 23:59
#34985
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.
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.
