Página 1 de 1
Como adicionar o item de uma lista em outra usando macro
Enviado: 21 Jan 2016 às 12:40
por 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á!
Re: Como adicionar o item de uma lista em outra usando macro
Enviado: 21 Jan 2016 às 13:07
por 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 todosOption 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
Como adicionar o item de uma lista em outra usando macro
Enviado: 21 Jan 2016 às 13:16
por 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
Como adicionar o item de uma lista em outra usando macro
Enviado: 21 Jan 2016 às 13:18
por laennder
As listas seriam nas planilhas? Não precisa ser por listbox não... Mas a lógica é a mesma...
Re: Como adicionar o item de uma lista em outra usando macro
Enviado: 21 Jan 2016 às 15:51
por 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
Como adicionar o item de uma lista em outra usando macro
Enviado: 21 Jan 2016 às 15:59
por laennder
Ok. Vou marcar o tópico como resolvido. Se tiver problemas em adaptar o código, por favor abra um novo tópico.