Страницы: 1
RSS
VBA вставить значения из ListBox в последнею строку таблицы
 
Добрый день, уважаемые участники форума.
Не силен в VBA, прощу подсказать решение, сделал UserForm с набором найденных макросов на форуме, но с последней задачей возникла проблема, хочу из ListBox2 -  все добавленные значения, добавить в последованию строку умной "таблицы1" на лист "НОРМЫ" в столбец "F", каждое значение в новую строку.
Макрос, который сейчас добавляет значения начиная с 12 строки.
Спасибо.
Код
Private Sub Вставить_Click()
   Dim a()
    Dim i&, rw
'---------------
    rw = 12 'номер первой строки для выгрузки
    a = Me.ListBox2.List 'берём в массив значения листбокса
    With Sheets("Нормы") 'имя нужного листа
        For i = 0 To UBound(a) 'цикл по строкам массива
            'вносим значения из массива на лист
            .Cells(i + rw, 6) = a(i, 0) 'наименование
        Next
    End With
End Sub
 
e-748,
Код
rw = Cells(Rows.Count, 1).End(xlUp).Row + 1
 
OblivionR,Работает, спасибо Вам большое.)))))
Страницы: 1
Наверх