Notifications
Clear all

[Resolvido] Macro Para copiar linhas por critério

5 Posts
2 Usuários
1 Reactions
1,225 Visualizações
(@Anônimo)
Posts: 0
Topic starter
 

Boa Tarde!

Se Possível, Em função da célula “H7” existente na planilha “Inserir Pendencia NC”, que sejam replicados os valores das colunas: “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “V”, “W”; sempre correlacionadas a coluna "A" existente na planilha “Registro Pendencia NC”.

Ressalva: Na planilha em anexo tem maiores detalhes.

Desde já Agradeço

 
 
Postado : 07/12/2021 3:31 pm
Tags do Tópico
(@televisaos)
Posts: 49
Eminent Member
 

Boa tarde @camiloalves01,

Creio que a função PROCV resolva o seu problema sem necessidade de programação VBA. Se não conseguir avise que tentamos uma macro.

Att.

Este post foi modificado 3 anos atrás por Televisaos
 
Postado : 07/12/2021 4:06 pm
(@Anônimo)
Posts: 0
Topic starter
 

@televisaos

Bom Dia!

Primeiramente Obrigado Por Dispor de Seu Tempo Para Ajudar-me.

Então...

A ProcV neste caso Não atende a essa demanda, note que os dados deverão ser replicados na planilha “Registro Pendencia NC”  em função da célula “H7” após clique no botão “Atualizar” ambos existentes na planilha “Inserir Pendencia NC”.

Creio que só seja possível mesmo com a utilização de uma Macro.

Caso Seja possível viabilizar via Macro, conto com sua ajuda para encontrar a solução.

OBS: Na planilha “Registro Pendencia NC” explico melhor o processo.

Desde já Agradeço

 
Postado : 08/12/2021 8:30 am
(@televisaos)
Posts: 49
Eminent Member
 

Olá @camiloalves01,

Veja se este trecho de código te atende:

With Worksheets("Registro Pendencia NC")
    .Range("A7:A500").Find(Worksheets("Inserir Pendencia NC").Range("H7").Value).Select 'Busca o valor inserido na coluna A da planilha "Inserir Pendencia NC"
    .Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row, Selection.Column + 11)).Copy 'Copia o intervalo solicitado
    .Range("A7").End(xlDown).Offset(1).PasteSpecial 'Cola o intervalo copiado na primeira linha em branco no final da tabela
End With

Att

 
Postado : 08/12/2021 12:26 pm
(@Anônimo)
Posts: 0
Topic starter
 

@televisaos Boa Tarde, Funcionou. Obrigado.

 
Postado : 08/12/2021 3:35 pm