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

Pesquisar Registro


Bruno Jose Bariotti

Pergunta

Pessoal, bom dia

Estou com um problema na minha aplicação, segue:

No meu excel tenho uma sheet chamada parametros, nela tenho duas colunas, onde a coluna A é o nome do parametro e a coluna B é o valor do parametro.

Criei um metodo chamado BuscarParametro onde eu recebo o nome do parametro (coluna A) e devo retornoar o valor do parametro (coluna B).

O metodo procura na coluna A o valor que recebeu por parametro, encontrando ele pega o numero da linha e concatena com a coluna B para saber o valor do parâmetro. 

Minhas duvidas seria:
1 - Tem uma forma melhor e mais eficiente de fazer isso?
2 - No codigo do metodo, não retorna nada no metodo Find, mesmo existindo valor na planilha

Segue abaixo o metodo:

 

Public Function BuscarParametro(Parametro As String) As String

    Dim Resultado As Range
    Dim Posicao As String
    
    Set Resultado = Sheets("parametros").Range("A1:A9999").Find(Parametro, _
                    LookIn:=xlValues, _
                    LookAt:=xlPart, _
                    SearchOrder:=xlByRows)
                    
    If Resultado Is Nothing Then
        Exit Function
    End If
    
    Posicao = "B" & Resultado.Row
    
    BuscarParametro = Sheets("parametros").Range(Posicao)

End Function

 

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

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,7k
×
×
  • Criar Novo...