Excel Macro copiar e colar com condição

[carolfranca10]

Bom dia pessoal.

Gostaria de uma macro em que se na aba "pesquisa" estiver a ID "4" (célula A2) copiasse os valores das células B2 a Y2 e colasse na aba "Planilha5" na linha em que a ID (coluna A) fosse a 4. Se na aba "pesquisa" estiver a ID "5" (célula A2) copiasse os valores das células B2 a Y2 e colasse na aba "Planilha5" na linha em que a ID (coluna A) fosse a 5 e assim por diante. Qual a função que posso utilizar?

Segue a planilha em anexo.

forum.xlsx

[Visitante]

Experimente:

Sub ReplicaRegistros()
 Dim c As Range, r As Long
  With Sheets("pesquisa")
   For r = 2 To .Cells(Rows.Count, 1).End(3).Row
    Set c = Sheets("Planilha5").[A:A].Find(.Cells(r, 1), lookat:=xlWhole)
    If Not c Is Nothing Then
     Sheets("Planilha5").Cells(c.Row, 2).Resize(, 24).Value = .Cells(r, 2).Resize(, 24).Value
    End If
   Next r
  End With
 On Error Resume Next
 Set c = Sheets("Planilha5").[A:A].Find(Sheets("pesquisa").Cells(r, 1), lookat:=xlPart)
End Sub

 

[carolfranca10]

Deu certinho! Muito obrigada!!