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

[Basole]

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