procv em vba

preciso implementar uma função numa macro pra fazer como o procv.

tenho uma tabela de procedimentos e cid e preciso ver se o cid digitado está cadastrado em determinado procedimento.
Ex:
procedimentos | cid
0301070105 I694
0301070105 z899
0301070105 M638
0301070105 Q832
0301070113 H906
0301070113 H932
0301070113 H900

digite o procedimento: 0301070105
digite o cid: I694
Tenho que testar se o cid está correto dentro da tabela de procedimentos

juca escreveu:

preciso implementar uma função numa macro pra fazer como o procv.

tenho uma tabela de procedimentos e cid e preciso ver se o cid digitado está cadastrado em determinado procedimento.
Ex:
procedimentos | cid
0301070105 I694
0301070105 z899
0301070105 M638
0301070105 Q832
0301070113 H906
0301070113 H932
0301070113 H900

digite o procedimento: 0301070105
digite o cid: I694
Tenho que testar se o cid está correto dentro da tabela de procedimentos

Prezado Juca O PROCV foi feito para busca simples um dado e uma referencia, isto é seus procedimentos tem codigos iguais para "cid's' diferentes.
Mas é possivel usando o Procv modificado em VBA.




ALT F11
Inserir modulo

Function PROCVVARIOS(NomePesquisa As String, IntervaloPesquisa As Range, _
IntervaloRetorno As Range, Ocorrencia As Integer)

Dim Nome
Dim k As Integer, i As Integer

Application.Volatile
k = 1
i = 1

For Each Nome In IntervaloPesquisa
If (Nome = NomePesquisa) Then
If (k = Ocorrencia) Then PROCVVARIOS = IntervaloRetorno(i, 1)
k = k + 1

End If
i = i + 1

Next Nome

End Function

juca escreveu:

preciso implementar uma função numa macro pra fazer como o procv.

tenho uma tabela de procedimentos e cid e preciso ver se o cid digitado está cadastrado em determinado procedimento.
Ex:
procedimentos | cid
0301070105 I694
0301070105 z899
0301070105 M638
0301070105 Q832
0301070113 H906
0301070113 H932
0301070113 H900

digite o procedimento: 0301070105
digite o cid: I694
Tenho que testar se o cid está correto dentro da tabela de procedimentos

Pensando melhor no seu caso, fica o PROCVARIOS assim:


Function PROCVARIOS(Vpesq, Tabela As Range, lCol As Long)

Dim rCell As Range, Result

PROCVARIOS = CVErr(xlErrNA)

For Each rCell In Tabela
If rCell = Vpesq Then
Result = Result & "-" & rCell.Offset(, lCol - 1)
End If
Next rCell

If Result <> "" Then
Result = Right(Result, Len(Result) - 1)
PROCVARIOS = Result
End If

End Function