Como inserir dados em uma lista de Combobox

Abra uma planilha de Excel...

A primeira coisa é definir a lista que será carregada. A mesma precisa está na sua planilha (Modo Simplificado), conforme exemplo abaixo:

A partir dessa definição da lista, vamos abrir o VBA do seu Excel com o seguinte comando “Alt +f11”.

Após isso, é preciso criar o Combobox. No exemplo abaixo, esse Combobox será criado em um UserForm (Clique no menu “Insert” e selecione a opção userform):

Insira o Combobox através da tabela de “toolbox”.

Para carregar a lista, quando o userform for inicializado, abra o “View Code”, e troque a opção de “Click” para “Initialize”, conforme exemplo abaixo:

Então vamos ao código:

Private Sub UserForm_Initialize()

Dim linha

For linha = 2 To 1048576

    If Sheet1.Cells(linha, 1) = "" Then

                 Exit For

    End If

   UserForm1.ComboBox1.AddItem Sheet1.Cells(linha, 1)

Next

End Sub

Obs: linha é uma variável criada para definir o inicio e fim da lista.

 

O resultado é: