Excel Localizar valores e copiar pra outra planilha

[janiosba]

Prezados,

Parte do código que estou usando abaixo é usado para comparar se na coluna "S" da Planilha chamada "Transpor" 

tem valores iguais a célula "A2" da planilha "Extrair". Logo a seguir copia estes valores para a Planilha "Extrair"

Gostaria de incrementar este código para comparar não só com a célula "A2" e sim com os valores que

estivessem nas células "A2;B2;C2;D2;E2". Caso encontre valores iguais, fazer a copia para a outra planilha chamada

"Extrair"

 

Em tempo. Esta pesquisa pode ser efetuada nas colunas, além da "S", nas colunas "V" e "Z" da planilha chamada "Transpor".

 

With Sheets("transpor")
    For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      If .Range("S" & i) = Sheets("EXTRAIR").Range("A2") Then
        
          Sheets("EXTRAIR").Range("A" & j) = .Range("A" & i)
          Sheets("EXTRAIR").Range("B" & j) = .Range("B" & i)
          Sheets("EXTRAIR").Range("c" & j) = .Range("s" & i)
          Sheets("EXTRAIR").Range("d" & j) = .Range("R" & i)
          Sheets("EXTRAIR").Range("e" & j) = .Range("T" & i)
           j = j + 1
           
         End If
        Next i

Agradeço.

Obs.: o código acima foi extraído da internet. 

[Visitante]

Sugestão - aplique solução via Filtro Avançado, grave uma macro e depois coloque-a aqui se precisar de algum ajuste.

[janiosba]

1 hora atrás, osvaldomp disse:

Sugestão - aplique solução via Filtro Avançado, grave uma macro e depois coloque-a aqui se precisar de algum 

Osvaldo

 

O que faço hoje é repetir este código lá no script do vba. Confesso que acho meio ridiculo. Por isso gostaria de melhorar a sua aplicação. Não uso muito o filtro avançado. Creio que pode ser uma solução. Ainda, se alguém puder melhorar este código, agradeço. 

 

Janio

[janiosba]

Boa noite a todos,

 

Estou terminando este trabalho e realmente preciso melhorar este procedimento.

Se alguém tem maior conhecimento e poder me ajudar.

 

Grato 

 

Janio