12. ATUALIZANDO DADOS ATRAVÉS DE UM FORMULÁRIO.

12. ATUALIZANDO DADOS ATRAVÉS DE UM FORMULÁRIO.

Convenhamos, buscar informações em uma planilha do Excel pode ser uma verdadeira Odisseia se houverem muitos registros. Então meu caro, que tal usarmos as belezocas da ListBox e Combobox? Assim é só buscar o nome e trazer as demais informações no formulário.

12.1. Retornando os dados no formulário

            A melhor forma de exemplificar o que estou querendo dizer é criarmos um pequeno sistema de cadastro. Para começarmos, vamos utilizar o formulário do capítulo anterior e inserirmos mais alguns controles (3 Comboboxs, sendo “Txt_Nome”, “Txt_Sal”, “Txt_Cargo”. Então mãos à obra.

            Após inserido os controles, o formulário ficará desta forma.

            Agora vamos programar o formulário para retornar os dados para os controles, quando forem selecionados dados na Combobox ou Listbox.

            Vamos criar um procedimento simples para retornar os dados, veja abaixo.

Sub RetornaDados()

    Dim ShtFunc                                     'declara a variável da planilha

   

    Set ShtFunc = Sheets("Plan4")                   'seta a planilha que será utilizada

   

    Lin = PreencheListBox.ListBox1.ListIndex + 2    'defina a linha da planilha onde os dados serão capturados

    With ShtFunc                                    'retorna os dados para o formulário

        Txt_Nome = ShtFunc.Cells(Lin, 1)

        Txt_Sal = ShtFunc.Cells(Lin, 2)

        Txt_Cargo = ShtFunc.Cells(Lin, 3)

    End With

End Sub

            É só inserir a chamada do procedimento no evento Change da Combobox. Não será necessário fazer o mesmo com a Listbox, já que igualamos o índice das duas no tópico anterior.

            Veja o resultado final.

           

Para acessar o curso completo Clique aqui