Как выбрать и добавить элемент из одного списка в другой

[alexei]

Как выбрать и добавить элемент из одного списка в другой

[GSerg]

Как узнать, какие списки ты имеешь в виду?

[alexei]

Один список с данными, другой - пустой. Я выбираю значение из первого списка, кликаю на кнопочку и это значение переноситься во второй список, удаляясь из первого

[alibek]

Ты же сам все описал, так и делай.
Для добавления есть метод AddItem, для удаления RemoveItem.

[alexei]

Мне бы кодик , я первый раз в VBA

[alibek]

Код: Выделить всё

Private Sub List1_DblClick
  If List1.ListIndex < 0 Then Exit Sub
  List2.AddItem List1.List(List1.ListIndex)
  List1.RemoveItem List1.ListIndex
End Sub

Private Sub List2_DblClick
  If List2.ListIndex < 0 Then Exit Sub
  List1.AddItem List2.List(List2.ListIndex)
  List2.RemoveItem List2.ListIndex
End Sub