Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

A área de Remoção de Malwares está aberta na Comunidade BABOO. LEIA AQUI

Ir para conteúdo
carolfranca10

Macro copiar e colar com condição

Mensagem Recomendada

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Preciso criar uma macro onde eu pegue informações de uma base com condições de data , categoria e coloque em outra planilha

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...