COMBOBOX

PEGUDO 24/01/2010 14:36:27
#332744

Amigo Rui Francisco,

é o seguinte:
1. Primeiro você precisa dizer ao ComboBox qual a planilha que você quer, exemplo: Sheets([Ô]Plan1[Ô])
2. Agora você coloca quais as células contém os dados que você quer, exemplo: Range([Ô]A1:A10[Ô]).Cells
3. Agora é só dizer ao ComboBox o que fazer. Exemplo: ComboBox1.AddItem

Agora o exemplo completo, supondo que seus valores estão nas céluas A1 até A10:

1. Abra o Editor do VBA, pressionando ALT+F11;
2. No lado esquerdo, abaixo da barra de ferramentas, procure o ícone da [Ô]Plan1[Ô], clique com o botaõ esquerdo e em [Ô]Visualizar código[Ô] ou [Ô]View Code[Ô];
3. Selecione [Ô]Worksheet[Ô] na lista suspensa [Ô]Objects[Ô];
4. Selecione [Ô]Activate[Ô] na lista suspensa à direita;
5. Agora digite:

[txt-color=#0000f0]Private Sub [/txt-color]Worksheet_Activate()
[txt-color=#0000f0]Dim[/txt-color] i [txt-color=#0000f0]As Variant [/txt-color][txt-color=#007100][ô]Declara uma variável qualquer[/txt-color]

[txt-color=#0000f0]For Each [/txt-color]i [txt-color=#0000f0]In[/txt-color] Worksheets([Ô]Plan1[Ô]).Range([Ô]A1:A10[Ô]).Cells [txt-color=#007100][ô]O programa fará um loop, procurando cada valor contido em cada célula A1 até A10, da planilha 1[/txt-color]
ComboBox1.AddItem i [txt-color=#007100][ô]O programa vai adicionar, na ComboBox, cada valor encontrado.[/txt-color]
[txt-color=#0000f0] Next[/txt-color]
ComboBox1.ListIndex = 0[txt-color=#007100] [ô]O primeiro valor irá aparecer na ComboBox, como padrão.
[/txt-color][txt-color=#0000f0]End Sub[/txt-color]

BRUNOCCDC 25/01/2010 14:57:17
#332796

Amigo RUIFRANCISCO. Qual versão do Excel você esta usando? 2003 ou 2007?
No Excel 2007 fazer isto que você quer é super fácil! nem precisa de códigos!
Faz o seguinte.
Primeiro. Ativa a guia desenvolvedor do Office
Entra no Excel. Clique na bolinha do Office que tem no canto superior esquerdo, no menu que abrir abra a opção no canto inferior chamada [Ô]Opçoes do Excel[Ô]
Quando abrir as opções, vá até a Guia [Ô]Mais Usados[Ô] e selecione a opção [Ô]Mostrar Guia Desenvolvedor na Faixa de Opções[Ô] De OK e pronto.
Vá agora a guia desenvolvedor que já esta ativa e clique em [Ô]Inserir[Ô] e depois selecione o opção [Ô]Caixa de Combinação[Ô] (Insira o controle onde você quiser!)
Agora clique com o botão direito do mouse na caixa de combinação que você inseriu na planilha e selecione a opção [Ô]Formatar Controle[Ô]
Na janela que vai abrir, vá até a guia [Ô]Controle[Ô], o Excel te dará a opção de selecionar o intervalo de células que você quer mostrar na sua caixa de Combinação.
Pronto! e nem precisa de código.
Vinculo da célula: Onde o Excel mostrara o resultado caso você queira!
Então é isso, não sei se é bem isso que você queria, mas se for isso mesmo!! ta ai!

vlw