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.

Comentários

comentários