UserForm VBA

[Wendell Menezes]

Boa tarde,

Como defino os dados que serão selecionaveis em uma Caixa de Combinação no VBA Excel 2007?

[Patropi]

Boa tarde Wendell

Veja este tutorial sobre caixa de Combinações também chamada de Combobox:

http://bertolo.pro.br/FinEst/TutoriaisExcel/Variedades/DicaExcel01-ComboBox.pdf

Dê retorno.

Um abraço.

[Wendell Menezes]

Boa noite Patropi,

Obrigado pela ajuda de sempre, porém peço desculpas por não ter específicado exatamente o que eu queria.

Eu sei utilizar este formulário na planilha, mas não no VBA.

Acabei descobrindo pesquisando em outras fontes, porém me surgiu outra dúvida.

É possível definir os valores a serem validados de forma mais simples do que esta que utilizei? (Para poupar o trabalho braçal de digitar cada item)

Sub BotãoInicial()

Sheets("Form").Select
UserForm1.ComboBox1.AddItem "Nome1"
UserForm1.ComboBox1.AddItem "Nome2"
UserForm1.ComboBox1.AddItem "Nome3"
UserForm1.ComboBox1.AddItem "Nome4"
UserForm1.ComboBox1.AddItem "Nome5"
UserForm1.ComboBox1.AddItem "Nome6"
UserForm1.ComboBox1.AddItem "Nome7"
UserForm1.ComboBox1.AddItem "Nome8"
UserForm1.ComboBox1.AddItem "Nome9"
UserForm1.ComboBox1.AddItem "Nome10"
UserForm1.Show

End Sub

Este formulário também possui um botão "Salvar", ao ativá-lo, preciso que valores das ComboBoxes sejam preenchidos em uma base de dados.

O problema é:

Como fazer para não sobrepor os valores? ou seja, sempre preencher os dados na próxima linha em branco?

[zinhovba]

Bom dia!!!

Tem como postar sua planilha.?

Att...

[Wendell Menezes]

Boa noite,

Consegui resolver meus problemas, vou postar a resolução.

Para validar os dados de uma ComboBox VBA de forma rápida, basta preencher uma lista no excel e fazer referência a ela nas propriedades da combobox, preenchendo o campo "SourceRow".

Exemplo:

Base!A1:A5

Para alimentar uma base de dados sem sobrepor valores, basta utilizar este código após definir planilha e célula a serem preenchidas:

'Desloca até a próxima linha vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

Muito Obrigado Patropi e zinhovba

Abraços

[Linio Alan]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.