Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 procv em vba

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
juca



Mensagens : 1
Data de inscrição : 25/06/2010

MensagemAssunto: procv em vba   Sab Jun 26, 2010 12:01 am

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
spielmann



Mensagens : 4
Data de inscrição : 03/06/2011

MensagemAssunto: RESPONDENDO PROCV   Sex Jun 03, 2011 3:49 am

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

Voltar ao Topo Ir em baixo
Ver perfil do usuário
spielmann



Mensagens : 4
Data de inscrição : 03/06/2011

MensagemAssunto: PROCVARIOS_NOVO   Sex Jun 03, 2011 6:46 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: procv em vba   Hoje à(s) 9:56 am

Voltar ao Topo Ir em baixo
 
procv em vba
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Resolvido]Procv no Access....?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: