Tutorial: Excel - VBA Carregando dados da planilha para um Form em VBA - Combo box Básico

Tutorial criado para matar a seguinte duvida:

Preciso Carregar uma lista de dados de uma coluna na planilha para uma combobox num formulário em VBA sem ser pelo add item.
Essa lista muda de tamanho, ou seja, sempre tem mais itens.

Duvida de Thiago Angelozi.

Para Sanar a duvida foi criado uma lista de meses ordenada, e através do metodo Row Source da Combo box a lista é carregada assim que o formulário é ativado.
Além de efetuar esse processo, demonstro no tutorial como fazer o "input" de dados do formulário para o excel no momento em que o usuário altera os valores da Combo box.

Obs.

O tutorial pode ser aplicado em todas as versões do Excel:
1997 Excel 8.0 (Office '97)
1999 Excel 9.0 (Office 2000)
2001 Excel 10.0 (Office XP)
2003 Excel 11.0 (Office 2003)
2007 Excel 12.0 (Office 2007)
2010 Excel 13.0 (Office 2010)

Qualquer duvida, sugestão ou se você possui uma planilha que deseja melhorar ou criar. Enviei um e-mail para:
excel@elitonlopes.com
O e-mail que estiver bem detalhado e que contenha uma informação legal de ser compartilhada, criarei um tutorial.
Obrigado por assistir.

Category:

Education

Tags:

• Excel
• VBA
• Combobox
• Combo
• Box
• Row
• Source
• add
• item
• formulário
• Eliton
• Lopes
• office
• 2010
• 2003
• 2007

[lenasiyou]

Desculpe testei da forma igual ao seu e tb de erro

[elitontecnology]

@lenasiyou Boa tarde. Um erro que pode acontecer nesse caso é o fato de você não possuir nenhuma celula preenchida a partir da sua referencia.

Se não for esse seu caso, me passe mais detalhes para que possa te ajudar.

abraços

[lenasiyou]

Testei :

cbregiao.RowSource = "Bco de Dados!B6:B" & Sheets("Bco de Dados").Range("B6").End(xlDown­).Row

Mas está dando erro;;;

[elitontecnology]

@lenasiyou Boa tarde. Um erro que pode acontecer nesse caso é o fato de você não possuir nenhuma celula preenchida a partir da sua referencia.

No seu caso se vc não possuir nenhum dado nas celulas abaixo da B6 pode dar erro.

uma correção é usar um comando "On error next" antes dessa linha ou então ao invés de usar "Range("B6").End(xlDown­).Row' usar Range("B50000").End(xlUp).Row. Onde 50000 pode ser a ultima celula da planilha.

Espero ter ajudado e obrigado pela participação

[lenasiyou]

Caro amigo, era exatamente que estava precisando.. Só faltou uma coisa. No meu caso a lista está em outra planilha. O Formulário é da planilha 1 e os dados estão na planilha 2.

Poderia me ajudar.

Muito grato

Levi