Форма, будь она неладна!

[A_L_E_X]

Суть проблемы - есть список артикулов.
По заданным критериям (их пока в примере нет) надо создать набор.
Вставил листбокс и спинбокс - это работает.
А в другой бокс - ничего никак запихать не получается.

Помогите, люди добрые.

[doober]

Я правда ничего не понял,возможно это вы ищете

Private Sub SpinButton1_SpinUp()
ListBox2.AddItem ListBox1.Value
SpinButton1.Value = 1
    Range("A5").Value = SpinButton1.Value

End Sub

если я угадал-
ответ на следующий возможный вопрос
с ListBox2 в ListBox1 добавить не сможете

[SAS888]

На сколько я понял, требуется "перекидывать" значения из ListBox1 в ListBox2 и наоборот. Если так, то можно использовать вариант из вложения. Кроме перемещения значений, при нажатии кнопки, также, удаляются и лишние пустые строки в соответствующем ListBox. Перемещаемые значения добавляются в конец списка. Если требуется, можно сделать сортировку.

Если же требуется что-то другое - то нужно объяснить более подробно: что за критерии, где они будут располагаться и т.п.

[A_L_E_X]

Сообщение от SAS888

На сколько я понял, требуется "перекидывать" значения из ListBox1 в ListBox2 и наоборот. Если так, то можно использовать вариант из вложения. Кроме перемещения значений, при нажатии кнопки, также, удаляются и лишние пустые строки в соответствующем ListBox. Перемещаемые значения добавляются в конец списка. Если требуется, можно сделать сортировку.

Если же требуется что-то другое - то нужно объяснить более подробно: что за критерии, где они будут располагаться и т.п.

Спасибо, но не совсем то.
Видимо, опять я коряво сформулировал.
Больше похоже на необходимое -то что написал doober.
Буду разбираться.

Еще раз спасибо

[A_L_E_X]

Сообщение от doober

Я правда ничего не понял,возможно это вы ищете

Private Sub SpinButton1_SpinUp()
ListBox2.AddItem ListBox1.Value
SpinButton1.Value = 1
    Range("A5").Value = SpinButton1.Value

End Sub

если я угадал-
ответ на следующий возможный вопрос
с ListBox2 в ListBox1 добавить не сможете

Все сработало!!!
Но Вы не совсем угадали.
Мне не надо добавлять с ListBox2 в ListBox1.
Мне надо удалять из ListBox2 выделенное с помощью SpinDown

[doober]

Сообщение от A_L_E_X

Но Вы не совсем угадали.

Бывает
Знал бы прикуп-жил бы в Сочи