Este fórum está sendo desativado

[Kemps]

Boa tarde,

Gostaria de saber como eu faço para que ao selecionar um item em uma tabela e clicar em uma macro ("adicionar" por exemplo) ela remove aquele item da lista A e adiciona à lista B.

Caso não tenha sido claro, um exemplo seria as opções do excel, em personalizar. Você seleciona as ferramentas que quer na lista de inativas e clica em adicionar, assim a ferramenta vai para a lista de ativas.

Obrigado desde já!

[laennder]

Para mover itens entre dois listboxes, crie um userform, adicione os listboxes e os botões e cole o código abaixo. Estou anexando o arquivo.

Código: Selecionar todos

Option Explicit

Private Sub btnMoverTudoEsquerda_Click()
    Dim i As Long
    For i = 0 To ListBox2.ListCount - 1
        ListBox1.AddItem ListBox2.List(i)
    Next i
    ListBox2.Clear
End Sub

Private Sub btnMoverTudoDireita_Click()
    Dim i As Long
    For i = 0 To ListBox1.ListCount - 1
        ListBox2.AddItem ListBox1.List(i)
    Next i
    ListBox1.Clear
End Sub

Private Sub btnMoverEsquerda_Click()
    Dim i As Long
    If ListBox2.ListIndex < 0 Then Exit Sub
    ListBox1.AddItem ListBox2.List(ListBox2.ListIndex)
    ListBox2.RemoveItem ListBox2.ListIndex
End Sub

Private Sub btnMoverDireita_Click()
    Dim i As Long
    If ListBox1.ListIndex < 0 Then Exit Sub
    ListBox2.AddItem ListBox1.List(ListBox1.ListIndex)
    ListBox1.RemoveItem ListBox1.ListIndex
End Sub

Private Sub UserForm_Initialize()

    With ListBox1
        .AddItem "Guru"
        .AddItem "Fórum"
        .AddItem "Microsoft"
        .AddItem "Macro"
        .AddItem "Excel"
    End With

End Sub

[Kemps]

Muito obrigado laennder!

Dessa forma já resolve meus problemas!!! Única dúvida que sobrou é se eu preciso de fazer por listbox, pois preciso usar a fórmula SOMASES tendo como parâmetro os valores dentro dessa lista

[laennder]

As listas seriam nas planilhas? Não precisa ser por listbox não... Mas a lógica é a mesma...

[Kemps]

As listas são dentro da mesma planilha sim, mas justo, se da pra fazer usando essa lógica eu adapto aqui!

Obrigado novamente

[laennder]

Ok. Vou marcar o tópico como resolvido. Se tiver problemas em adaptar o código, por favor abra um novo tópico.