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 é:
Se você se divertiu com esse artigo, por favor compatilhe
Possibly the top page that I have read this week?
-Sincere regards
Terrie
I need to hear just what Wilburn thinks about that???
I am curious exactly what Delia can do with that
Jenna
Great post! I want you to follow up to this topic…
I’m very happy you wrote that??
sorry, i forgot de continous this post, but now it’s ok.
Thanks, sorry for forgot de wrote full, because i’m so busy. But now it’s ok.