Pressiona enter próximo passo é colocar um sistema de tratamento de erro on error go to err caso tudo ocorreu bem.
Exit sub Caso contrário vai para erro dois p pontos e exibe uma msg Box abre aspas duplas erro ponto de exclamação e fecha as aspas duplas vírgula VB Critical vírgula abre.
Aspas duplas título da mensagem pesquisa e fecha as aspas duplas por enquanto deixem desativado o sistema de tratamento de erro prosseguindo precisamos verificar se tem.
Um critério para pesquisa no meu caso o critério vai ser informado na textbox 1 já vou copiar o name da textbox de volta no código agora nós.
Exit e para fechar o if if na sequência precis definir as variáveis Nossa macro din linha as Double do tipo número.
Din C as variante variáveis do tipo variante aceitam qualquer tipo de dado próximo passo é referenciar a guia da planilha onde nós vamos fazer a.
Pesquisa no meu caso o o nome renomeado da guia é dados mas eu preciso referenciar o nome interno do VBA da Guia que é este planilha um fora dos.
Parênteses eu vou referenciar a guia utilizando um Wi Wi worksheets worksheets abre e fecha para parênteses.
E dentro dos parênteses no meu caso planilha 1 pon name para capturar o nome da Guia fora dos parênteses ponto Range abre e fecha parênteses e dentro dos.
Veja Também:
- Planilha de Conferência do ICMS-ST Fiscal em Excel 6.0
- Quando usar VERDADEIRO ou FALSO nas funções do Excel
- 14 CARTEIRINHA DE MEMBRO WORD
Parênteses abre e fecha aspas duplas e
Dentro das aspas duplas precisamos referenciar a coluna da guia da planilha que nós vamos fazer a pesquisa no meu caso eu vou fazer a.Pesquisa pela matrícula que consta na coluna B de volta no VBA dentro das aspas duplas B2 pont B para fechar o wit precisamos colocar end wit.
E dentro deste Wi nós vamos setar a variável c 7 C vai ser igual a ponto find abre e fecha parênteses e dentro.
Dos parênteses precisamos informar o critério para a pesquisa no meu caso o critério vai estar na textbox 1 pon text vírgula looking dois pontos igual XL.
Vales vírgula agora pessoal eu vou colocar um underline para continuar a digitação do código na próxima linha então espaço underline tecla shift o tracinho e está.
Ali o underline e pressiona enter na sequência lookat dois pontos igual a XL XL Wall porque eu quero uma pesquisa exata vírgula vem o comando search sech.
Direct dois pontos igual e agora vem o o comando XL XL previous para buscar o último registro de acordo com o critério e a coluna.
Referenciada fizemos a pesquisa agora nós precisamos verificar se foi encontrado o registro então if Deixa eu subir um pouco para.
A visualização if not se is not ou seja se não é vazio then else.
If Se entrou nesta primeira parte
Significa que o registro foi em contrato neste caso eu preciso capturar o número da linha podem copiar a variável linha e a variável linha vai ser ig a variável.C já sei a linha já posso carregar os registros para as demais text box do meu formulário No meu caso eu vou carregar as informações para textbox 2 e textbox 3 de volta na macro depois da variável.
Linha eu vou referenciar primeiro a textbox 2 ponto value igual e agora pessoal mais uma vez eu preciso referenciar a guia da planilha.
Utilizando o nome interno do VBA no meu caso planilha 1 ponto cus abre e fecha parênteses e dentro dos parênteses variável linha vírgula Qual a coluna que eu vou carregar para textbox.
2 no meu caso coluna 1 não tem nada coluna 2 é o critério eu vou carregar a coluna 3 coluna I de volta no VBA depois da vírgula coluna.
3 fora dos parênteses ponto Val para a próxima text box eu vou reaproveitar esta linha de código textbox 3 eu vou carregar a coluna.
4 beleza esta parte esse o registro foi encontrado no entanto se entrar no else significa que o registro não foi encontrado neste caso eu vou limpar a textbox 2 e também a textbox 3 textbox.
2. value igual aet e a textbox 3 também igual aete eu preciso informar o usuário que não foi em contrato eu vou utilizar uma msg.
Box msg Box abre e fecha aspas duplas e dentro das aspas duplas não encontrado ponto de exclamação fora das aspas duplas vírgula.
VB information vírgula e abre e fecha aspas duplas e dentro das aspas duplas o título da mensagem eu vou colocar pesquisa deixa.
Eu dar uma ajustada nisto aqui e agora pessoal depois que sair do Wi nós precisamos fechar a variável c depois do end 7C igual a not para pagar esta.
Variável da memória do computador beleza fizemos a macro agora eu vou acionar esta macro no evento Exit da textbox.
Critério então podem copiar o nome da macro No meu caso eu vou acionar em uma text duplo clique sobre a text bo por padrão caímos no evento.
Change Mas nesta caixa de seleção do lado direito eu vou escolher o evento Exit e dentro do evento Exit pesquisar que é o nome da macro este evento Change podemos apagar e este.
Evento clique do formulário também ah pessoal eu posso fazer o seguinte ainda no evento Change da textbox critério quando for digitado eu posso limpar as demais text box eu vou copiar estas duas.
Linhas de código volta na text box seleciona o evento Change e cola os para limpar os demais Campos beleza galera deixa eu colocar um espaço que facilita a.
Visualização salva as alterações e vamos testar agora é a hora da verdade eu vou pesquisar a Maria e o último registro da Maria é no setor 3 vamos ver matrícula 1020 pressionei.
Enter show de bola pessoal retornou o último registro referente a Maria se eu pegar o João 1021 o último registro é o setor dois mas o João tem apenas um.
Postar um comentário