[RESOLVIDO] unção vlookup via VBA

[jovemlima]

JoseA, Mauro, tem como adaptar para buscar em planilhas de arquivos separados, tipo Planilha Resultado e planilha Dados, iria substituir o procv que estou usando, deixando a planilha mais limpa.

SDS
Luiz

[Mauro Coutinho]

Luis, tem sim,

segue um exemplo, abra os dois arquivos, se o arquivo Teste estiver Fechado não irá funcionar.


Abraços

[jovemlima]

Mauro valeu...obrigadao.
vou tentar colocar no projeto de duas planilhas do tomaz...Mas acho que nao vai rolar, porque a planilha dados fica oculta, mas tambem permanece fecha...Vou baixar e testar em casa.

Valeu.

SDS
Luiz

[jovemlima]

Maurao ...testei e nao funga mesmo. O estranho é que uma formula comum do Procv coleta os dados da planilha fechada, mas esta codigo de vb não....Estou procurando algo na net que abilite a busca em uma planilha fechada....via vb.

SDS
Luiz

[Mauro Coutinho]

Luis, se for usar o PROCV em um dos Forms (Cadastro ou Pesquisa), note que a planilha DADOS permanece aberta até que se feche os formulários.
Alias, eu não entendi direito o porque quer utilizar a função PROCV se já temos nesse Modelo de Aplicativo o retorno dos Dados atraves dos dois formulários, seria só fazer uma adaptação e jogar os mesmos para a Planilha, ou seja acrescentar um novo textbox e um botão para retornar os dados referente ao Registro ou Nome digitado no mesmo, pense nisso.

abraços

[jovemlima]

Mauro é que eu tenho uma planilha idependente onde eu lanço diariamente o atendimento feito por paciente, dae eu coloco a data incial, data final, disgnostico e o resto dos dados posso a proveitar o que esta na Planilha dados, sem usar os Formularios. Estou colocando esta planilha na aba da planilha "FrontEnd_Luiz"

Qual a sua ideia?

Vou anexar a planilha, é a aba Livro.

SDS
Luiz

[Mauro Coutinho]

Luis, montei um exemplo separado do Arquivo que anexou para você não se confundir, mas o principio é o mesmo do Modelo Cadastro, mantive os mesmos nomes usado por você na planilha LIVRO, mas será bem fácil você adaptar a sua Pasta, veja que nesse exemplo desabilitei alguns itens na declaração, preste bem atenção nessa parte na hora de migrar para o seu aplicativo se realmente atender a sua necessidade.


Abraços

[jovemlima]

Maurao, voce é fera pra caramba fiz umas auterações pra entender as locações. E com certeza atende as minhas necessidades, na verdade vai alem.
Esse modelo fechou com chave de ouro.

Só uma coisa que acho que não vou dar conta de resolver, a busca é feita pela sequencia da linha, linha 1,2,3,4,5, 6 e 7.
e preciso que a busca seja feita pelo os codigos que estao na coluna Pront.
Tem como me ajudar nisso.
Private Sub CarregaRegistro()
'carrega os dados do Registro Digitado
If vrNum > TotalPront Then

Teria que ser igual ao outro:
Dim vrNum As String

If Target.Column = 8 Then
Application.EnableEvents = False

On Error Resume Next
vrNum = CDbl(Target.Value)

If vrNum = 0 Then
MsgBox "Insira um VALOR Válido para Pesquisa"
Target.Offset(0, 3) = ""
Application.EnableEvents = True
Exit Sub

SDS
Luiz

[Mauro Coutinho]

Luis, de fato estava carregando pelo numero de Registros e não pelo Numero do Prontuário, acho que agora acertamos, de uma olhada.

Veja que no anexo tem as duas Pastas, descompacte no mesmo diretório, a Pasta com os Dados (Dados_Pacientes.xls) é uma cópia da (So_Dados_Luiz.xls), resolvi fazer assim para ficar mais fácil de você entender e modificar (quais colunas).

Na Pasta Localizar_Prontuario.xls é como se fosse a Front_End, procurei comentar os Códigos, a procura pelo Numero do Prontuário só é realizada se digitar na Coluna 3 ("C"), alterei os nomes de algumas rotinas e função para não dar incompatibilidade quando for migrar para a sua Pasta, devido a algumas rotinas terem nomes iguais, na mesma são retornados os dados das colunas da Pasta com os Dados conforme o seu modelo(Paciente).


Qualquer duvida poste novamente.

abraços

[jovemlima]

Mauro, ficou exelente, Valeu. Obrigado....Economiza uma espaço e deixa a planilha muito mais limpa.
Estou tendo uns probleminhas, mas tenho certeza que é o meu excel 2007, ele economiza espaço, mas não é muito estavel.
A planilha ficou otima.
Obrigado.

SDS
Luiz