Вставить данные и строки listbox в строку таблицы

Вставить данные и строки listbox в строку таблицы, по двойному клику на форме

Пользователь

Сообщений: 2 Регистрация: 09.04.2015

09.07.2015 13:07:05

Есть готовая форма с макросами обработки (фильтрации) данных. Необходимо по двойному клику вставить из листбокса формы строку целиком в таблицу.
Форма готова, двойной клик в форме в listbox реализован. Сейчас вставляет только по одной циферке как пример. Нужна доработка, пока не знаю какая.

Прикрепленные файлы

Для вопроса1.rar (67.21 КБ)

Karataev

Пользователь

Сообщений: 2309 Регистрация: 23.10.2014

09.07.2015 22:01:32

Код

Private Sub lstData_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim r As Long, i As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
r = Me.lstData.ListIndex
For i = 0 To 4
    Cells(1, i + 1).Value = Me.ListBox1.List(r, i)
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox$ "Строка добавлена"
End Sub

dasist Пользователь Сообщений: 2 Регистрация: 09.04.2015	#3 28.07.2015 22:06:39 Коллега, спасибо. Все чирикает! С меня...