Excel Puxar linha inteira através de um numero de referencia. EXCEL

[Gabriel Gallonetti]

Boa tarde, gostaria de saber se teria como eu importar dados de uma planilha para outra, através de um numero relacionado nas duas.

Ex. na planilha 1. teria o numero 01, e ao digitar o numero 01 na planilha 2, ele importaria TODA  a linha que se encontra o numero 01

[Patropi]

Boa tarde, @Gabriel Gallonetti

 

Pelo que entendi sim, mas para facilitar, anexe um arquivo Excel com poucos dados fictícios, digitando o resultado esperado.

 

[]s

[Basole]

@Gabriel Gallonetti

Boa noite, segue exemplo.

Ajuste ao seu cenário.

 

Sub procurarValorCopiarLinhaInteira()
 Dim rng As Range

With Sheets("Planilha1")
 ' Procura o valor na planilha2, que está na planilha1 (na celula A1)
Set rng = Sheets("Planilha2").Cells.Find(.Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
          If Not rng Is Nothing Then
             rng.EntireRow.Copy Destination:=.Range("A9") 'copia a linha inteira e cola na celula A9 da Planilha1
          End If
End With
End Sub

 

[Gabriel Gallonetti]

 

Bom dia, eu gostaria de saber se teria como ele ir pesquisando e colocando nas linhas em que se encontram os números, e para eu alterar o valor solicitado seria com o código assim?

 

Porque quando eu ativo esse comando ele só busca o número 1 e joga ele na linha 9, teria como ele jogar na linha certa em que o numero correspondente está?

 

 

 

[Basole]

Veja se é isso: ...

 

Sub procurarValorCopiarLinhaInteira()
 Dim rng As Range
 Dim r   As Range
 
With Sheets("Planilha2")
For Each r In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
'   Procura o valor na planilha1, (valor)que está na planilha2 (na Coluna A)
Set rng = Sheets("Planilha1").Columns("A").Find(.Range("A" & r.Row).Value, _
                                           LookIn:=xlValues, lookat:=xlWhole)
          If Not rng Is Nothing Then
             'copia a linha inteira e cola na celula respectiva linha da Planilha2
              rng.EntireRow.Copy Destination:=.Range("A" & r.Row)
          End If
Next r
End With
End Sub