Este fórum está sendo desativado

[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.

[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.

[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

[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

[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

[osvaldomp]

Código: Selecionar todos

Sub 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

[davispi]

Boa Tarde, não deu certo ele não copiou as células para a planilha consolidados

[osvaldomp]

Aqui funciona de boa