Araujo, o White tem razão quando diz :
mas pude notar que o procv que você faz é buscando pelo código contratantes que está na coluna C e a matriz do VLookup começa em A2 ("A2:I100"). Não seria ("C2:I100")?
A função PROCV retorna os Valores a Direita, e como você está procurando o respectivo a esquerda do valor procurado na Coluna C, desta forma não tem como retornar o Valor constante na Coluna B
Se alterar o Range para ("C2:I100"), não terá o valor de B:B, pode-se até ajustar a Function VLookup para buscar valores a esquerda, mas se aceitar uma sugestão, eu utilizaria a Function que disponibilizei no Forum para efetuar qq tipo de pesquisa, e é até mais simples de adaptar às nossas necessidades.
Ajustei a função e acordo com seu modelo, faça os testes com a mesma em seu arquivo e veja se surti o resultado esperado, se achar que não é isto, mais pra frente ajustarei a função PROCV para a situação que quer.
Na Declaração do Formulário, logo abaixo da linha :
Private Const NomePlanRelatorio As String = "Relatorio"
'Declare esta Variável
Dim sCel
Em seu ComboBox "CbContratante1", de dois cliques, e, altere para :
Private Sub CbContratante1_Change()
Dim sbContratante1 As String
sContratante1 = CbContratante1.Value
sVal = ProcuraRefId(sContratante1)
TxtContrato = sCel
End Sub
Neste mesmo Modulo coloque a função abaixo :
Public Function ProcuraRefId(ByVal RefId As String) As String
Dim iLin As Long
Dim sCol As Long
sLocaliza = False
Dim wsContratos As Worksheet
Set wsContratos = Worksheets("Contratos")
iLin = 2 'Inicia a pesquisa na Linha 2
sCol = 3 'Pesquisa na Coluna 3 - Col C
With wsContratos
Do While Not IsEmpty(.Cells(iLin, sCol))
If .Cells(iLin, sCol).Value = RefId Then
sLocaliza = True 'Verdadeiro se encontrado
'MsgBox .Cells(iLin, 2).Value 'Retorna o Valor da Coluna 2 - B
sCel = .Cells(iLin, 2).Value
Exit Do 'Sai do Loop se encontrar
End If
'Incrementa a linha
iLin = iLin + 1
Loop
End With
End Function
[]s
Postado : 21/03/2012 7:24 pm