none
Próxima Linha RRS feed

  • Discussão Geral

  • Bom dia, tenho uma planilha em que eu insiro um código e ele busca determinada Informação de uma outra planilha.

    Por Exemplo: Insiro um código em "C5" e ele realiza a busca na Planilha2 e coloca o resultado na célula E5 .
    O problema é que eu só consigo buscar a partir dessas células pré determinadas, gostaria de fazer a busca inserido dados em diferentes linhas sem precisar alterar o código toda vez que precisar inserir em outra linha. 
    Desde já agradeço, qualquer ajuda é bem vinda!

    Segue o código abaixo:

    Sub Busca(BuscaME As String)
    
    Application.ScreenUpdating = False
        
       Plan6.Select
       Range("A2").Select
       BuscaME = UCase(BuscaME)
        
        Do While ActiveCell.Value <> ""
            If ActiveCell.Value = BuscaME Then
                descricao = ActiveCell.Offset(0, 1).Value
                
                Plan1.Select
                Range("C5").Value = BuscaME
                Range("E5").Value = descricao
                
                Application.ScreenUpdating = True
                Exit Sub
            
            End If
                
            ActiveCell.Offset(1, 0).Select
        Loop
            Application.ScreenUpdating = True
    End Sub
    



    quinta-feira, 14 de setembro de 2017 14:13

Todas as Respostas

  • O que eu poderia fazer é o seguinte:

    Sempre que você quiser que o valor daquela célula seja pesquisado, coloque antes do valor pesquisado um underline ou algum outro caracter. Aí eu percorro as células e se o valor da célula começar com underline, chamo o procedimento para fazer a pesquisa considerando aquele valor sem o underline. Isso serve para você?


    Anderson Diniz



    quinta-feira, 14 de setembro de 2017 15:45
  • Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Left(Range(Target.Address).Value, 1) = "_" Then
    Call Busca(Right(Range(Target.Address).Value, Len(Range(Target.Address).Value) - 1))
    
    End If
    
    End Sub


    Anderson Diniz

    quinta-feira, 14 de setembro de 2017 16:16