migrar dado da combobox para listbox

Question

Tenho uma combobox com vários valores e preciso selecionar alguns valores e e enviar em uma listbox, e se caso for necessário precisarei deletar algum valor.

como posso fazer?

Answer 1

Considerei o seguinte cenário

1 formulário,

1 combobox chamada ComboBox1,

1 listbox chamada ListBox1

1 botão chamado CommandButton1,

Para carregar a combobox, utilize o código abaixo no evento activate do formulário:

Me.ComboBox1.AddItem "teste1"
Me.ComboBox1.AddItem "teste2"
Me.ComboBox1.AddItem "teste3"

Para preencher a listbox a partir de um valor selecionado na combobox, utilize o código abaixo no evento click do command button;

Private Sub CommandButton1_Click()

If Me.ComboBox1.Value <> "" Then
    Me.ListBox1.AddItem Me.ComboBox1.Value
    Me.ComboBox1.Value = ""
Else
    MsgBox "Selecione um valor na combobox"
End If

End Sub

    

Answer 2

Andre, deu certinho valeu demais!

Agora estou tentando Salvar todos os dados da Listbox (sem precisar seleciona-los), em uma unica celula da planilha e continuar a salvar os proximos dados na sequencia (Ex. A1,A2.... ao infinito). Estou tentado vários codigos que achei na net, mais nenhum deu certo!

É possível fazer isso? como?

Answer 3

Private Sub CommandButton1_Click()

Dim valor As Variant

For i = 0 To Me.ListBox1.ListCount - 1
    valor = valor & ", " & Me.ListBox1.List(i, 0)
Next i

ActiveSheet.Range("A1").Value = Right(valor, Len(valor) - 2)

End Sub

Answer 4

Andre o codigo não atendeu! erro varialvel não definida.

Answer 5

Em qual linha ocorre o erro ?

Answer 6

For i = 0 To Me.ListBox1.ListCount - 1

Answer 7

For i = 0 To Me.ListBox1.ListCount - 1

Private Sub botao_salvar_cadastro_Click()

'criado a variável para contar quantas linhas foram preenchidas para dar sequência no salvamento dos registro
Dim ws As Worksheet
    Dim col As Integer
    Dim lin As Integer
    Set ws = ThisWorkbook.Worksheets(NomePlanilha)
    
            lin = 2
            col = 1
            While (Plan4.Cells(lin, col) <> "")
                lin = lin + 1
            Wend

 Plan4.Cells(lin, 15).Value = ListBox_funcoes_ferramenta.List
            Plan4.Cells(lin, 16).Value = ListBox_nivel_manutencao.List
            Plan4.Cells(lin, 17).Value = ListBox_efetividade_aplicacao_motor.List
            Plan4.Cells(lin, 18).Value = ListBox_efetividade_aplicacao_serie.List

---------------------------------------------------

eu usei o codigo acima e salvou apena um item da listbox "preciso salvar todos os itens contido na listbox"

Answer 8

No meu código, insira a seguinte instrução

Dim i as long

Answer 9

Andre no seu codigo ele não esta salvando na sequencia (a1,a2,a3,a4,a5......), e não consegui adptar o seu codigo para fazer isso!