Добрый день, уважаемые участники форума.
Не силен в VBA, прощу подсказать решение, сделал UserForm с набором найденных макросов на форуме, но с последней задачей возникла проблема, хочу из ListBox2 - все добавленные значения, добавить в последованию строку умной "таблицы1" на лист "НОРМЫ" в столбец "F", каждое значение в новую строку.
Макрос, который сейчас добавляет значения начиная с 12 строки.
Спасибо.
Не силен в 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 |