Сводный отчёт

[Артур Иваныч]

Здравствуйте ВСЕМ!
Ниже прикреплён файл
Вобщем в ней таблица и кнопка, которая вызывает форму
ГДЕ в лстбоксе мы выгружает первый столбец таблицы и выбираем(выделение) те строки(виды продукции), который нам нужны...
Далее нужно чтобы при нажатии кнопки на форме создавался сводный отчёт:
1) создаётся новый лит
2) в этот лист выгружаются ТЕ строки из той таблицы, которые мы выбрали с листбоксе!
Как это делается?
Заранее большое спасибо!

[Teslenko_EA]

Здравствуйте Артур Иваныч.
Возможно Вам подойдет подобная корректировка кода формы ?

Dim o As Object, oS As Object
Private Sub CommandButton1_Click()
    Set o = Worksheets.Add
    selRows
End Sub
Function selRows()
Dim i%
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        j = j + 1
        o.Range("a" & j + 2 & ":f" & j + 2).Value = oS.Range("a" & i + 2 & ":f" & i + 2).Value
        'oS.Range("a" & i + 2 & ":f" & i + 2).Copy
        'o.Range("a" & j + 2 & ":f" & j + 2).Select
        'ActiveSheet.Paste
    End If
Next
End Function
Private Sub UserForm_Initialize()
    Dim sArr()
    Set oS = ActiveSheet
    sArr = oS.Range("a2:a" & oS.Cells(oS.Rows.Count, 1).End(xlUp).Row).Value
    ListBox1.List = sArr
    ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Евгений.

[Артур Иваныч]

ВСЁ работает!
Спасибо)) если что отпишусь, если вдруг там дополнить задумаю!

[Артур Иваныч]

Код очень простенький...
Всё в рамках этой таблицы работает
НО(!) это не совсем то, что надо
оригинальная таблица выглядить по-другому
там масса строк и столбцов и их количество постоянно меняется.
Нужно чтоб выводил в отчёт, даже если мы выберим 1ну строку, чего в этом коде нет((
и нужно чтоб в определённом месте нового листа результат выводил(в фиксированном месте)...