Página 1 de 1
Encontrar e copiar ao lado - ajuda!
Enviado: 17 Fev 2019 às 10:36
por davispi
Bom dia gente,
Precisava de uma macro que encontrasse o texto "X" na coluna A e copiasse o valores da mesma linha da coluna D e J para a planilha "CONSOLIDADOS", se alguém puder me ajudar agradeço.
Att.
Re: Encontrar e copiar ao lado - ajuda!
Enviado: 17 Fev 2019 às 11:15
por osvaldomp
1. aplique Auto Filtro na coluna A com critério "X"
2. copie as colunas D e J e cole na outra planilha
Se essa for uma tarefa repetitiva grave uma macro.
Encontrar e copiar ao lado - ajuda!
Enviado: 17 Fev 2019 às 12:11
por davispi
Boa Tarde,
Não da para filtrar pq algumas celular estão mescladas por esse motivo que preciso de um código em VBA
Re: Encontrar e copiar ao lado - ajuda!
Enviado: 17 Fev 2019 às 12:31
por osvaldomp
Células mescladas são desnecessárias, inúteis e podem provocar erros em fórmulas e em macros, além de impedir você de filtrar, com base no seu comentário.
Isto posto, porque mesclar células
Re: Encontrar e copiar ao lado - ajuda!
Enviado: 17 Fev 2019 às 12:47
por davispi
Aqui esta o anexo dela, talvez vendo você entenda, preciso que encontre o valor x da coluna A logo em seguida copie os valores da coluna D e I (desculpe coloquei errado antes) e cole na planilha consolidado nas colunas A e B
Re: Encontrar e copiar ao lado - ajuda!
Enviado: 17 Fev 2019 às 13:12
por osvaldomp
Código: Selecionar todosSub ReplicaDados()
Application.ScreenUpdating = False
Range("A11:I" & Cells(Rows.Count, 1).End(3).Row).AutoFilter 1, "X"
Range("D12:D" & Cells(Rows.Count, 1).End(3).Row).Copy Sheets("Consolidados").Cells(Rows.Count, 1).End(3)(2)
Range("I12:I" & Cells(Rows.Count, 1).End(3).Row).Copy Sheets("Consolidados").Cells(Rows.Count, 2).End(3)(2)
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
obs. é possível sim filtrar manualmente a sua planilha:
1. selecione A11:I11 mantenha Shift pressionada e aperte Page Down até selecionar a tabela inteira (até a linha 94)
2. menu Dados / Filtro
Encontrar e copiar ao lado - ajuda!
Enviado: 17 Fev 2019 às 14:22
por davispi
Boa Tarde, não deu certo ele não copiou as células para a planilha consolidados
Re: Encontrar e copiar ao lado - ajuda!
Enviado: 17 Fev 2019 às 14:49
por osvaldomp
Aqui funciona de boa
