Jump to content
Fórum Script Brasil
  • 0

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


Question

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.

Duvida.png

Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

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

 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148691
    • Total Posts
      644531
×
×
  • Create New...