Listbox-Combobox Dinâmico VBA Excel

On 14 de julho de 2010, in Excel, by sergiolemos

Para quem deseja alimentar um listbox ou um combobox através de um looping, segue dica.

Crie uma planilha simples e faça duas listas.

Para haver ocorrer o preenchimento é necessário que no UserForm esteja no modo INITIALIZE ou ACTIVATE

Private Sub UserForm_Activate()
    Dim i As Integer
    Dim A As String
 
    'Criando lista para combobox1
    'Do - funçao para início de loop
    'i - incrementará um até a condição de parada
    'Loop Until - Percorra até que a celula ativa tenha o valor vazio

    i = 0
    Do
        i = i + 1
    Loop Until Plan1.Cells(i, 1).Value = ""
    'Preenchendo o combobox
    ComboBox1.RowSource = "A1:A" & i
 
    'Criando a lista para o combobox2
    i = 3
    Do
        i = i + 1
    Loop Until Plan1.Cells(i, 5).Value = ""
    'Preenchendo o combobox
    ComboBox2.RowSource = "e3:e" & i
 
End Sub

Ficando dessa forma:

E o resultado final é:

 

7 Responses to Listbox-Combobox Dinâmico VBA Excel

  1. Possibly the top page that I have read this week?

    -Sincere regards
    Terrie

  2. I need to hear just what Wilburn thinks about that???

  3. hcn insurance disse:

    I am curious exactly what Delia can do with that :)

    Jenna

  4. Great post! I want you to follow up to this topic…

  5. I’m very happy you wrote that??

  6. sergiolemos disse:

    sorry, i forgot de continous this post, but now it’s ok.

  7. sergiolemos disse:

    Thanks, sorry for forgot de wrote full, because i’m so busy. But now it’s ok.

Deixe uma resposta

O seu endereço de email não será publicado Campos obrigatórios são marcados *

*

Você pode usar estas tags e atributos de HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre lang="" line="" escaped="">