11.4. Interação entre ComboBox e ListBox

11.4. Interação entre ComboBox e ListBox

            Trabalhar somente com uma Combobox ou Listbox em um formulário pode ser algo não muito prático e dinâmico. Que tal inserirmos as duas e criarmos uma interação dinâmica entre elas para facilitar nossas buscas?

            Para tanto, vamos usar o formulário da lição anterior e incrementá-lo, adicionando uma Combobox e alterando o código desta forma.

Private Sub UserForm_Initialize()

Dim Planilha As Worksheet

Dim Linha As Integer

'Você pode usar qualquer planilha. Neste caso, vou usar uma planilha que já usei neste curso.

'O resto é semelhante ao do item 11.1

Set Planilha = Worksheets("plan4")

Linha = 2

With Planilha

    Do While .Cells(Linha, 1).Value > ""

    '*********************************************

    Me.ComboBox1.AddItem .Cells(Linha, 1).Value         '*

    '*********************************************

    Me.ListBox1.AddItem .Cells(Linha, 1).Value

    Linha = Linha + 1

    Loop

   

End With

End Sub

            Perceba que acrescentamos apenas a linha de código em vermelho para preenchermos a Combobox, simultaneamente à ListBox. Muito rápido e fácil.

            Agora o formulário vai ficar com esta cara.

            Agora, no editor do VBA, dê 2 clicks na Combobox para acessar o evento Change da mesma. Vamos igualar o índice da ListBox com o da Combobox. Veja.

            O mesmo vamos fazer com ListBox, alterando o seu evento Change.

            Pronto, agora se você buscar algum nome na Combobox, o mesmo será selecionado na ListBox e vice versa. Faça o teste.

Para acessar o curso completo Clique aqui