Pesquisar Em Um UserForm

[kedim43]

Olá Galera.
Espero estar ajudando a todos a entederem um pouco mais do modulo VBA do Excel.
Daremos hoje, continuidade ao nosso pequeno aplicativo.

Construiremos o botão Pesquisar.
Esta tarefa é bem facil.
Iremos tambem dar continuidade as tomadas de desição em VBA tambem com o Botão de Pesquisa.
O código é bem facil de entender.

Vamos colocar as Mãos No Código.

Veja o Código que deve ser inserido dentro do Botão Pesquisar:

'Aqui é selecionado a Planilha com seus dados (Plan1) no nosso exemplo
With Plan1.Range("A:A")

'Aqui onde será digitado o que procurar

Set C = .Find(TextBox2.Value, LookIn:=xlValues, LOOKAT:=xlWhole)

'Aqui outra tomada de decisão, caso encontre sua pesquisa, será retornado nas caixas de textbox.
If Not C Is Nothing Then
TextBox2.Text = C.Offset(0, 1)
TextBox3.Text = C.Offset(0, 2)

'Fim da Pesquisa
End If

'Tomada de decisão em caso de não haver nenhum resultado
If C Is Nothing Then

'Sua mensagem ao usuário aqui
MsgBox ("Nome Não Encontrado!!!" ),VbOkOnly, ("Seu Aplicativo Pesquisando Dados")
End If

'Fim da Pesquisa
End With

Sintam - se a vontade para inserirem no modelo anterior e modificarem como desejam.

Agora um bonus a todos do forum.

O botão Reset. É muito simples.
Vejam.

Basta inserirem um CommandButton e dentro dele o Código Abaixo.

' Aqui limpa os textbox
textbox2 = Empty
textbox3 = Empty

Lembrando a todos que de agora em diante você já pode desenvolver seus aplicativos sem erros e bem pessoais.
Um detalhe, não podemos limpar o Número gerado no textbox1, face que, o mesmo é fruto de um código automatico.

Então galera. espero ter ajudado mais uma vez.

Ainda fico devendo os botões de Editar e Excluir.

Até nosso proximo Post.