Página 1 de 1
ALGORITMO PARA PESQUISAR INFORMAÇÕES EM CADASTRO PELO NOME
Enviado: 18 Mai 2018 às 12:29
por luizgustavoortega
Pessoa, estou tentanto criar um cadastro de clientes pelo VBA. Até agora está indo bem... Eu queria criar uma dashbox para pesquisar todas as informações do cliente pelo NOME e trazer essas informações no mesmo painel de cadastro...
Eu já fiz o algoritmo, porém, ela não funciona quando eu digito o NOME do cliente... Quando eu mudo a referencia para pesquisar pelo CODIGO funciona...
Não sei aonde estou errando...
Os códigos estão bem organizados, estarei anexando aqui para caso alguém puder me ajudar eu agradeço muito!
PS: O algoritmo está no módulo "pesquisar_clientes"
ALGORITMO PARA PESQUISAR INFORMAÇÕES EM CADASTRO PELO NOME
Enviado: 18 Mai 2018 às 12:37
por JCabral
O problema é que na planilha Bruna está com um espaço, remova o espaço a seguir a Bruna e acho que já dá certo
Re: ALGORITMO PARA PESQUISAR INFORMAÇÕES EM CADASTRO PELO NO
Enviado: 18 Mai 2018 às 12:50
por luizgustavoortega
JCabral escreveu:O problema é que na planilha Bruna está com um espaço, remova o espaço a seguir a Bruna e acho que já dá certo
Nossa, verdade kkkkk
Tem como configurar para aparecer mesmo com o espaço, ou ainda diferenciando maiúscula de minuscula?
Re: ALGORITMO PARA PESQUISAR INFORMAÇÕES EM CADASTRO PELO NO
Enviado: 20 Mai 2018 às 00:53
por babdallas
O código está procurando pelo nome e usando a função arrumar do Excel para remover espaços indesejados e comparar o nome digitado com o nome cadastrado na planilha.
Mas como sugestão, coloque uma combobox carregando todos os nomes da planilha ao invés de uma textbox. Assim o usuário só vai poder escolher um cliente que exista. Poderia ter feito para você, mas acho legal você tentar primeiro. Se não conseguir, avisa que ajudamos.
Re: ALGORITMO PARA PESQUISAR INFORMAÇÕES EM CADASTRO PELO NO
Enviado: 21 Mai 2018 às 06:09
por JCabral
Experimente esta linha de código, julgo que funcionará:
Código: Selecionar todosLinha = ThisWorkbook.Worksheets("Clientes").Range("B:B").Find(cod, LookIn:=xlValues, LookAt:=xlPart).Row
Pode ter necessidade de tratamento de erro caso não encontre nenhum valor.
Contudo siga o conselho do Babdallas e coloque os nomes disponíveis em uma combobox