Ir para conteúdo
Fórum Script Brasil
  • 0

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


Anderson de Souza

Pergunta

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 para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...