none
migrar dado da combobox para listbox RRS feed

  • Pergunta

  • 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?
    terça-feira, 5 de janeiro de 2016 11:16

Respostas

  • 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
    

        


    • Sugerido como Resposta André Santo terça-feira, 5 de janeiro de 2016 11:32
    • Marcado como Resposta hudsonsaldanha terça-feira, 5 de janeiro de 2016 13:16
    terça-feira, 5 de janeiro de 2016 11:31

Todas as Respostas

  • 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
    

        


    • Sugerido como Resposta André Santo terça-feira, 5 de janeiro de 2016 11:32
    • Marcado como Resposta hudsonsaldanha terça-feira, 5 de janeiro de 2016 13:16
    terça-feira, 5 de janeiro de 2016 11:31
  • 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?

    terça-feira, 5 de janeiro de 2016 21:48
  • 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

    • Sugerido como Resposta André Santo quarta-feira, 6 de janeiro de 2016 10:28
    quarta-feira, 6 de janeiro de 2016 10:27
  • Andre o codigo não atendeu! erro varialvel não definida.
    quarta-feira, 6 de janeiro de 2016 12:01
  • Em qual linha ocorre o erro ?
    quarta-feira, 6 de janeiro de 2016 12:08
  • For i = 0 To Me.ListBox1.ListCount - 1
    quarta-feira, 6 de janeiro de 2016 12:19
  • 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"

    quarta-feira, 6 de janeiro de 2016 12:21
  • No meu código, insira a seguinte instrução

    Dim i as long

    quarta-feira, 6 de janeiro de 2016 13:24
  • 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!
    quarta-feira, 6 de janeiro de 2016 14:35