Estou com um problema na minha aplicação, segue:
No meu excel tenho uma sheet chamada parâmetros, nela tenho duas colunas, onde a coluna A é o nome do parâmetro e a coluna B é o valor do parâmetro.
Criei um método chamado BuscarParametro
onde eu recebo o nome do parâmetro (coluna A) e devo retornar o valor do parâmetro (coluna B).
O método procura na coluna A o valor que recebeu por parâmetro, encontrando ele pega o numero da linha e concatena com a coluna B para saber o valor do parâmetro.
Minhas duvidas seria:
Tem uma forma melhor e mais eficiente de fazer isso?
No código do método, não retorna nada no método
Find
, mesmo existindo valor na planilha
Segue abaixo o método:
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