Pesquisar um determinado conteudo de uma celular e copiá-lo para outra planilha

[Anderson de Souza]

Boa tarde senhores, estou precisando de um apoio dos senhores. Preciso pesquisar um determinado conteúdo de uma célula, caso seja encontrado, o conteúdo que estiver a sua direita deverá ser copiado para uma outra planilha. Preciso fazer em vba e fazer rodar dentro da macro. Desde já agradeço o apoio dos senhores.

[Alyson Ronnan Martins]

Teria como demotrar essa sua ideia?

Tipo descrever o que o procedimento que da sim para fazer.

Você disse mover a celula... essa celula é fixa. Se não tem um critério?

 

[Anderson de Souza]

Te enviei um email, espero que possa me ajudar.

[Alyson Ronnan Martins]

Link: PesquisaSimples - Google Drive

Code:

Dim ulcp As Long 'Ultima linha da coluna pesquisada
Dim ulrd As Long 'Ultima Linha receber dados
Dim lips As Long 'Linha inícial pesquisa
Dim x As Long

Dim txtPes As String 'Texto Pesquisado
Dim txtAtu As String 'Texto na linha atual

ulcp = Sheets("Dados").Cells(Rows.Count, "A").End(xlUp).Row
ulrd = Sheets("ReceberDados").Cells(Rows.Count, "C").End(xlUp).Row + 1
lips = 4

txtPes = Sheets("Dados").Cells(1, "B").Value


'Loop olhando todas as linhas para encontrar a informação
For x = lips To ulcp Step 1
    txtAtu = Sheets("Dados").Cells(x, "A").Value
    
    If txtAtu = txtPes Then ' Se for igual
        Sheets("ReceberDados").Cells(ulrd, "C").Value = Sheets("Dados").Cells(x, "B").Value 'Lançar informação
        ulrd = Sheets("ReceberDados").Cells(Rows.Count, "C").End(xlUp).Row + 1 'Atualizar informação
    End If
    
Next x