Добрый день
У меня есть заполненный список listBox1 на userform
Я хочу выбрать от туда несколько элементов и добавить их в таблицу, на новые строки.
Вот у меня получается дубляж.
в одном варианте, когда я уже выбрал и нажал кнопку, добавить выбранные элементы, то после операции в ListBox1 эти элементы остаются и можно их выбрать снова и они снова "добавятся" и это не хорошо, получится дубляж.
Я вижу два варианта решения, но оба они не идеальны.
1. ListBox1.RemoveItem ListBox1.ListIndex - но в этом случаи когда я выбираю два элемента - я получаю ошибку. Если один то нормально. А у меня мульти выбор.
2. закрыть форму вместе с кнопкой и листбоксом - Unload UserForm1. Сделал выбор, нажал кнопку и форма сама закрылась. И самое главное ListBox1 заполняется как раз при обращении к UserForm_Initialize() и при повторном открытии выбранных ранее элементов в ListBox1 уже не будет.
Но в этом случаи происходит за двоение. Цикл срабатывает почему то дважды, при выборе 1 элемента из списка listBox1.
Я прикрепляю черновой файл, где по нажатию на кнопку откроется заполненная форма и левом списке можно будет делать выбор.
код самого цикла выбора элемента на ListBox1
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
For p = 0 To ListBox1.ListCount - 1 ' цикл по всем имеющимся значениям в списке listbox1
If ListBox1.Selected(p) Then
sp = ListBox1.List(p) 'присваееваем sp значение из listbox1
Cells(n + 10, 1).EntireRow.Select ' выделяем строку
Selection.Copy
'Selection.Insert Shift:=xlDown
MP.Cells(n + 11, 4) = sp ' добавляем выбранное значение из listbox1 (sp)
Unload UserForm1
End If
Next p
